From de2b3f63d42df53215727a8032b81887c1ea01bc Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Tue, 20 Sep 2016 08:22:32 +0200 Subject: Emacs: Replace helm-dash with counsel-dash --- tag-emacs/emacs.d/init.org | 58 +++++++++++++++++++++++----------------------- 1 file changed, 29 insertions(+), 29 deletions(-) diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index 2527430..f1011e8 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -1053,39 +1053,39 @@ improves the normal help commands, mostly by making quitting them easier. (use-package ehelp :bind-keymap ("C-h" . ehelp-map)) #+END_SRC -** helm-dash +** counsel-dash -Emacs’ documentation is great to read from inside Emacs. Helm-dash +Emacs’ documentation is great to read from inside Emacs. Counsel-dash helps to make documentation for other languages easier to access #+BEGIN_SRC emacs-lisp - (defmacro ap/create-helm-dash-hook (mode docsets) - (let* ((mode-s (symbol-name mode)) - (fun (intern (concat "helm-dash-hook-" mode-s))) - (hook (intern (concat mode-s "-mode-hook")))) - `(progn - (defun ,fun () - (when (require 'helm-dash nil :noerror) - (-each (-difference ',docsets - (helm-dash-installed-docsets)) - #'helm-dash-install-docset) - (setq-local helm-dash-docsets ',docsets))) - (add-hook (quote ,hook) (function ,fun))))) - - (use-package helm-dash - :defer 20 - :defines helm-dash-docsets - :config (progn - (setq helm-dash-browser-func #'eww) - (ap/create-helm-dash-hook nginx ("Nginx")) - (ap/create-helm-dash-hook ansible ("Ansible")) - (ap/create-helm-dash-hook php ("PHP" "Symfony")) - (ap/create-helm-dash-hook twig ("Twig")) - (ap/create-helm-dash-hook js2 ("JavaScript" "NodeJS" "jQuery" "Express" "SailsJS" "Lo-Dash")) - (ap/create-helm-dash-hook markdown ("Markdown")) - (ap/create-helm-dash-hook saltstack ("SaltStack")) - (ap/create-helm-dash-hook clojure ("Clojure")) - (ap/create-helm-dash-hook sql ("PostgreSQL" "MySQL")))) + (defmacro ap/create-counsel-dash-hook (mode docsets) + (let* ((mode-s (symbol-name mode)) + (fun (intern (concat "counsel-dash-hook-" mode-s))) + (hook (intern (concat mode-s "-mode-hook")))) + `(progn + (defun ,fun () + (when (require 'counsel-dash nil :noerror) + (-each (-difference ',docsets + (helm-dash-installed-docsets)) + #'counsel-dash-install-docset) + (setq-local counsel-dash-docsets ',docsets))) + (add-hook (quote ,hook) (function ,fun))))) + + (use-package counsel-dash + :defer 20 + :defines counsel-dash-docsets + :config (progn + (setq counsel-dash-browser-func #'eww) + (ap/create-counsel-dash-hook nginx ("Nginx")) + (ap/create-counsel-dash-hook ansible ("Ansible")) + (ap/create-counsel-dash-hook php ("PHP" "Symfony")) + (ap/create-counsel-dash-hook twig ("Twig")) + (ap/create-counsel-dash-hook js2 ("JavaScript" "NodeJS" "jQuery" "Express" "SailsJS" "Lo-Dash")) + (ap/create-counsel-dash-hook markdown ("Markdown")) + (ap/create-counsel-dash-hook saltstack ("SaltStack")) + (ap/create-counsel-dash-hook clojure ("Clojure")) + (ap/create-counsel-dash-hook sql ("PostgreSQL" "MySQL")))) #+END_SRC ** discover-my-major -- cgit 1.4.1