 (global-set-key "\C-cp" 'person) 
 (global-set-key "\C-cc" 'completed) 
 
-;;; Log keymap entries for my quick logs
-(define-key 'log-keymap "i" 'log_inbox) 
-(define-key 'log-keymap "r" 'log_reuben) 
-(define-key 'log-keymap "s" 'log_shoshana) 
-(define-key 'log-keymap "o" 'log_orit) 
-(define-key 'log-keymap "n" 'log_nicethings) 
-(define-key 'log-keymap "m" 'log_nicethingsme) 
-(define-key 'log-keymap "f" 'log_frustration) 
-(define-key 'log-keymap "b" 'log_observation) 
-(define-key 'log-keymap "p" 'log_person_info)
-(define-key 'log-keymap "g" 'log_gift_idea)
-(define-key 'log-keymap "d" 'log_did_something)
-
 ; turn off word complete in minibuffer completion. Allows spaces
 ;(define-key minibuffer-local-completion-map 'space nil)
 

  (interactive)
  (mapcar 'double-entry (read-lines "~/DropBox/TaskTracking/Names.txt")))

(defun list-logs ()
  "Read in the files in the Work/WorkTracking directory, "
  (interactive)
  (setq list (directory-files "~\\Documents\\Work\\WorkTrackingNotes\\"))
;  (print list)
  (setq notes nil)
  (while list
    (setq head (pop list))
    (if (>= (length head) 7) 
	(if (string-equal (substring head -7 nil ) "Log.txt") 
	    (progn (setq notename head) 
		   (if (member (list notename notename) notes) nil  
		     (progn (push (list notename notename) notes))))))
    )
  notes
)

(defun log-name-format (name)
  "Take a file name and make sure it ends with Log.txt. Add it if it doesn't "
    (if (and (>= (length name) 7) (string-equal (substring name -7 nil ) "Log.txt"))
            name ; ends appropriately. Use name
          (concat name "Log.txt"))       ; doesn't end appropriate. Add Log.txt
)

(defun process-log (filename note-list)
  "If the file ends with Log.txt, return it, otherwise return nil"
  (if (and (>= (length filename) 7) (string-equal (substring filename -7 nil ) "Log.txt"))
      (nconc note-list (list filename))
    note-list))

(defun process-logs (file-list note-list)
  "Take a list of files, and return a not list combining note-list and the notes from the file list"
  (if (null file-list)
      note-list
    (process-logs (cdr file-list) (nconc (list (car file-list)) note-list))))

(defun list-logs2 ()
  "Read in the files in the Work/WorkTracking directory, "
  (interactive)
  (process-logs (directory-files "~\\Documents\\Work\\WorkTrackingNotes\\") nil))


(defun readnames ()
  "Read the list of names that we've saved"
  (interactive)

      lst
      (nconc lst (list item))))

; Open up the tasks file
(defun tasks ()
  (interactive)
