TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Show documentation in helm-spacemacs.

Browse source
This commit is contained in:
person808 2015-06-06 07:24:48 -10:00 committed by syl20bnr
parent a572f2edee
commit e6dedabcdc
1 changed files with 29 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
spacemacs/extensions/helm-spacemacs/helm-spacemacs.el
View file

@ -26,6 +26,7 @@
;;; Code:
(require 'f)
(require 'ht)
(require 'helm)
(require 'core-configuration-layer)
@ -71,11 +72,38 @@
(interactive)
(helm-spacemacs-mode)
(helm :buffer "*helm: spacemacs*"
:sources `(,(helm-spacemacs//layer-source)
:sources `(,(helm-spacemacs//documentation-source)
,(helm-spacemacs//layer-source)
,(helm-spacemacs//package-source)
,(helm-spacemacs//dotspacemacs-source)
,(helm-spacemacs//toggle-source))))
(defun helm-spacemacs//documentation-source ()
"Construct the helm source for the documentation section."
`((name . "Documentation")
(candidates . ,(helm-spacemacs//documentation-candidates))
(candidate-number-limit)
(action . (("Open documentation" . helm-spacemacs//documentation-action-open-file)))))
(defun helm-spacemacs//documentation-candidates ()
(let (result)
(dolist (file-path (f-files spacemacs-docs-directory))
(push (f-relative file-path spacemacs-docs-directory) result))
(sort result 'string<)))
(defun helm-spacemacs//documentation-action-open-file (candidate)
"Open documentation FILE."
(let ((file (concat spacemacs-docs-directory candidate)))
(if (and (equal (file-name-extension file) "md")
(not helm-current-prefix-arg))
(condition-case nil
(with-current-buffer (find-file-noselect file)
(gh-md-render-buffer)
(kill-this-buffer))
;; if anything fails, fall back to simply open file
(find-file file))
(find-file file))))
(defun helm-spacemacs//layer-source ()
"Construct the helm source for the layer section."
`((name . "Layers")