[elpa] externals/beardbolt 58c77d90c3 008/323: Add outshine comments

[ELPA Syncer]

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

    Add outshine comments
---
 README.org |  1 +
 rmsbolt.el | 15 +++++++--------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index aa72b10163..8e26aae4a7 100644
--- a/README.org
+++ b/README.org
@@ -10,5 +10,6 @@ A basic implementation of the 
[[https://github.com/mattgodbolt/compiler-explorer
 - Better turnaround time from writing code to seeing disassembly
 - Infinitely hackable!
 - Write, compile, and view dissasembly entirely in Emacs
+  - Use compile.el to traverse errors like you would normally
 - Runs entirely without node, npm, or js.
   - No dependencies other than emacs 25 and your compiler ~:)~
diff --git a/rmsbolt.el b/rmsbolt.el
index 839888abcc..088c1345bb 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -138,6 +138,7 @@
         (setq pos (match-end 0)))
       matches)))
 
+;;;;; Filter Functions
 (defun rmsbolt--has-opcode-p (line)
   "Check if LINE has opcodes."
   (save-match-data
@@ -186,7 +187,6 @@
             (dolist (l (rmsbolt-re-seq rmsbolt-label-find line))
               (cl-pushnew l (gethash current-label weak-usages) :test 
#'equal))))))
 
-
     (let* ((max-label-iter 10)
            (label-iter 0)
            (completed nil))
@@ -246,6 +246,7 @@
                (nreverse result)
                "\n")))
 
+;;;;; Handlers
 (defun rmsbolt--handle-finish-compile (buffer _str)
   "Finish hook for compilations."
   (let ((compilation-fail
@@ -270,6 +271,7 @@
              ;; Display compilation output
              (display-buffer buffer))))))
 
+;;;;; Parsing Options
 (defun rmsbolt--get-cmd ()
   "Gets the rms command from the buffer, if available."
   (save-excursion
@@ -285,6 +287,7 @@
       (setf (rmsbolt-ro-compile-cmd options) cmd))
     options))
 
+;;;;; UI Functions
 (defun rmsbolt-compile ()
   "Compile the current rmsbolt buffer."
   (interactive)
@@ -303,15 +306,11 @@
     (rmsbolt-with-display-buffer-no-window
      (with-current-buffer (compilation-start cmd)
        (add-hook 'compilation-finish-functions
-                 #'rmsbolt--handle-finish-compile nil t))))
-
-  ;; TODO
-  )
+                 #'rmsbolt--handle-finish-compile nil t)))))
 
-;;;; Alda Keymap
-(defvar rmsbolt-mode-map nil "Keymap for `alda-mode'.")
+;;;; Keymap
+(defvar rmsbolt-mode-map nil "Keymap for `rmsbolt-mode'.")
 (when (not rmsbolt-mode-map) ; if it is not already defined
-
   ;; assign command to keys
   (setq rmsbolt-mode-map (make-sparse-keymap))
   (define-key rmsbolt-mode-map (kbd "C-c C-c") #'rmsbolt-compile))