Commits

seanmcl committed 289abd3

toggle watch from project buffer

  • Participants
  • Parent commits 6544197

Comments (0)

Files changed (1)

elisp/omake/omake-project.el

             (message "Unwatched: %s" ids)
             ))))))
 
+(defun Omake.Project.toggle-watch (id)
+  (if (Omake.Project.is-watching id)
+      (Omake.Project.unwatch id)
+    (Omake.Project.watch id)))
+
 (defun Omake.Project.to-string (p)
   (assert (Omake.Project.is p))
   (let* ((id (Omake.Project.id p))
         (lambda ()
           "Watch the project on the given line."
           (interactive)
-          (Omake.Project.watch id)))
-       (unwatch
-        (lambda ()
-          "Unwatch the project on the given line."
-          (interactive)
-          (Omake.Project.unwatch id)))
+          (Omake.Project.toggle-watch id)))
        (kill
         (lambda ()
           "Kill the project on the given line."
           (Omake.next-error nil id)))
        (line-keymap (make-sparse-keymap))
        (_ (define-key line-keymap "w" watch))
-       (_ (define-key line-keymap "u" unwatch))
        (_ (define-key line-keymap "k" kill))
        (_ (define-key line-keymap "l" goto-error))
        (fullroot (expand-file-name root))