 (defun tn-set-default-sharability ()
     (interactive)
     (let ((r (read-character-as-number)))
-        (set-default-sharability (/ r 4))))
+        (set-default-sharability (/ r 4.0))))
 
 (defun set-min-sharability (s)
     (if (and (in-view) (>= s 0) (<= s 1))
-        (request-view t tn-mode tn-root tn-depth tn-style s tn-max-sharability tn-default-sharability tn-min-weight tn-max-weight)
+        (request-view t tn-mode tn-root-id tn-depth tn-style s tn-max-sharability tn-default-sharability tn-min-weight tn-max-weight)
         (error-message
             (concat "min sharability " (number-to-string s) " is outside of range [0, 1]"))))
 
 (defun tn-set-min-sharability ()
     (interactive)
     (let ((r (read-character-as-number)))
-        (set-min-sharability (/ r 4))))
+        (set-min-sharability (/ r 4.0))))
 
 
 ;; UPDATES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                 " value: " value
                 (if alias (concat " alias: " alias) "")))))

(defun tn-target-info()
    (interactive)
    (let ((target (current-target)))
        (if target
            (show-info target)
            (no-target))))


;; COMMUNICATION ;;;;;;;;;;;;;;;;;;;;;;;

(defun insert-attr-sharability ()
    (interactive)
    (let ((r (read-character-as-number)))
        (insert (concat "\n                @sharability " (number-to-string (/ r 4.0)) "\n"))))

(defun insert-attr-weight ()
    (interactive)
    (let ((r (read-character-as-number)))
        (insert (concat "\n                @weight " (number-to-string (/ r 4.0)) "\n"))))

(defun copy-to-clipboard (g)
    (let ((buffer (get-buffer-create "*temp*")))
