equal
deleted
inserted
replaced
47 (insert (int-to-string num)) |
47 (insert (int-to-string num)) |
48 (throw 'return num)) |
48 (throw 'return num)) |
49 (insert "## 1\n") |
49 (insert "## 1\n") |
50 1)))) |
50 1)))) |
51 |
51 |
52 (defun gadialog-cleaup-whitespaves-forward () |
52 (defun gadialog-cleaup-whitespaces-forward () |
53 (while (memq (char-before) '(?\ ?\n ?\t)) |
53 (while (memq (char-before) '(?\ ?\n ?\t)) |
54 (delete-char -1))) |
54 (delete-char -1))) |
55 |
55 |
56 (defun gadialog-insert-template () |
56 (defun gadialog-insert-template () |
57 (interactive) |
57 (interactive) |
59 (when (looking-at "# ") |
59 (when (looking-at "# ") |
60 (forward-line 1)) |
60 (forward-line 1)) |
61 (unless (re-search-forward "^# " (+ (point) 10240) t) |
61 (unless (re-search-forward "^# " (+ (point) 10240) t) |
62 (goto-char (point-max))) |
62 (goto-char (point-max))) |
63 (forward-line 0) |
63 (forward-line 0) |
64 (gadialog-cleaup-whitespaves-forward) |
64 (gadialog-cleaup-whitespaces-forward) |
65 (insert "\n# ") |
65 (insert "\n# ") |
66 (insert (int-to-string (gadialog-next-num))) |
66 (insert (int-to-string (gadialog-next-num))) |
67 (insert "\n- \n") |
67 (insert "\n- \n") |
68 (backward-char)) |
68 (backward-char)) |
69 |
69 |
71 (interactive) |
71 (interactive) |
72 (forward-line 1) |
72 (forward-line 1) |
73 (while (not (or (eobp) |
73 (while (not (or (eobp) |
74 (memq (char-after) (list ?- ?#)))) |
74 (memq (char-after) (list ?- ?#)))) |
75 (forward-line 1)) |
75 (forward-line 1)) |
76 (gadialog-cleaup-whitespaves-forward) |
76 (gadialog-cleaup-whitespaces-forward) |
77 (insert "\n- \n") |
77 (insert "\n- \n") |
78 (backward-char)) |
78 (backward-char)) |
79 |
79 |
80 |
80 |
81 (define-derived-mode gadialog-mode fundamental-mode "gadialog" |
81 (define-derived-mode gadialog-mode fundamental-mode "gadialog" |