howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Beep to call consult instead of counsel.

Browse source
This commit is contained in:
Howard Abrams 2022-05-10 11:26:55 -07:00
parent 6aa3efdf54
commit 8603f538c2
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
elisp/beep.el
View file

@ -46,11 +46,11 @@ as this can be pretty distracting."
(beep--speak phrase)) (beep--speak phrase))
(defun compile-and-notify () (defun compile-and-notify ()
"Call `counsel-compile' and notify us when finished. "Call `compile' and notify us when finished.
See `beep--when-finished' for details." See `beep--when-finished' for details."
(interactive) (interactive)
(let ((root (projectile-project-root))) (let ((default-directory (projectile-project-root)))
(counsel-compile root) (call-interactively 'compile)
(beep--when-finished "The compile command has finished."))) (beep--when-finished "The compile command has finished.")))
(defvar beep-func-too-long-time 5 (defvar beep-func-too-long-time 5