Comment on all replaceable switchers

master
Pierre Neidhardt 2019-02-22 18:36:09 +01:00
parent 155a4f8a32
commit c03d09787b
4 changed files with 4 additions and 5 deletions

View File

@ -63,7 +63,7 @@ visit otherwise."
(switch-to-buffer "*elfeed-search*"))
(define-key elfeed-show-mode-map "q" #'ambrevar/elfeed-kill-entry)
(defun ambrevar/elfeed-switch-back ()
(defun ambrevar/elfeed-switch-back () ; TODO: Replace with `helm-defswitch'.
"Back to the last elfeed buffer, entry or search."
(interactive)
(let ((buffer (get-buffer "*elfeed-entry*")))

View File

@ -69,7 +69,7 @@ If BUFFERS is not specified, then reload all buffers."
(when (derived-mode-p 'eww-mode)
(eww-reload)))))
(defun ambrevar/eww-switch-back ()
(defun ambrevar/eww-switch-back () ; TODO: Replace with `helm-defswitch'.
"Switch to the *eww* buffer."
(interactive)
(let (buffer-info)

View File

@ -102,8 +102,7 @@
"<f6>" (lambda () (interactive) (async-byte-recompile-directory (file-name-directory (buffer-file-name)))))
;;; Common LISP.
;; TODO: Somehow this does not work when a EXWM is focused.
(defun ambrevar/slime-switch-to-repl ()
(defun ambrevar/slime-switch-to-repl () ; TODO: Replace with `helm-defswitch'.
(interactive)
(pcase (length slime-net-processes)
(0 (slime))

View File

@ -25,7 +25,7 @@
;;; Agendas.
(add-to-list 'org-agenda-files "~/personal/todo/todo.org.gpg")
(defun ambrevar/org-switch-agenda-file (&optional other-window)
(defun ambrevar/org-switch-agenda-file (&optional other-window) ; TODO: Replace with `helm-defswitch'.
"Switch between org-agenda and the first org-agenda-files."
(interactive "P")
(if (and buffer-file-name