93292b5dede0

More
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sat, 08 Jun 2019 12:07:02 -0400
parents 8c524b57a91b
children 25592561dd6f
branches/tags (none)
files bin/cool-retro-term bin/disks bin/moo stumpwmrc

Changes

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/cool-retro-term	Sat Jun 08 12:07:02 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	Sat Jun 08 12:07:02 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 May 20 19:38:38 2019 -0400
+++ b/bin/moo	Sat Jun 08 12:07:02 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 May 20 19:38:38 2019 -0400
+++ b/stumpwmrc	Sat Jun 08 12:07:02 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 ()