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

Helm: Update hack to display bindings in helm-apropos

master
Pierre Neidhardt 2019-03-03 14:08:10 +01:00
parent b9ce4d2888
commit f3a66adf8f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
.emacs.d/lisp/init-helm.el
View File

@ -99,8 +99,8 @@
'below)))))
(setq helm-split-window-preferred-function 'ambrevar/helm-split-window-combined-fn)
;;; Add bindings to `helm-apropos`. TODO: Does not work most of the times.
;;; https://github.com/emacs-helm/helm/issues/1140
;;; Add bindings to `helm-apropos`. See
;;; https://github.com/emacs-helm/helm/issues/1140.
(defun ambrevar/helm-def-source--emacs-commands (&optional default)
(helm-build-in-buffer-source "Commands"
:init `(lambda ()
@ -110,9 +110,14 @@
'helm-apropos-default-sort-fn)
:candidate-transformer 'helm-M-x-transformer-1
:nomark t
:action '(("Describe Function" . helm-describe-function)
("Find Function" . helm-find-function)
:persistent-action (lambda (candidate)
(helm-elisp--persistent-help
candidate 'helm-describe-function))
:persistent-help "Toggle describe command"
:action '(("Describe function" . helm-describe-function)
("Find function" . helm-find-function)
("Info lookup" . helm-info-lookup-symbol))))
(advice-add 'helm-def-source--emacs-commands :override 'ambrevar/helm-def-source--emacs-commands)
;;; Make `helm-mini' almighty.
(require 'helm-bookmark)