Determine abbreviations to minimize the typing distance to reach a word in a document.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

66 lines
2.4 KiB

(require 'abbrev)
(defgroup auto-abbrev nil
"Auto-Abbrev customization group."
:group 'applications)
(defgroup auto-abbrev-faces nil
"Faces for displaying Auto-Abbrev information."
:group 'auto-abbrev)
(defface auto-abbrev-highlight-face
'((t (:underline t)))
"Face for abbreviation hints"
:group 'auto-abbrev-faces)
(setq auto-abbrev-directory "/home/macoy/Development/code/repositories/auto-abbrev")
(setq auto-abbrev-python3 "python3")
(defun auto-abbrev-turn-on ()
"Add auto-abbrev font locks and abbrevs to the current buffer"
(abbrev-mode 1)
;; Make sure we clear out the old keywords
(clear-abbrev-table auto-abbrev-mode-abbrev-table)
(font-lock-remove-keywords nil auto-abbrev-highlights)
(load-file (concat auto-abbrev-directory "/.auto-abbrevs-for-buffer.el"))
(font-lock-add-keywords nil auto-abbrev-highlights)
(defun auto-abbrev-turn-off ()
;; Note that we Don't need to clear abbrev table because it will be disabled when the mode is off
(font-lock-remove-keywords nil auto-abbrev-highlights)
(define-minor-mode auto-abbrev-mode
"Minor mode for hinting auto-abbrev abbreviations."
;; :init-value t
:lighter " Auto-Abbrev"
(if auto-abbrev-mode
;; Filled out by script later
(setq auto-abbrev-highlights nil)
(define-abbrev-table 'auto-abbrev-mode-abbrev-table nil)
(add-to-list 'abbrev-minor-mode-table-alist `(auto-abbrev-mode ,auto-abbrev-mode-abbrev-table))
;; TODO: What buffer will this run in?
(defun auto-abbrev-generation-finished ()
;; Only refresh if auto-abbrev-mode is active
(when auto-abbrev-mode
(message "Auto-abbrevs updated"))
(defun auto-abbrev-refresh-current-buffer ()
;; We need to remove keywords first, otherwise changed ones will stick around
(let ((process (start-process "Auto-Abbrev" "*Auto-Abbrev*" auto-abbrev-python3
(concat auto-abbrev-directory "/")
;; "--verbose"
buffer-file-name "-o"
(concat auto-abbrev-directory "/.auto-abbrevs-for-buffer.el"))))
(set-process-sentinel process
(lambda (process _string)
(provide 'auto-abbrev)