Browse Source

Scroll compilation, re-builder colors

* Auto-scroll compilation when using macoy-build-systems
* re-builder matches are readable, though there are no per-group
  colorings yet
master
macoymadson@gmail.com 3 years ago
parent
commit
570af115c8
  1. 18
      Emacs/build-systems.el
  2. 8
      Emacs/visual-late.el

18
Emacs/build-systems.el

@ -41,15 +41,17 @@
(defun macoy-build-system-build ()
"Build the build system defined in `macoy-build-system-default'"
(interactive)
(when macoy-build-system-default
(message "Building %s" (car macoy-build-system-default))
(let ((build-function (nth 1 macoy-build-system-default)))
(call-interactively build-function)
(let ((compilation-scroll-output t))
(when macoy-build-system-default
(message "Building %s" (car macoy-build-system-default))
(let ((build-function (nth 1 macoy-build-system-default)))
(call-interactively build-function)
)
)
(unless macoy-build-system-default
;; (message "No default build system selected. Run macoy-build-system-select-then-build")
(call-interactively 'macoy-build-system-select-then-build)
)
)
(unless macoy-build-system-default
;; (message "No default build system selected. Run macoy-build-system-select-then-build")
(call-interactively 'macoy-build-system-select-then-build)
)
)

8
Emacs/visual-late.el

@ -50,6 +50,14 @@
(set-face-background 'svn-mark-face (face-background 'region))
)
;; TODO: Colors to differentiate between groups
(when (require 're-builder)
(set-face-background 'reb-match-0 (face-background 'region))
(set-face-background 'reb-match-1 (face-background 'region))
(set-face-background 'reb-match-2 (face-background 'region))
(set-face-background 'reb-match-3 (face-background 'region))
)
;; Make sure diff-mode colors are theme-appropriate:
;; - No stark white text for context
;; - Make refine* backgrounds much more muted and darker. This is for style and higher contrast

Loading…
Cancel
Save