--- 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
--- 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
--- 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 --------------------------------------------------------------------
--- 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")
--- /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)