# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1772475133 18000
# Node ID c0d31d738157ca0455a4ebc0a083642f0299734f
# Parent  d02c81529a7eb17af0513faa45c6265005fd6f0f
More

diff -r d02c81529a7e -r c0d31d738157 htoprc
--- a/htoprc	Fri Feb 13 12:24:49 2026 -0500
+++ b/htoprc	Mon Mar 02 13:12:13 2026 -0500
@@ -38,17 +38,17 @@
 column_meter_modes_0=1 1 1
 column_meters_1=RightCPUs2 Tasks LoadAverage Uptime
 column_meter_modes_1=1 2 2 2
-tree_view=1
-sort_key=46
+tree_view=0
+sort_key=39
 tree_sort_key=0
 sort_direction=-1
 tree_sort_direction=1
 tree_view_always_by_pid=1
 all_branches_collapsed=0
 screen:Main=PID USER PRIORITY NICE M_RESIDENT STATE PERCENT_CPU PERCENT_MEM TIME Command
-.sort_key=PERCENT_CPU
+.sort_key=M_RESIDENT
 .tree_sort_key=PID
-.tree_view=1
+.tree_view=0
 .tree_view_always_by_pid=1
 .sort_direction=-1
 .tree_sort_direction=1
diff -r d02c81529a7e -r c0d31d738157 stumpwm/bioinf.lisp
--- a/stumpwm/bioinf.lisp	Fri Feb 13 12:24:49 2026 -0500
+++ b/stumpwm/bioinf.lisp	Mon Mar 02 13:12:13 2026 -0500
@@ -4,6 +4,15 @@
 (defun random-base ()
   (random-elt "GCAT"))
 
+(defun random-phred ()
+  (random-elt "?@ABCDEFGHIJKLMNOPQR"))
+
+(defun random-phred-string (n)
+  (let ((result (make-string n)))
+    (dotimes (i n)
+      (setf (char result i) (random-phred)))
+    result))
+
 (defun random-dna-string (n)
   (let ((result (make-string n)))
     (dotimes (i n)
@@ -19,6 +28,14 @@
                   :collect (format nil ">seq ~D" i)
                   :collect (random-dna-string entry-length))))
 
+(defun random-fastq-string (entries entry-length)
+  (str:join #\newline
+            (loop :for i :from 0 :below entries
+                  :collect (format nil "@seq_~D" i)
+                  :collect (random-dna-string entry-length)
+                  :collect "+"
+                  :collect (random-phred-string entry-length))))
+
 (defcommand random-fasta
     (entries entry-length)
     ((:integer "Entries: ")
@@ -27,6 +44,14 @@
   (check-type entry-length (integer 1 *))
   (pbcopy (random-fasta-string entries entry-length)))
 
+(defcommand random-fastq
+    (entries entry-length)
+    ((:integer "Entries: ")
+     (:integer "Entry Length: "))
+  (check-type entries (integer 1 *))
+  (check-type entry-length (integer 1 *))
+  (pbcopy (random-fastq-string entries entry-length)))
+
 
 (defun kmers-of (k seq)
   (loop :for start :from 0
diff -r d02c81529a7e -r c0d31d738157 stumpwm/clipboard.lisp
--- a/stumpwm/clipboard.lisp	Fri Feb 13 12:24:49 2026 -0500
+++ b/stumpwm/clipboard.lisp	Mon Mar 02 13:12:13 2026 -0500
@@ -8,5 +8,8 @@
   (run-shell-command "pbeecopy")
   (message "Copied the entire Bee Movie script to clipboard."))
 
+(defcommand dump-clipboard () ()
+  (echo (run-shell-command "pbpaste" t)))
+
 #; Scratch --------------------------------------------------------------------
 
diff -r d02c81529a7e -r c0d31d738157 stumpwm/key-mapping.lisp
--- a/stumpwm/key-mapping.lisp	Fri Feb 13 12:24:49 2026 -0500
+++ b/stumpwm/key-mapping.lisp	Mon Mar 02 13:12:13 2026 -0500
@@ -24,6 +24,8 @@
 
 
 (define-top-keys ;; miscellaneous
+  ("H-RET" "colon")
+  ("S-H-RET" "exec")
   ("H-m" "terminal")
   ("H-M" "terminal-here")
   ("H-SunPageUp" "st-font-up")
@@ -57,6 +59,7 @@
 (define-top-keys ;; clipboard
   ("H-c" "show-clipboard-history")
   ("H-C" "clear-clipboard-history")
+  ("H-P" "dump-clipboard")
   ("H-u" "generate-random-uuid")
   ("H-B" "bee-movie-script"))
 
@@ -147,6 +150,7 @@
   ("s-H-o" "only")
   ("s-H-n" "restore-from-file notes")
   ("s-H-t" "restore-from-file thirds")
+  ("s-H-r" "restore-from-file recording")
   ("s-H-i" "restore-from-file um-dev")
   ("s-H-o" "restore-from-file um-browser")
   ("s-H-m" "restore-from-file dev")
diff -r d02c81529a7e -r c0d31d738157 stumpwm/local-share-stumpwm/recording.dump
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/stumpwm/local-share-stumpwm/recording.dump	Mon Mar 02 13:12:13 2026 -0500
@@ -0,0 +1,34 @@
+#S(GDUMP
+   :NUMBER 6
+   :NAME "record"
+   :TREE ((#S(FDUMP
+              :NUMBER 0
+              :X 0
+              :Y 0
+              :WIDTH 1600
+              :HEIGHT 1440)
+           (((#S(FDUMP
+                 :NUMBER 1
+                 :X 1600
+                 :Y 0
+                 :WIDTH 1920
+                 :HEIGHT 180)
+              #S(FDUMP
+                 :NUMBER 4
+                 :X 1600
+                 :Y 180
+                 :WIDTH 1920
+                 :HEIGHT 1094))
+             #S(FDUMP
+                :NUMBER 3
+                :X 1600
+                :Y 1274
+                :WIDTH 1920
+                :HEIGHT 166))
+            #S(FDUMP
+               :NUMBER 2
+               :X 3520
+               :Y 0
+               :WIDTH 1600
+               :HEIGHT 1440))))
+   :CURRENT 4)