Added key binding to insert new sentence.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 28 Apr 2019 20:44:30 +0300
changeset 1152 ebaadea64df1
parent 1151 c227464a22d2
child 1153 8018a1f7b77a
Added key binding to insert new sentence.
contrib/gaphrase.el
--- a/contrib/gaphrase.el	Sat Apr 20 22:19:42 2019 +0300
+++ b/contrib/gaphrase.el	Sun Apr 28 20:44:30 2019 +0300
@@ -59,9 +59,21 @@
   (insert "\n- \n")
   (backward-char))
 
+(defun gaphrase-insert-sentence ()
+  (interactive)
+  (forward-line 1)
+  (while (not (or (eobp)
+                  (eq (char-after) ?-)))
+    (forward-line 1))
+  (insert ?\n)
+  (backward-char)
+  (insert "- "))
+
+
 (define-derived-mode gaphrase-mode fundamental-mode "gaphrase"
   (setq font-lock-defaults '(gaphrase-font-lock-keywords))
-  (define-key (current-local-map) [C-return] 'gaphrase-insert-template))
+  (define-key (current-local-map) [C-return] 'gaphrase-insert-template)
+  (define-key (current-local-map) [S-return] 'gaphrase-insert-sentence))
 
 (provide 'gaphrase)