70 lines
2.1 KiB
EmacsLisp
70 lines
2.1 KiB
EmacsLisp
;;; mono-complete-backend-whole-line.el --- DABBREV back-end -*- lexical-binding: t -*-
|
|
;; URL: https://codeberg.org/ideasman42/emacs-mono-complete
|
|
;; Version: 0.1
|
|
;; Package-Requires: ((emacs "26.2"))
|
|
|
|
;;; Commentary:
|
|
;; Whole line back-end.
|
|
;
|
|
;;; Code:
|
|
|
|
(require 'mono-complete)
|
|
|
|
(defun mono-complete-backend-whole-line-prefix ()
|
|
"Return the prefix at point."
|
|
(save-excursion
|
|
(let ((pos-init (point)))
|
|
(back-to-indentation)
|
|
(cond
|
|
((< (point) pos-init)
|
|
(buffer-substring-no-properties pos-init (point)))
|
|
(t
|
|
nil)))))
|
|
|
|
(defun mono-complete-backend-whole-line-complete (prefix cache)
|
|
"Complete at point based on PREFIX & CACHE."
|
|
(let
|
|
( ;; Return a list of strings or nil.
|
|
(result nil)
|
|
(search-re (concat "^[[:blank:]]*" (regexp-quote prefix)))
|
|
(pos-init (point)))
|
|
|
|
(save-match-data
|
|
(save-excursion
|
|
|
|
;; Search backwards.
|
|
(beginning-of-line)
|
|
(while (and (null result) (re-search-backward search-re nil t))
|
|
(let ((pos-beg (match-end 0)))
|
|
(end-of-line)
|
|
(skip-chars-backward "[:blank:]" pos-beg)
|
|
(when (< pos-beg (point))
|
|
(setq result (list (buffer-substring-no-properties pos-beg (point)))))))
|
|
|
|
(unless result
|
|
(goto-char pos-init)
|
|
|
|
;; Search forwards.
|
|
(end-of-line)
|
|
(while (and (null result) (re-search-forward search-re nil t))
|
|
(let ((pos-beg (match-end 0)))
|
|
(end-of-line)
|
|
(skip-chars-backward "[:blank:]" pos-beg)
|
|
(when (< pos-beg (point))
|
|
(setq result (list (buffer-substring-no-properties pos-beg (point))))))))))
|
|
(cons result cache)))
|
|
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Public Callback
|
|
|
|
;;;###autoload
|
|
(defun mono-complete-backend-whole-line ()
|
|
"DEBBREV completer."
|
|
(list
|
|
:prefix #'mono-complete-backend-whole-line-prefix
|
|
:complete #'mono-complete-backend-whole-line-complete))
|
|
|
|
(provide 'mono-complete-backend-whole-line)
|
|
;;; mono-complete-backend-whole-line.el ends here
|