4bff92ca5297
Merge.
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Mon, 10 Jun 2019 12:11:04 -0400 |
parents | 4f513bcec56a (current diff) 25592561dd6f (diff) |
children | f82982006717 |
branches/tags | (none) |
files |
Changes
--- /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
--- /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
--- 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
--- 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 ()