@@ -126,6 +126,16 @@ must set it from minibuffer." (ditz-call-process "close" issue-id "switch") (error "Issue id not found")))) +(defun ditz-drop () + "Drop an issue." + (interactive) + (let ((issue-id nil)) + (setq issue-id (ditz-extract-thing-at-point ditz-issue-id-regex 1)) + (if issue-id + (when (yes-or-no-p (concat "Drop " issue-id " ")) + (ditz-call-process "drop" issue-id "switch")) + (error "Issue id not found")))) + (defun ditz-release () "Mark issues as released." (interactive) @@ -242,7 +252,9 @@ must set it from minibuffer." (define-key ditz-mode-map "s" 'ditz-show) (define-key ditz-mode-map "\C-m" 'ditz-show) +(define-key ditz-mode-map "A" 'ditz-add) (define-key ditz-mode-map "a" 'ditz-assign) +(define-key ditz-mode-map "D" 'ditz-drop) (define-key ditz-mode-map "e" 'ditz-edit) (define-key ditz-mode-map "c" 'ditz-close) (define-key ditz-mode-map "r" 'ditz-release) ditz.el d63f9d1d0a7d62c8e10b5bc8eff770fde183ab63 Ryan McGeary ryanongit@mcgeary.org http://github.com/kentaro/emacs-ditz/commit/e99a6bd5a1247187ba95c44443ce9e012e3e1e0a e99a6bd5a1247187ba95c44443ce9e012e3e1e0a 2008-07-13T10:13:55-07:00 2008-07-13T10:13:55-07:00 Added ditz-drop. Added 'A' and 'D' keys to the ditz-mode-map. cfb0c16f1499fd35c95e8846ccb327d4d0b4cd88 Ryan McGeary ryanongit@mcgeary.org