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

elfeed: Bind s-e to helm-eww-switch

master
Pierre Neidhardt 2019-03-03 12:01:18 +01:00
parent 8aaa29084a
commit c1740df6e0
2 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
.emacs.d/lisp/init-eww.el
View File

@ -69,24 +69,14 @@ If BUFFERS is not specified, then reload all buffers."
(when (derived-mode-p 'eww-mode) (when (derived-mode-p 'eww-mode)
(eww-reload))))) (eww-reload)))))
(defun ambrevar/eww-switch-back () ; TODO: Replace with `helm-defswitch'. (when (require 'patch-helm nil 'noerror)
"Switch to the *eww* buffer." (helm-defswitcher
(interactive) "eww"
(let (buffer-info) (lambda (b)
(dolist (buffer (buffer-list)) (with-current-buffer b
(with-current-buffer buffer (derived-mode-p 'eww-mode)))
(when (derived-mode-p 'eww-mode) (lambda () (call-interactively 'eww))
(push buffer buffer-info)))) helm-eww))
(setq buffer-info (nreverse buffer-info))
(if buffer-info
(if (derived-mode-p 'eww-mode)
(if (fboundp 'helm-eww)
(helm-eww)
(switch-to-buffer (completing-read "EWW: " (mapcar 'buffer-name buffer-info))))
(switch-to-buffer (car buffer-info)))
(if (fboundp 'helm-eww)
(helm-eww)
(call-interactively 'eww)))))
(defun ambrevar/eww (url) (defun ambrevar/eww (url)
"Fetch URL and render the page. "Fetch URL and render the page.

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

@ -104,8 +104,10 @@
(exwm-input-set-key (kbd "s-n") #'elfeed) (exwm-input-set-key (kbd "s-n") #'elfeed)
(exwm-input-set-key (kbd "s-n") #'helm-elfeed-switch) (exwm-input-set-key (kbd "s-n") #'helm-elfeed-switch)
(exwm-input-set-key (kbd "s-N") #'helm-elfeed-switch-other-window)) ; "n" for "news" (exwm-input-set-key (kbd "s-N") #'helm-elfeed-switch-other-window)) ; "n" for "news"
(exwm-input-set-key (kbd "s-e") #'ambrevar/eww-switch-back) (if (not (fboundp 'helm-eww-switch))
(exwm-input-set-key (kbd "s-E") #'eww) (exwm-input-set-key (kbd "s-e") #'eww)
(exwm-input-set-key (kbd "s-e") #'helm-eww-switch)
(exwm-input-set-key (kbd "s-E") #'helm-eww-switch-other-window))
(when (fboundp 'helm-pass) (when (fboundp 'helm-pass)
(defun ambrevar/helm-pass-for-page () ; TODO: Share with upstream. (defun ambrevar/helm-pass-for-page () ; TODO: Share with upstream.