diff options
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 27 |
1 files changed, 5 insertions, 22 deletions
@@ -954,22 +954,6 @@ (jao-define-attached-buffer "^\\*xref\\*")) ;;;; same mode -(defun jao-buffer-same-mode (&optional mode pre-fn switch-fn) - (interactive) - (let* ((mode (or mode major-mode)) - (modes (if (symbolp mode) (list mode) mode)) - (pred `(lambda (b) - (let ((b (get-buffer (if (consp b) (car b) b)))) - (member (buffer-local-value 'major-mode b) - ',modes)))) - (buff (read-buffer "Buffer: " nil t pred))) - (when pre-fn (funcall pre-fn)) - (if switch-fn (funcall switch-fn buff) (switch-to-buffer buff)))) - -(defun jao-buffer-same-mode-cmd (&optional pop) - (interactive "P") - (jao-buffer-same-mode nil nil (and pop #'pop-to-buffer))) - (global-set-key (kbd "C-c C-b") #'jao-buffer-same-mode-cmd) ;;;; projects @@ -2064,6 +2048,11 @@ (interactive) (sieve-manage "imap.mailbox.org")) +(defun jao-select-pdf () + (interactive) + (jao-buffer-same-mode '(pdf-view-mode doc-view-mode org-mode) + #'jao-afio-goto-docs)) + (jao-d-l (progn (defun jao-open-firefox () (interactive) (jao-mac-open "-a Firefox")) @@ -2099,12 +2088,6 @@ ("o" "open doc" jao-open-doc) ("c" "view cache" doc-view-dired-cache) ("s" "spotlight" jao-transient-spotlight)] - ;; ["External" - ;; ("xn" "browse NNW article" jao-nnw-browse-current-article) - ;; ("xs" "browse safary article" jao-safari-internal-browse) - ;; ("xk" "open skim doc" jao-open-skim-doc-in-emacs) - ;; ("xe" "choose an emoji" ns-do-show-character-palette - ;; :if display-graphic-p)] ["Blog" ("bn" "create post" jao-org-static-blog-create-new-post) ("bd" "create draft" jao-org-static-blog-create-new-draft) |