         (error-message
             (concat "priority " (number-to-string v) " is outside of range [0, 1]"))))
 
-(defun tn-set-target-priority-0 ()
-    (interactive)
-    (set-target-priority 0))
-
-(defun tn-set-target-priority-1 ()
-    (interactive)
-    (set-target-priority 0.25))
-
-(defun tn-set-target-priority-2 ()
-    (interactive)
-    (set-target-priority 0.5))
-
-(defun tn-set-target-priority-3 ()
-    (interactive)
-    (set-target-priority 0.75))
-
-(defun tn-set-target-priority-4 ()
-    (interactive)
-    (set-target-priority 1.0))
+(defun tn-set-target-priority ()
+    (interactive)
+    (let ((r (read-character-as-number)))
+        (set-target-priority (/ r 4))))
 
 (defun set-target-sharability (v)
     (if (and (> v 0) (<= v 1))

(global-set-key (kbd "C-c C-t C-b t")   'tn-browse-target-value-in-twitter)
(global-set-key (kbd "C-c C-t C-b w")   'tn-browse-target-value-in-wikipedia)
(global-set-key (kbd "C-c C-t C-b y")   'tn-browse-target-value-in-youtube)
(global-set-key (kbd "C-c C-t i")       'tn-target-info)
(global-set-key (kbd "C-c C-t l")       'tn-preview-target-latex-math)
(global-set-key (kbd "C-c C-t C-p 0")   'tn-set-target-priority-0)
(global-set-key (kbd "C-c C-t C-p 1")   'tn-set-target-priority-1)
(global-set-key (kbd "C-c C-t C-p 2")   'tn-set-target-priority-2)
(global-set-key (kbd "C-c C-t C-p 3")   'tn-set-target-priority-3)
(global-set-key (kbd "C-c C-t C-p 4")   'tn-set-target-priority-4)
(global-set-key (kbd "C-c C-t C-p z")   'tn-set-target-priority-0)
(global-set-key (kbd "C-c C-t C-p a")   'tn-set-target-priority-1)
(global-set-key (kbd "C-c C-t C-p s")   'tn-set-target-priority-2)
(global-set-key (kbd "C-c C-t C-p d")   'tn-set-target-priority-3)
(global-set-key (kbd "C-c C-t C-p f")   'tn-set-target-priority-4)
(global-set-key (kbd "C-c C-t C-s 1")   'tn-set-target-sharability-1)
(global-set-key (kbd "C-c C-t C-s 2")   'tn-set-target-sharability-2)
(global-set-key (kbd "C-c C-t C-s 3")   'tn-set-target-sharability-3)
(global-set-key (kbd "C-c C-t C-s 4")   'tn-set-target-sharability-4)
(global-set-key (kbd "C-c C-t C-s a")   'tn-set-target-sharability-1)
(global-set-key (kbd "C-c C-t C-s s")   'tn-set-target-sharability-2)
(global-set-key (kbd "C-c C-t C-s d")   'tn-set-target-sharability-3)
(global-set-key (kbd "C-c C-t C-s f")   'tn-set-target-sharability-4)
(global-set-key (kbd "C-c C-t C-w 1")   'tn-set-target-weight-1)
(global-set-key (kbd "C-c C-t C-w 2")   'tn-set-target-weight-2)
(global-set-key (kbd "C-c C-t C-w 3")   'tn-set-target-weight-3)
(global-set-key (kbd "C-c C-t C-w 4")   'tn-set-target-weight-4)
(global-set-key (kbd "C-c C-t C-w a")   'tn-set-target-weight-1)
(global-set-key (kbd "C-c C-t C-w s")   'tn-set-target-weight-2)
(global-set-key (kbd "C-c C-t C-w d")   'tn-set-target-weight-3)
(global-set-key (kbd "C-c C-t C-w f")   'tn-set-target-weight-4)
(global-set-key (kbd "C-c C-v b")       'tn-refresh-to-backward-view)
(global-set-key (kbd "C-c C-v e")       'tn-enter-edit-view)
(global-set-key (kbd "C-c C-v f")       'tn-refresh-to-forward-view)

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

(defun tn-set-default-sharability ()
    (interactive)
    (let ((r (read-character-as-number)))
        (set-default-sharability (/ r 4))))

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