mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

elfeed: Bind s-t to helm-org-switch

master
Pierre Neidhardt 2019-03-03 12:26:57 +01:00
parent 413f9db44f
commit 9cf65c7565
2 changed files with 12 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.emacs.d/lisp/init-exwm.el
View File

@ -78,8 +78,10 @@
(exwm-input-set-key (kbd "C-6") #'evil-switch-to-windows-last-buffer)) (exwm-input-set-key (kbd "C-6") #'evil-switch-to-windows-last-buffer))
;;; Emacs mode shortcuts. ;;; Emacs mode shortcuts.
(exwm-input-set-key (kbd "s-t") #'ambrevar/org-switch-agenda-file) (if (not (fboundp 'helm-org-switch))
(exwm-input-set-key (kbd "s-T") #'ambrevar/org-switch-agenda-file-other-window) (exwm-input-set-key (kbd "s-t") (lambda () (find-file (car org-agenda-files))))
(exwm-input-set-key (kbd "s-t") #'helm-org-switch)
(exwm-input-set-key (kbd "s-T") #'helm-org-switch-other-window))
(if (not (fboundp 'helm-eshell-switch)) (if (not (fboundp 'helm-eshell-switch))
(exwm-input-set-key (kbd "s-<return>") #'eshell) (exwm-input-set-key (kbd "s-<return>") #'eshell)
(exwm-input-set-key (kbd "s-<return>") #'helm-eshell-switch) (exwm-input-set-key (kbd "s-<return>") #'helm-eshell-switch)

24
.emacs.d/lisp/init-org.el
View File

@ -25,23 +25,15 @@
;;; Agendas. ;;; Agendas.
(add-to-list 'org-agenda-files "~/personal/todo/todo.org.gpg") (add-to-list 'org-agenda-files "~/personal/todo/todo.org.gpg")
(defun ambrevar/org-switch-agenda-file (&optional other-window) ; TODO: Replace with `helm-defswitch'. (load "~/personal/todo/agenda-list.el" 'noerror)
"Switch between org-agenda and the first org-agenda-files."
(interactive "P")
(if (and buffer-file-name
(member (expand-file-name buffer-file-name) (mapcar 'expand-file-name org-agenda-files)))
(org-agenda)
(let ((b (find-buffer-visiting (car org-agenda-files))))
(if b
(if (get-buffer-window b)
(select-window (get-buffer-window b))
(funcall (if other-window 'switch-to-buffer-other-window 'switch-to-buffer) b))
(funcall (if other-window 'find-file-other-window 'find-file) (car org-agenda-files))))))
(defun ambrevar/org-switch-agenda-file-other-window () (when (require 'patch-helm nil 'noerror)
"Like `ambrevar/org-switch-agenda-file' but use other window if possible." (helm-defswitcher
(interactive) "org"
(ambrevar/org-switch-agenda-file t)) (lambda (b)
(when (buffer-file-name b)
(member (file-truename (buffer-file-name b)) (mapcar #'file-truename org-agenda-files))))
(lambda () (find-file-noselect (car org-agenda-files)))))
;;; Set PDF association in Org-mode (original is 'default). ;;; Set PDF association in Org-mode (original is 'default).
(setcdr (assoc "\\.pdf\\'" org-file-apps) 'emacs) (setcdr (assoc "\\.pdf\\'" org-file-apps) 'emacs)