Helm/EXWM: Integrate Strawberry.
parent
43f674f710
commit
c33940e5cf
|
@ -113,12 +113,24 @@ KEYS is passed to `kbd'."
|
||||||
(ambrevar/exwm-global-set-key "s-v" #'helm-selector-magit)
|
(ambrevar/exwm-global-set-key "s-v" #'helm-selector-magit)
|
||||||
(exwm-input-set-key (kbd "s-V") #'magit-status))
|
(exwm-input-set-key (kbd "s-V") #'magit-status))
|
||||||
(exwm-input-set-key (kbd "s-v") #'magit-status)))
|
(exwm-input-set-key (kbd "s-v") #'magit-status)))
|
||||||
(when (fboundp 'emms-all)
|
|
||||||
|
(cond
|
||||||
|
((executable-find "strawberry")
|
||||||
|
(defun ambrevar/exwm-strawberry ()
|
||||||
|
(interactive)
|
||||||
|
(helm-exwm-switch "strawberry"))
|
||||||
|
(defun ambrevar/exwm-strawberry-other-window ()
|
||||||
|
(interactive)
|
||||||
|
(helm-exwm-switch "strawberry" nil :other-window))
|
||||||
|
(ambrevar/exwm-global-set-key "s-a" #'ambrevar/exwm-strawberry)
|
||||||
|
(ambrevar/exwm-global-set-key "s-A" #'ambrevar/exwm-strawberry-other-window))
|
||||||
|
|
||||||
|
((fboundp 'emms-all)
|
||||||
(exwm-input-set-key (kbd "s-a") #'emms-smart-browse)
|
(exwm-input-set-key (kbd "s-a") #'emms-smart-browse)
|
||||||
(exwm-input-set-key (kbd "S-s-<kp-enter>") #'emms-pause)
|
(exwm-input-set-key (kbd "S-s-<kp-enter>") #'emms-pause)
|
||||||
(if (fboundp 'helm-emms)
|
(if (fboundp 'helm-emms)
|
||||||
(ambrevar/exwm-global-set-key "s-A" #'helm-emms)
|
(ambrevar/exwm-global-set-key "s-A" #'helm-emms)
|
||||||
(exwm-input-set-key (kbd "s-A") #'emms)))
|
(exwm-input-set-key (kbd "s-A") #'emms))))
|
||||||
|
|
||||||
(when (fboundp 'helm-pass)
|
(when (fboundp 'helm-pass)
|
||||||
(ambrevar/exwm-global-set-key "s-p" #'helm-pass))
|
(ambrevar/exwm-global-set-key "s-p" #'helm-pass))
|
||||||
|
|
|
@ -293,13 +293,17 @@ With prefix argument, UPDATE the databases with custom uptions thanks to the
|
||||||
(and (not (string-match-p ffap-url-regexp candidate))
|
(and (not (string-match-p ffap-url-regexp candidate))
|
||||||
helm-ff-default-directory
|
helm-ff-default-directory
|
||||||
(locate-dominating-file helm-ff-default-directory ".git")))
|
(locate-dominating-file helm-ff-default-directory ".git")))
|
||||||
1)
|
2)
|
||||||
(helm-source-add-action-to-source-if
|
(helm-source-add-action-to-source-if
|
||||||
"Add to EMMS playlist"
|
(format "Add to %s playlist"
|
||||||
|
(if (executable-find "strawberry")
|
||||||
|
"strawberry"
|
||||||
|
"EMMS"))
|
||||||
(lambda (_candidate)
|
(lambda (_candidate)
|
||||||
(when (require 'emms nil 'noerror)
|
(let ((adder)))
|
||||||
(dolist (c (helm-marked-candidates))
|
(or (when (executable-find "strawberry")
|
||||||
(emms-add-directory-tree c))))
|
(apply #'call-process
|
||||||
|
"strawberry" nil nil nil (helm-marked-candidates)))))
|
||||||
source
|
source
|
||||||
(lambda (candidate)
|
(lambda (candidate)
|
||||||
(or (file-directory-p candidate)
|
(or (file-directory-p candidate)
|
||||||
|
|
Loading…
Reference in New Issue