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

Discard buffer from marker, switch to it when asked

Browse source
This commit is contained in:
Fabien Dubosson 2015-10-08 18:09:22 +02:00 committed by Eivind Fonn
parent 6442e00b2e
commit 8d3c59c78f
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
layers/+distribution/spacemacs-base/local/helm-spacemacs/helm-spacemacs.el
View file

@ -265,12 +265,16 @@
(re-search-forward (format "^[a-z\s\\(\\-]*%s" candidate)) (re-search-forward (format "^[a-z\s\\(\\-]*%s" candidate))
(beginning-of-line)) (beginning-of-line))
(defvar helm-spacemacs--faq-filename
(concat spacemacs-docs-directory "FAQ.org")
"Location of the FAQ file.")
(defun helm-spacemacs//faq-source () (defun helm-spacemacs//faq-source ()
"Construct the helm source for the FAQ." "Construct the helm source for the FAQ."
`((name . "FAQ") `((name . "FAQ")
(candidates . ,(helm-spacemacs//faq-candidates)) (candidates . ,(helm-spacemacs//faq-candidates))
(candidate-number-limit) (candidate-number-limit)
(action . (("Go to question" . helm-org-goto-marker))))) (action . (("Go to question" . helm-spacemacs//faq-goto-marker)))))
(defun helm-spacemacs//faq-candidates () (defun helm-spacemacs//faq-candidates ()
(delq nil (mapcar (lambda (c) (delq nil (mapcar (lambda (c)
@ -280,9 +284,18 @@
(match-string 2 str)) (match-string 2 str))
(cdr c))))) (cdr c)))))
(with-temp-buffer (with-temp-buffer
(insert-file-contents (concat spacemacs-docs-directory "FAQ.org")) (insert-file-contents helm-spacemacs--faq-filename)
(org-mode) (org-mode)
(helm-get-org-candidates-in-file (current-buffer) 2 8 nil t))))) (mapcar '(lambda (candidate)
`(,(car candidate) . ,(marker-position (cdr candidate))))
(helm-get-org-candidates-in-file (current-buffer) 2 8 nil t))
))))
(defun helm-spacemacs//faq-goto-marker (marker)
(find-file helm-spacemacs--faq-filename)
(goto-char marker)
(org-show-context)
(org-show-entry))
(provide 'helm-spacemacs) (provide 'helm-spacemacs)