org: add drawer evil-surround pair

cpaulik · Nov 6, 2015 · 3fb3877 · 3fb3877
1 parent 5e05b79
commit 3fb3877
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/layers/org/packages.el b/layers/org/packages.el
@@ -16,6 +16,7 @@
     company-emoji
     emoji-cheat-sheet-plus
     (evil-org :location local)
+    evil-surround
     gnuplot
     htmlize
     ;; org is installed by `org-plus-contrib'
@@ -53,6 +54,14 @@
         "O" 'evil-open-above)
       (spacemacs|diminish evil-org-mode " ⓔ" " e"))))
 
+(defun org/post-init-evil-surround ()
+  (defun spacemacs/add-org-surrounds ()
+    (push '(?: . spacemacs//surround-drawer) evil-surround-pairs-alist))
+  (add-hook 'org-mode-hook 'spacemacs/add-org-surrounds)
+  (defun spacemacs//surround-drawer ()
+    (let ((dname (read-from-minibuffer "" "")))
+      (cons (format ":%s:" (or dname "")) ":END:"))))
+
 (defun org/init-gnuplot ()
   (use-package gnuplot
     :defer t