 ;;    ox-twbs - Twitter Bootstrap
 ;;    ox-odt - ODT, doc export
 ;;    Custom Org Export related “packages”
+;;  Easy Templates
 ;;  Bindings
 ;;  Notes
 

          :load-path "elisp/org-include-img-from-archive")
        ))

;;; Bindings
    ;; http://endlessparentheses.com/emacs-narrow-or-widen-dwim.html
    ;; Pressing `C-x C-s' while editing org source code blocks saves and exits
    ;; the edit.
    (with-eval-after-load 'org-src
      (bind-key "C-x C-s" #'org-edit-src-exit org-src-mode-map))

    ;; http://orgmode.org/manual/Easy-Templates.html
    ;; http://oremacs.com/2015/03/07/hydra-org-templates
    ;; https://github.com/abo-abo/hydra/wiki/Org-mode-block-templates
    (defun hot-expand (str)
      "Expand org template."
      (insert str)
      (org-try-structure-completion))

    (defhydra hydra-org-template (:color blue
                                  :hint nil)
      "
org-template:  _c_enter        _s_rc          e_x_ample           _v_erilog        _t_ext           _I_NCLUDE:
               _l_atex         _h_tml         _V_erse             _m_atlab         _L_aTeX:         _H_TML:
               _a_scii         _q_uote        _e_macs-lisp        _S_hell          _i_ndex:         _A_SCII:
"
      ("s" (hot-expand "<s")) ; #+BEGIN_SRC ... #+END_SRC
      ("e" (progn
             (hot-expand "<s")
             (insert "emacs-lisp")
             (forward-line)))
      ("v" (progn
             (hot-expand "<s")
             (insert "systemverilog")
             (forward-line)))
      ("m" (progn
             (hot-expand "<s")
             (insert "matlab")
             (forward-line)))
      ("S" (progn
             (hot-expand "<s")
             (insert "sh")
             (forward-line)))
      ("t" (progn
             (hot-expand "<s")
             (insert "text")
             (forward-line)))
      ("x" (hot-expand "<e")) ; #+BEGIN_EXAMPLE ... #+END_EXAMPLE
      ("q" (hot-expand "<q")) ; #+BEGIN_QUOTE ... #+END_QUOTE
      ("V" (hot-expand "<v")) ; #+BEGIN_VERSE ... #+END_VERSE
      ("c" (hot-expand "<c")) ; #+BEGIN_CENTER ... #+END_CENTER
      ("l" (hot-expand "<l")) ; #+BEGIN_LaTeX ... #+END_LaTeX
      ("L" (hot-expand "<L")) ; #+LaTeX:
      ("h" (hot-expand "<h")) ; #+BEGIN_HTML ... #+END_HTML
      ("H" (hot-expand "<H")) ; #+HTML:
      ("a" (hot-expand "<a")) ; #+BEGIN_ASCII ... #+END_ASCII
      ("A" (hot-expand "<A")) ; #+ASCII:
      ("i" (hot-expand "<i")) ; #+INDEX: line
      ("I" (hot-expand "<I")) ; #+INCLUDE: line
      ("<" self-insert-command "<")
      ("o" nil         "quit"))

    (defun modi/org-template-maybe ()
      "Insert org-template if point is at the beginning of the line,
else call `self-insert-command'."
      (interactive)
      (if (looking-back "^")
          (hydra-org-template/body)
        (self-insert-command 1)))

    (defun modi/reset-local-set-keys ()
      (local-unset-key (kbd "<f10>"))

;; Time-stamp: <2015-11-05 11:13:22 kmodi>
;; Hi-lock: (("\\(^;\\{3,\\}\\)\\( *.*\\)" (1 'org-hide prepend) (2 '(:inherit org-level-1 :height 1.3 :weight bold :overline t :underline t) prepend)))
;; Hi-Lock: end

