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

EXWM: Default to domain in helm-pass

master
Pierre Neidhardt 2018-02-24 13:40:53 +01:00
parent 823ab1b508
commit d0fb11da32
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -107,7 +107,9 @@
(require 'helm-pass)
(helm :sources 'helm-source-pass
:input (and exwm-title
(car (last (split-string exwm-title " "))))
(let* ((url (car (last (split-string exwm-title " "))))
(domain (split-string url "\\.")))
(concat (nth (- (length domain) 2) domain) "." (nth (1- (length domain)) domain))))
:buffer "*helm-pass*"))
(exwm-input-set-key (kbd "s-p") #'ambrevar/helm-pass-for-page))