mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-16 20:10:58 +01:00
48 lines
1.9 KiB
EmacsLisp
48 lines
1.9 KiB
EmacsLisp
;; *** Suggest Mode
|
|
|
|
;; [[https://github.com/Wilfred/suggest.el][suggest mode]] is a great
|
|
;; elisp development tool. Execute `M-x suggest' and try it.
|
|
|
|
;; FIXME: doesn't install, seems to use a different version from elpa, which requires spinner ?!?!:
|
|
;; Error (use-package): Failed to install suggest: Opening output file:
|
|
;; No such file or directory, /home/scip/.emacs-init.d/elpa-27.1/spinner-1.7.4/spinner-autoloads.el
|
|
;; spinner is here: https://elpa.gnu.org/packages/spinner.html
|
|
(when nil
|
|
(use-package suggest
|
|
:config
|
|
|
|
;; I use my own clearing function, since suggest doesn't provide this
|
|
(defun tvd-suggest-reload ()
|
|
"Clear suggest buffer and re-paint it."
|
|
(interactive)
|
|
(let ((inhibit-read-only t))
|
|
(erase-buffer)
|
|
(suggest--insert-heading suggest--inputs-heading)
|
|
(insert "\n\n\n")
|
|
(suggest--insert-heading suggest--outputs-heading)
|
|
(insert "\n\n\n")
|
|
(suggest--insert-heading suggest--results-heading)
|
|
(insert "\n")
|
|
(suggest--nth-heading 1)
|
|
(forward-line 1)))
|
|
|
|
(defun tvd-suggest-jump ()
|
|
"Jump between input and output suggest buffer."
|
|
(interactive)
|
|
(forward-line -1)
|
|
(if (eq (line-number-at-pos) 1)
|
|
(suggest--nth-heading 2)
|
|
(suggest--nth-heading 1))
|
|
(forward-line 1))
|
|
|
|
(eval-after-load "suggest"
|
|
'(progn
|
|
(add-hook 'suggest-mode-hook
|
|
(lambda ()
|
|
(local-set-key (kbd "C-l") 'tvd-suggest-reload)
|
|
(local-set-key (kbd "<tab>") 'tvd-suggest-jump)))))))
|
|
|
|
|
|
(provide 'init-suggest)
|
|
;;; init-suggest.el ends here
|