Permalink
Browse files

Make begin-end-quote, -verse, org-mode local bindings

M-s M-q => insert #+begin_quote / #+end_quote
M-s M-v => insert #+begin_verse / #+end_verse
  • Loading branch information...
smiller committed Jan 11, 2015
1 parent 6fc7348 commit f7d9aa3b667a23061a9191b84ca852fecdba48e0
Showing with 20 additions and 20 deletions.
  1. +2 −0 mode-hooks.el
  2. +18 −20 mods-org.el
View
@@ -3,6 +3,8 @@
(linum-mode -1)
(auto-fill-mode 1)
(set-input-method "TeX")
(define-key org-mode-map (kbd "M-s M-q") 'begin-end-quote)
(define-key org-mode-map (kbd "M-s M-v") 'begin-end-verse)
)
(add-hook 'text-mode-hook 'my-text-mode-hook)
View
@@ -19,24 +19,22 @@
)
))
(global-set-key (kbd "M-s M-q")
(lambda()
(interactive)
(insert "#+begin_quote")
(newline)
(newline)
(insert "#+end_quote")
(newline)
(previous-line)
(previous-line)))
(defun begin-end-quote ()
(interactive)
(insert "#+begin_quote")
(newline)
(newline)
(insert "#+end_quote")
(newline)
(previous-line)
(previous-line))
(global-set-key (kbd "M-s M-v")
(lambda()
(interactive)
(insert "#+begin_verse")
(newline)
(newline)
(insert "#+end_verse")
(newline)
(previous-line)
(previous-line)))
(defun begin-end-verse ()
(interactive)
(insert "#+begin_verse")
(newline)
(newline)
(insert "#+end_verse")
(newline)
(previous-line)
(previous-line))

0 comments on commit f7d9aa3

Please sign in to comment.