[elpa] externals/beardbolt 9e38f2238b 135/323: Add support for functions as arguments to :compile-cmd

[ELPA Syncer]

branch: externals/beardbolt
commit 9e38f2238bdb72cb857d974644d55c0aa9c2e466
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Add support for functions as arguments to :compile-cmd
---
 rmsbolt.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index 220786f891..2cbb53f38d 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -295,7 +295,8 @@ This function does NOT quote the return value for use in 
inferior shells."
   (compile-cmd
    nil
    :type 'string
-   :documentation "Default compilation command to use if none is provided.")
+   :documentation "Default compilation command to use if none is provided.
+If provided a function, call that function with the source buffer to determine 
the compile command.")
   (compile-cmd-function
    nil
    :type 'function
@@ -325,6 +326,8 @@ Return value is quoted for passing to the shell."
            (rmsbolt-output-filename ,src-buffer))))
      ,@body))
 
+;;;; Compile Commands
+
 (cl-defun rmsbolt--c-compile-cmd (&key src-buffer)
   "Process a compile command for gcc/clang."
   (rmsbolt--with-files
@@ -509,6 +512,9 @@ Return value is quoted for passing to the shell."
       (rmsbolt--disassemble-file file-name (current-buffer))
       (rmsbolt--handle-finish-compile src-buffer nil :override-buffer 
(current-buffer)))))
 
+
+;;;; Hidden Function Definitions
+
 (defvar rmsbolt--hidden-func-c
   (rx bol (or (and "__" (0+ any))
               (and "_" (or "init" "start" "fini"))
@@ -1019,6 +1025,7 @@ Argument OVERRIDE-BUFFER use this buffer instead of 
reading from the output file
   "Helper function to get lang def for LANGUAGE."
   (or rmsbolt-language-descriptor
       (cdr-safe (assoc major-mode rmsbolt-languages))))
+
 (defun rmsbolt--parse-options ()
   "Parse RMS options from file."
   (hack-local-variables)
@@ -1028,7 +1035,11 @@ Argument OVERRIDE-BUFFER use this buffer instead of 
reading from the output file
          (force-disass (not (rmsbolt-l-supports-asm lang)))
          (force-asm (not (rmsbolt-l-supports-disass lang))))
     (when (not cmd)
-      (setq-local rmsbolt-command (rmsbolt-l-compile-cmd lang)))
+      (setq-local rmsbolt-command
+                  (let ((new-cmd (rmsbolt-l-compile-cmd lang)))
+                    (pcase new-cmd
+                      ((pred functionp) (funcall new-cmd src-buffer))
+                      (_ new-cmd)))))
     (when (and force-disass force-asm)
       (error "No disassemble method found for this langauge, please double 
check spec"))
     (when force-disass