[elpa] externals/beardbolt 02a0bfbcdb 313/323: Add `beardbolt-ccj-extra-flags` option

[ELPA Syncer]

branch: externals/beardbolt
commit 02a0bfbcdbe2120e8441dd4306dedf0653647950
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Add `beardbolt-ccj-extra-flags` option
    
    * README.md: Mention new option.
    
    * beardbolt.el (bb-ccj-extra-flags): New option.
    (bb--guess-from-ccj): Use it.
---
 README.md    | 4 ++++
 beardbolt.el | 8 ++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index c4588751da..64cf727930 100644
--- a/README.md
+++ b/README.md
@@ -84,6 +84,10 @@ instead.  Beardbolt will pick them up immediately on each 
run.
 * `beardbolt-execute`: If non-nil, run the resulting program in the
   compilation buffer.  If a string, run with these arguments.  If t
   runs without arguments.
+  
+* `beardbolt-ccj-extra-flags`: A string of extra compilation flags to
+  append to the compilation command devined from
+  `compile_commands.json`.
 
 <a name="benchmarks"></a>
 ### Benchmarks vs RMSbolt
diff --git a/beardbolt.el b/beardbolt.el
index da41dae1e1..06423ad854 100644
--- a/beardbolt.el
+++ b/beardbolt.el
@@ -73,6 +73,9 @@ Passed directly to compiler or disassembler."
 (bb--defoption bb-execute nil
   "Non-nil to run resulting program with these arguments."
   :type 'string :safe (lambda (v) (or (null v) (eq t v) (stringp v))))
+(bb--defoption bb-ccj-extra-flags nil
+  "Extra flags for compilation command devined from compile_commands.json."
+  :type 'string :safe (lambda (v) (or (null v) (stringp v))))
 
 (defface bb-current-line-face
   '((t (:weight bold :inherit highlight)))
@@ -705,8 +708,9 @@ With prefix argument, choose from starter files in 
`bb-starter-files'."
                           return (plist-get e :command)))
             (cmd (bb--split-rm-double cmd "-o"))
             (cmd (bb--split-rm-double cmd "-c"))
-            (cmd (bb--split-rm-single cmd "-flto" #'string-prefix-p)))
-      cmd))
+            (cmd (bb--split-rm-single cmd "-flto" #'string-prefix-p))
+            (cmd (bb--split-rm-single cmd "-O" #'string-prefix-p)))
+      (list cmd bb-ccj-extra-flags)))
 
 ;;;###autoload
 (define-minor-mode bb-mode