Adapted gaphrase.el to phrase format (instead of dialog).
--- 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)