branch: externals/beardbolt
commit 58c77d90c32501767c80d53c2818ff8de2448ad0
Author: Jay Kamat <jaygka...@gmail.com>
Commit: Jay Kamat <jaygka...@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))
