         (error-message
             (concat "min weight " (number-to-string s) " is outside of range [0, 1]"))))
 
-(defun tn-set-min-weight-0 ()
-    (interactive)
-    (set-min-weight 0.0))
-
-(defun tn-set-min-weight-1 ()
-    (interactive)
-    (set-min-weight 0.25))
-
-(defun tn-set-min-weight-2 ()
-    (interactive)
-    (set-min-weight 0.5))
-
-(defun tn-set-min-weight-3 ()
-    (interactive)
-    (set-min-weight 0.75))
-
-(defun tn-set-min-weight-4 ()
-    (interactive)
-    (set-min-weight 1.0))
+(defun tn-set-min-weight ()
+    (interactive)
+    (let ((r (read-character-as-number)))
+        (set-min-weight (/ r 4))))
 
 (defun set-max-weight (s)
     (if (and (in-view) (>= s 0) (<= s 1))

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

(defun tn-set-default-sharability-1 ()
    (interactive)
    (set-default-sharability 0.25))

(defun tn-set-default-sharability-2 ()
    (interactive)
    (set-default-sharability 0.5))

(defun tn-set-default-sharability-3 ()
    (interactive)
    (set-default-sharability 0.75))

(defun tn-set-default-sharability-4 ()
    (interactive)
    (set-default-sharability 1.0))

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

        (error-message
            (concat "priority " (number-to-string v) " is outside of range [0, 1]"))))

(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))
