Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Added ditz-drop. Added 'A' and 'D' keys to the ditz-mode-map.

  • Loading branch information...
commit e99a6bd5a1247187ba95c44443ce9e012e3e1e0a 1 parent d63f9d1
@rmm5t rmm5t authored
Showing with 12 additions and 0 deletions.
  1. +12 −0 ditz.el
View
12 ditz.el
@@ -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)
Please sign in to comment.
Something went wrong with that request. Please try again.