141 (defun gadict-search-floor (headword)

   141 (defun gadict-search-floor (headword)

   142   "Move to HEADWORD definition or place on posiiton for new corresponding

   142   "Move to HEADWORD definition or place on posiiton for new corresponding

   143 definition. Check for headwords ordering during search.

   143 definition. Check for headwords ordering during search.

   144 

   144 

   145 Return `t' if definition found, `nil' if no such headword."

   145 Return `t' if definition found, `nil' if no such headword."

   147   (let ( prev curr )

   146   (let ( prev curr )

   148     (catch 'exit

   147     (catch 'exit

   149       (goto-char (point-min))

   148       (goto-char (point-min))

   150       (unless (re-search-forward "^__$" nil t)

   149       (unless (re-search-forward "^__$" nil t)

   151         (throw 'exit nil))

   150         (throw 'exit nil))

   170           (re-search-backward "^__$")

   169           (re-search-backward "^__$")

   171           (forward-line 2)

   170           (forward-line 2)

   172           (throw 'exit nil))

   171           (throw 'exit nil))

   173         (setq prev curr)) )))

   172         (setq prev curr)) )))

   174 

   173 

   175 (defun gadict-insert-template-in-order (headword)

   181 (defun gadict-insert-template-in-order (headword)

   176   "Insert new article template with respect of headword order."

   182   "Insert new article template with respect of headword order."

   177   (interactive (list (read-string "Headword: ")))

   183   (interactive (list (read-string "Headword: ")))

   178   (unless (gadict-search-floor headword)

   184   (unless (gadict-search-floor headword)

   179     (gadict-insert-template headword))

   185     (gadict-insert-template headword))

   180   (recenter-top-bottom))

   186   (recenter-top-bottom))

   181 

   187 

   182 (defun gadict-setup-keymap ()

   188 (defun gadict-setup-keymap ()

   183   "Setup gadict keymap."

   189   "Setup gadict keymap."

   185   (define-key (current-local-map) [C-return] 'gadict-insert-template-in-order))

   191   (define-key (current-local-map) [C-return] 'gadict-insert-template-in-order))

   186 

   192 

   187 ;;;###autoload

   193 ;;;###autoload

   188 (define-derived-mode gadict-mode fundamental-mode "gadict"

   194 (define-derived-mode gadict-mode fundamental-mode "gadict"

   189   "Derived mode for editing gadict dictionary source files."

   195   "Derived mode for editing gadict dictionary source files."