     (request-duplicates
         tn-min-sharability tn-max-sharability tn-min-weight tn-max-weight))
 
-;; non-interactive search, for use with emacsclient
 (defun tn-search (query)
+    (interactive)
     (if (> (length query) 0)
         (request-search-results
             query
             tn-style
             tn-min-sharability tn-max-sharability tn-min-weight tn-max-weight)))
 
-(defun tn-search-interactive ()
-    (interactive)
-    (let ((query (read-from-minibuffer "query: ")))
-        (tn-search query)))
-
 (defun tn-priorities ()
     (interactive)
     (request-priorities-results

    (set-buffer (window-buffer (selected-window)))
    (funcall f))

(defun tn-arrow-down ()
    (do-in-current-buffer 'next-line))

(defun tn-insert-char (ch)
    (do-in-current-buffer (lambda () (insert-char ch))))


;; OTHER ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        (error-message
            (concat "sharability " (number-to-string s) " is outside of range (0, 1]"))))

(defun tn-set-default-sharability (expr)
    (interactive)
    (let ((n (number-shorthand-to-number expr)))
        (if n (set-default-sharability (/ n 4.0)))))

(defun set-min-sharability (s)
    (if (and (in-view) (>= s 0) (<= s 1))
