         (error-message
             (concat "sharability " (number-to-string v) " is outside of range (0, 1]"))))
 
-(defun tn-set-target-sharability (expr)
-    (interactive)
-    (let ((n (number-shorthand-to-number expr)))
-        (if n (set-target-sharability (/ n 4.0)))))
-
 (defun set-target-weight (v)
     (if (and (> v 0) (<= v 1))
         (let ((target (current-target)))

(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)


(provide 'brain-mode)

                (target-has-children (not (equal json-false (cdr (assoc 'hasChildren json)))))
		        (target-alias (get-alias json))
		        (target-type (get-type json)))
		            (if target-id (puthash target-id json exo-atoms))
		            (if (not target-id) (error "missing target id"))
		            ;; black space at the end of the line makes the next line black when you enter a newline and continue typing
		            (let ((line "") (id-infix (create-id-infix target-id)))
