   (print text))
 
 (defun log_something (file text)
-"Function to quickly log something. Used by topic specific interactive functions"
+"Function to quickly log something.  Used by topic specific interactive functions."
   (find-file file)
   (goto-char (point-max))
   (insert "\n")



(defun list-people ()
  "Read in TaskTracking/Names.txt to use for completing reads"
  (interactive)
  (mapcar 'double-entry (read-lines "~/DropBox/TaskTracking/Names.txt")))

(defun readnames ()
  "Read the list of names that we've saved"
  (interactive)
;  (setq mybuffer (find-file-noselect "~/DropBox/TaskTracking/Names.txt"))
  (goto-char (point-min) (find-file-noselect "~/DropBox/TaskTracking/Names.txt"))

)

(defun alist-from-list (lst)
  "Make a simple alist from a list LST.  car is cdr for each entry."
  (mapcar #'(lambda (x) (list x x)) lst))

(defun unique-append (item lst)
  "Added ITEM to list if it isn't already in LST."
  (if (member item lst)
      lst
      (nconc lst (list item))))
