From 97d915e64b3269f20ede410b9584f88491c041b3 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Mon, 14 Oct 2019 00:44:39 -0400
Subject: [PATCH] lang/faust: minor refactor

---
 modules/lang/faust/config.el | 22 +++++++++-------------
 1 file changed, 9 insertions(+), 13 deletions(-)

diff --git a/modules/lang/faust/config.el b/modules/lang/faust/config.el
index 1c907043e..dc98e7e55 100644
--- a/modules/lang/faust/config.el
+++ b/modules/lang/faust/config.el
@@ -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))