gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lang/faust: minor refactor

Browse Source
This commit is contained in:
Henrik Lissner 2019-10-14 00:44:39 -04:00
parent a792777f52
commit 97d915e64b
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
modules/lang/faust/config.el
View File

@ -3,27 +3,23 @@
(use-package! faustine
:mode ("\\.dsp\\'" . faustine-mode)
:config
(set-company-backend! '(faust-mode faustine-mode) '+faust-company-backend)
(defadvice! +faust--suppress-ac-warnings-a (orig-fn &rest args)
"Silence obnoxious 'You really should install and use auto-complete' warnings
when starting faust-mode *and* faustine-mode. You really should *not* install
nor use auto-complete."
:around '(faust-mode faustine-mode)
(let (ac-modes ac-sources)
(apply orig-fn args)))
;; HACK Both `faust-mode' and `faustine-mode' are hardcoded to use
;; auto-complete. This silences the obnoxious 'You really should install and
;; use auto-complete' warnings when starting them.
(defvar ac-modes nil)
(defvar ac-sources nil)
(map! :localleader
:map faustine-mode-map
"RET" #'faustine-mdoc
"b" #'faustine-build
"B" #'faustine-build-all
"c" #'faustine-syntax-check
"d" #'faustine-diagram
"D" #'faustine-diagram-all
"h" #'faustine-online-doc
"RET" #'faustine-mdoc
"o" #'faustine-toggle-output-buffer
"s" #'faustine-source-code
"r" #'faustine-run
"S-b" #'faustine-build-all
"S-d" #'faustine-diagram-all
))
"r" #'faustine-run))