added function to kill all org buffers

This commit is contained in:
petrucci4prez 2018-09-16 13:19:57 -04:00
parent c08ae8f222
commit 68934c5562
1 changed files with 6 additions and 1 deletions

View File

@ -261,7 +261,7 @@ event of an error or nonlocal exit."
(and (stringp i) (and (stringp i)
(string-prefix-p prefix i))) (string-prefix-p prefix i)))
str-list)) str-list))
(defun nd/move-key (keymap-from keymap-to key) (defun nd/move-key (keymap-from keymap-to key)
"Move KEY from KEYMAP-FROM keymap to KEYMAP-TO keymap." "Move KEY from KEYMAP-FROM keymap to KEYMAP-TO keymap."
(define-key keymap-to key (lookup-key keymap-from key)) (define-key keymap-to key (lookup-key keymap-from key))
@ -349,6 +349,11 @@ desktop file exec directive."
(interactive) (interactive)
(mapc 'kill-buffer (buffer-list))) (mapc 'kill-buffer (buffer-list)))
(defun nd/org-close-all-buffers ()
"Kill all org buffers."
(interactive)
(mapc 'kill-buffer (org-buffer-list)))
(defun nd/open-urxvt () (defun nd/open-urxvt ()
"Launch urxvt in the current directory." "Launch urxvt in the current directory."
(interactive) (interactive)