# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1581377182 -7200
# Node ID 32fc1741db5d40b95c7df5b8872a4de772deb514
# Parent  0df788e3539815542013d86a930815c2d525a281
Adapted gaphrase.el to phrase format (instead of dialog).

diff -r 0df788e35398 -r 32fc1741db5d contrib/gaphrase.el
--- a/contrib/gaphrase.el	Tue Feb 11 01:04:11 2020 +0200
+++ b/contrib/gaphrase.el	Tue Feb 11 01:26:22 2020 +0200
@@ -61,24 +61,13 @@
     (delete-char -1))
   (insert "\n# ")
   (insert (int-to-string (gaphrase-next-num)))
-  (insert "\n- \n")
+  (insert "\n\n")
   (backward-char))
 
-(defun gaphrase-insert-sentence ()
-  (interactive)
-  (forward-line 1)
-  (while (not (or (eobp)
-                  (memq (char-after) (list ?- ?#))))
-    (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) [S-return] 'gaphrase-insert-sentence)
   (set-syntax-table gaphrase-syntax-table))
 
 (provide 'gaphrase)