scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-17 04:20:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

using require

Browse Source
This commit is contained in:
Thomas von Dein
2023-05-16 11:18:38 +02:00
parent 8fdad944f9
commit 98ccb528ea
65 changed files with 5977 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
lisp/init-suggest.el Normal file
View File

@@ -0,0 +1,47 @@
;; *** 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