# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1643730579 18000
# Node ID b7239c572353b66c4057a6da74072fd189a2df9b
# Parent  c05932aa401fb4a3682767152a6d8edbd89a6c2e
More

diff -r c05932aa401f -r b7239c572353 gitconfig
--- a/gitconfig	Thu Nov 11 14:12:49 2021 -0500
+++ b/gitconfig	Tue Feb 01 10:49:39 2022 -0500
@@ -14,6 +14,8 @@
     remotes = remote -v
 
     make-the-fucking-branch-point-at-the-fucking-commit = "!sh -c 'git checkout $1 && git reset --hard $2' -"
+    mtfbpatfc                                           = "!sh -c 'git checkout $1 && git reset --hard $2' -"
+
     root = rev-parse --show-toplevel
 
     l   = log -18 --color=always --all --topo-order --pretty='format:%Cgreen%h%Creset %s%Cred%d%Creset %C(black bold)(by %an)%Creset'
diff -r c05932aa401f -r b7239c572353 stumpwmrc
--- a/stumpwmrc	Thu Nov 11 14:12:49 2021 -0500
+++ b/stumpwmrc	Tue Feb 01 10:49:39 2022 -0500
@@ -29,28 +29,32 @@
   (and (search needle string :test #'char=) t))
 
 (defun string-grep (needle text &key first-only)
-  (-<> text
-    (split-sequence:split-sequence #\newline <>)
+  (_ text
+    (split-sequence:split-sequence #\newline _)
     (if first-only
-      (find needle <> :test #'string-contains)
-      (remove-if-not (alexandria:curry #'string-contains needle) <>))))
+      (find needle _ :test #'string-contains)
+      (remove-if-not (alexandria:curry #'string-contains needle) _))))
 
 (defun string-split (delimiters string)
   (split-sequence:split-sequence delimiters string
                                  :test (lambda (bag ch)
                                          (find ch bag :test #'char=))))
 
+(defun run-and-echo-shell-command (command &rest args)
+  (message command)
+  (apply #'run-shell-command command args))
+
 
 (defun mod+ (n increment modulo)
   (mod (+ n increment) modulo))
 
 
 (defun volume ()
-  (-<> (run-shell-command "amixer sget Master" t)
-    (string-grep "Front Left:" <> :first-only t)
-    (string-split "[]" <>)
+  (_ (run-shell-command "amixer sget Master" t)
+    (string-grep "Front Left:" _ :first-only t)
+    (string-split "[]" _)
     second
-    (string-trim "%" <>)
+    (string-trim "%" _)
     parse-integer))
 
 
@@ -59,10 +63,10 @@
 
 
 (defun keywordize (string)
-  (-<> string
-    (string-trim (string #\newline) <>)
+  (_ string
+    (string-trim (string #\newline) _)
     string-upcase
-    (intern <> (find-package :keyword))))
+    (intern _ (find-package :keyword))))
 
 (defparameter *host* (keywordize (machine-instance)))
 
@@ -252,10 +256,13 @@
   (aref *brightness-values* *brightness-index*))
 
 (defun set-brightness (value)
-  (run-shell-command
+  (run-and-echo-shell-command
     (hostcase
-      ((:mobius :alephnull) (format nil "xbacklight -set ~D" value))
-      ((:papyrifera) (format nil "xrandr --output eDP --brightness ~D" (/ value 100.0)))
+      ((:mobius) (format nil "xbacklight -set ~D" value))
+      ((:papyrifera :alephnull) (format nil "xrandr --output ~A --brightness ~D"
+                                        (hostcase (:papyrifera "eDP")
+                                                  (:alephnull "eDP-1"))
+                                        (/ value 100.0)))
       (t (message "Not sure how to set brightness on this machine.")))))
 
 (defun rotate-brightness (delta)
@@ -263,6 +270,7 @@
         (mod+ *brightness-index* delta (length *brightness-values*)))
   (set-brightness (brightness)))
 
+
 (defcommand rotate-brightness-up () ()
   (rotate-brightness 1))
 
@@ -312,8 +320,8 @@
 
 (defcommand screen-laptop () ()
   (only)
-  (loop :with laptop = "eDP1"
-        :with extern = "DP1"
+  (loop :with laptop = "eDP-1"
+        :with extern = "DP-1"
         :for (output commands) :in `((,laptop ("--auto"))
                                    (,laptop ("--primary"))
                                    (,extern ("--off")))
@@ -321,14 +329,14 @@
 
 (defcommand screen-external () ()
   (only)
-  (loop :with laptop = "eDP1"
-        :with extern = "DP1"
+  (loop :with laptop = "eDP-1"
+        :with extern = "DP-1"
         :for (output commands) :in `(
-                                     (,laptop ("--off"))
+                                     ;; (,laptop ("--off"))
                                      (,extern ("--auto"))
                                      (,extern ("--primary"))
-                                     ;; (,laptop ("--auto"))
-                                     ;; (,laptop ("--right-of" ,extern))
+                                     (,laptop ("--auto"))
+                                     (,laptop ("--left-of" ,extern))
                                      )
         :do (uiop:run-program `("xrandr" "--output" ,output ,@commands))))
 
diff -r c05932aa401f -r b7239c572353 vim/vimrc
--- a/vim/vimrc	Thu Nov 11 14:12:49 2021 -0500
+++ b/vim/vimrc	Tue Feb 01 10:49:39 2022 -0500
@@ -851,6 +851,14 @@
 augroup END
 
 " }}}
+" Bazel {{{
+
+augroup ft_bazel
+    au!
+    au FileType bzl nnoremap <buffer> gi :Neoformat buildifier<cr>
+augroup END
+
+" }}}
 " C {{{
 
 augroup ft_c