# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1560183064 14400
# Node ID 4bff92ca529786e9b18064c404ceb363765b6ad0
# Parent  4f513bcec56a9dd1725d04f9e21c20928385bd18# Parent  25592561dd6fcdfc5e8eda38bb6daac7f42d83ee
Merge.

diff -r 4f513bcec56a -r 4bff92ca5297 bin/cool-retro-term
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/cool-retro-term	Mon Jun 10 12:11:04 2019 -0400
@@ -0,0 +1,1 @@
+../../cool-retro-term/cool-retro-term
\ No newline at end of file
diff -r 4f513bcec56a -r 4bff92ca5297 bin/disks
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/disks	Mon Jun 10 12:11:04 2019 -0400
@@ -0,0 +1,8 @@
+#!/usr/bin/env bash
+
+set -euo pipefail
+
+lsblk -o name,mountpoint,model,label,size,fstype | egrep -v "^loop" 
+echo
+echo
+df -h | egrep -v '^/dev/loop' | egrep -v tmpfs
diff -r 4f513bcec56a -r 4bff92ca5297 bin/moo
--- a/bin/moo	Mon Jun 10 12:10:36 2019 -0400
+++ b/bin/moo	Mon Jun 10 12:11:04 2019 -0400
@@ -6,4 +6,9 @@
 PROGS=("cowsay" "cowthink")
 PROG=${PROGS[$RANDOM % ${#PROGS[@]}]}
 
-toilet -t -k -F gay:crop -f calvins "$@" | $PROG -n -$COW
+COLORS=("gay" "metal")
+COLOR=${COLORS[$RANDOM % ${#COLORS[@]}]}
+
+clear
+toilet -t -k -F metal:$COLOR -f future "$@" | $PROG -n -$COW
+read
diff -r 4f513bcec56a -r 4bff92ca5297 stumpwmrc
--- a/stumpwmrc	Mon Jun 10 12:10:36 2019 -0400
+++ b/stumpwmrc	Mon Jun 10 12:11:04 2019 -0400
@@ -198,6 +198,16 @@
   (load "~/src/dotfiles/vim/bundle/vlime/lisp/start-vlime.lisp")
   (message "Started VLIME"))
 
+(defcommand vlime-port (port) ((:number "Port: "))
+  "Start VLIME on the given port.
+
+  Good for bootstrapping a VLIME connection when you accidentally started a
+  VLIME instance on another port that you don't want to mess with.
+
+  "
+  (funcall (read-from-string "vlime-loader::run") port)
+  (message "Started VLIME"))
+
 (defcommand toggle-current-mode-line () ()
   (toggle-mode-line (current-screen) (current-head)))
 
@@ -226,6 +236,9 @@
     ((:string "Symbol: "))
   (run-shell-command (format nil "clhs --url 'http://www.lispworks.com/documentation/HyperSpec/' --quiet --open echon '~A' | pbcopy" s)))
 
+(defcommand describe-window () ()
+  (show-window-properties))
+
 
 ;;;; Terminal Fonts -----------------------------------------------------------
 (defcommand st-font-up ()