contrib/gaphrase.el
changeset 1152 ebaadea64df1
parent 1145 79b55cca9f44
child 1157 41bb8575966d
--- 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)