 
 (defun truncon ()
   (interactive)
-  (Setq truncate-lines t)
+  (setq truncate-lines t)
 )
 
 (defun truncoff ()

(defun projects ()
  (interactive)
  (find-file "~/DropBox/TaskTracking/projects.txt"))

; Add a person to the Names.txt file if they aren't already in there.
(defun addperson (name)
  (if (member name (read-lines "~/DropBox/TaskTracking/Names.txt"))
      nil
    (append-file name "~/DropBox/TaskTracking/Names.txt")))

; Add a person the people file
(define-key minibuffer-local-completion-map
             " " 'self-insert-command)
 (define-key minibuffer-local-must-match-map
             " " 'self-insert-command)
(defun person (name)
  (interactive (list (completing-read "Person's Name: " (list-people) nil nil nil)))
  (append-file (concat (datestamp) " " name) "~/DropBox/TaskTracking/People.txt")
  (addperson name))


; Mark a task as completed. Delete from Task file and move to Completed Tasks with timestamp
(defun completed ()

  (list var var))

(defun read-lines (file)
  "Return a list of lines in FILE."
  (interactive)
  (with-temp-buffer
