wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

whitespace

Browse Source
This commit is contained in:
Ivan Malison 2016-06-05 13:15:57 -07:00
parent 6c41d847c5
commit e70025671d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/emacs.d/init.el
View File

@ -1656,17 +1656,20 @@ marking if it still had that."
:config :config
(progn (progn
(setq helm-split-window-default-side 'same) (setq helm-split-window-default-side 'same)
(defun helm-source-org-capture-templates () (defun helm-source-org-capture-templates ()
(helm-build-sync-source "Org Capture Templates:" (helm-build-sync-source "Org Capture Templates:"
:candidates (cl-loop for template in org-capture-templates :candidates (cl-loop for template in org-capture-templates
collect `(,(nth 1 template) . ,(nth 0 template))) collect `(,(nth 1 template) . ,(nth 0 template)))
:action '(("Do capture" . (lambda (template-shortcut) :action '(("Do capture" . (lambda (template-shortcut)
(org-capture nil template-shortcut)))))) (org-capture nil template-shortcut))))))
(defun helm-org-capture-templates () (defun helm-org-capture-templates ()
(interactive) (interactive)
(helm :sources (helm-source-org-capture-templates) (helm :sources (helm-source-org-capture-templates)
:candidate-number-limit 99999 :candidate-number-limit 99999
:buffer "*helm org capture templates*")) :buffer "*helm org capture templates*"))
(cl-defun helm-org-headings-in-buffer () (cl-defun helm-org-headings-in-buffer ()
(interactive) (interactive)
(helm :sources (helm-source-org-headings-for-files (helm :sources (helm-source-org-headings-for-files
@ -1683,6 +1686,7 @@ marking if it still had that."
(volatile) (volatile)
(requires-pattern . 3) (requires-pattern . 3)
(delayed))) (delayed)))
(defun helm-c-zsh-history-set-candidates (&optional request-prefix) (defun helm-c-zsh-history-set-candidates (&optional request-prefix)
(let ((pattern (replace-regexp-in-string (let ((pattern (replace-regexp-in-string
" " ".*" " " ".*"
@ -1711,6 +1715,7 @@ marking if it still had that."
(use-package helm-descbinds (use-package helm-descbinds
:demand t :demand t
:config (helm-descbinds-mode 1)) :config (helm-descbinds-mode 1))
(use-package org-projectile (use-package org-projectile
:demand t :demand t
:bind (("C-c n p" . imalison:helm-org-todo)) :bind (("C-c n p" . imalison:helm-org-todo))