# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1556473470 -10800
# Node ID ebaadea64df1d717b53c833285037b007c2d6fa2
# Parent  c227464a22d271d8df9ad854ff859b985f777ffb
Added key binding to insert new sentence.

diff -r c227464a22d2 -r ebaadea64df1 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)