diff options
| author | Bastien <bzg@gnu.org> | 2020-01-26 19:05:08 +0100 |
|---|---|---|
| committer | Bastien <bzg@gnu.org> | 2020-01-26 19:05:08 +0100 |
| commit | 933a9ee993834c16059acca5f72ce1731861448a (patch) | |
| tree | cb94f296e5cc76ac0bfaad5f2d706b3212c03207 | |
| parent | 8237a5d33b70592920c4ae796064d76d136811bf (diff) | |
| download | org-mode-933a9ee993834c16059acca5f72ce1731861448a.tar.gz | |
org-attach.el: Enhance dispatch buffer navigation
* lisp/org-attach.el (org-attach): Enhance dispatch buffer
navigation.
Thanks to Vladimir Nikishkin for raising this issue.
| -rw-r--r-- | lisp/org-attach.el | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/lisp/org-attach.el b/lisp/org-attach.el index 546b000..1d53644 100644 --- a/lisp/org-attach.el +++ b/lisp/org-attach.el @@ -260,8 +260,11 @@ Shows a list of commands and prompts for another key to execute a command." (save-excursion (save-window-excursion (unless org-attach-expert - (with-output-to-temp-buffer "*Org Attach*" - (princ + (switch-to-buffer-other-window (get-buffer-create "*Org Attach*")) + (erase-buffer) + (setq cursor-type nil + header-line-format "Use SPC, DEL, C-n or C-p to navigate.") + (insert (concat "Attachment folder:\n" (or dir "Can't find an existing attachment-folder") @@ -284,11 +287,19 @@ Shows a list of commands and prompts for another key to execute a command." "Invalid `org-attach-commands' item: %S" entry)))) org-attach-commands - "\n")))))) + "\n"))))) (org-fit-window-to-buffer (get-buffer-window "*Org Attach*")) - (message "Select command: [%s]" - (concat (mapcar #'caar org-attach-commands))) - (setq c (read-char-exclusive)) + (let ((msg (format "Select command: [%s]" + (concat (mapcar #'caar org-attach-commands))))) + (message msg) + (setq c (read-char-exclusive)) + (while (memq c '(14 16 32 127)) + (cond ((= c 14) (ignore-errors (call-interactively 'scroll-up-line))) + ((= c 16) (ignore-errors (call-interactively 'scroll-down-line))) + ((= c 32) (ignore-errors (call-interactively 'scroll-up))) + ((= c 127) (ignore-errors (call-interactively 'scroll-down)))) + (message msg) + (setq c (read-char-exclusive)))) (and (get-buffer "*Org Attach*") (kill-buffer "*Org Attach*")))) (let ((command (cl-some (lambda (entry) (and (memq c (nth 0 entry)) (nth 1 entry))) |