emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improve org integration

Browse source
This commit is contained in:
Henrik Lissner 2015-11-23 15:21:24 -05:00
parent 1b67819fc7
commit 060f9cd9b1
6 changed files with 146 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/core-editor.el
View file

@ -188,6 +188,8 @@ enable multiple minor modes for the same regexp.")
(sp-local-pair "/*\n" "\n */" :post-handlers '(("||[i]" "RET"))))
(sp-with-modes '(c-mode c++-mode php-mode java-mode)
(sp-local-pair "/*" "" :post-handlers '((" ||\n[i]*/" "RET"))))
(sp-with-modes '(org-mode)
(sp-local-pair "{" nil))
(after! yasnippet
(advice-add 'yas-expand :before 'sp-remove-active-pair-overlay))

7
core/core-popup.el
View file

@ -17,9 +17,9 @@
("*Flycheck errors*" :position bottom :height 15 :stick t)
("^\\*[Hh]elm.*?\\*\\'" :regexp t :position bottom :height 0.2)
("^\\*Org-Babel.*\\*$" :regexp t :position bottom :height 15 :tail t)
;; ("^\\*Org .*\\*$" :regexp t :position bottom :height 15 :stick t)
;; ("^\\*org .*\\*$" :regexp t :position bottom :height 15 :stick t)
("*Agenda Commands*" :position bottom :height 0.5)
("*Org todo*" :position bottom :height 5)
(" *Org todo*" :position bottom :height 5)
("*Org Links*" :position bottom :height 2)
("^\\*CPU-Profiler-Report .+\\*$" :regexp t :position bottom :height 0.35)
))
@ -125,7 +125,8 @@
(defun org-switch-to-buffer-other-window (&rest args)
(mapc (lambda (b)
(popwin:popup-buffer (if (bufferp b) b (get-buffer-create b)) :height 0.5))
(let ((buf (if (stringp b) (get-buffer-create b) b)))
(popwin:pop-to-buffer buf t t)))
args)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

14
core/lib/defuns-helm.el
View file

@ -90,19 +90,5 @@
(interactive "<a><!>")
(if bang (helm-multi-swoop-all search) (helm-swoop :$query search)))
;;;###autoload
(defun narf/helm-org-search (&optional directory)
(interactive)
(require 'helm-ag)
(require 'helm-deft)
(let ((dir (or directory org-directory)))
(let ((helm-deft-dir-list `(,dir))
(default-directory dir)
(helm-ag--default-directory dir))
(helm :sources `(,(if directory
'helm-source-deft-fn
'helm-source-projectile-files-list)
helm-source-do-ag)))))
(provide 'defuns-helm)
;;; defuns-helm.el ends here