--- a/htoprc Tue Nov 07 10:05:28 2023 -0500
+++ b/htoprc Thu Nov 09 12:24:16 2023 -0500
@@ -38,7 +38,7 @@
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
+tree_view=0
sort_key=46
tree_sort_key=0
sort_direction=-1
@@ -48,7 +48,7 @@
screen:Main=PID USER PRIORITY NICE M_VIRT M_RESIDENT M_SHARE STATE PERCENT_CPU PERCENT_MEM TIME Command
.sort_key=PERCENT_CPU
.tree_sort_key=PID
-.tree_view=1
+.tree_view=0
.tree_view_always_by_pid=1
.sort_direction=-1
.tree_sort_direction=1
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/parens.lisp Thu Nov 09 12:24:16 2023 -0500
@@ -0,0 +1,58 @@
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (ql:quickload
+ '(:adopt :losh :parenscript)
+ :silent t))
+
+(defpackage :parens
+ (:use :cl :iterate :losh)
+ (:export :toplevel :*ui*))
+
+(defpackage :parenscript-user
+ (:use :cl :parenscript))
+
+(in-package :parens)
+
+;;;; Run ----------------------------------------------------------------------
+(defun compile-with-parenscript (in-stream out-stream)
+ (let ((parenscript:*parenscript-stream* out-stream))
+ (ps:ps-compile-stream in-stream)))
+
+(defun run ()
+ (compile-with-parenscript *standard-input* *standard-output*))
+
+
+;;;; User Interface -----------------------------------------------------------
+(defparameter *option-help*
+ (adopt:make-option 'help
+ :help "Display help and exit."
+ :long "help"
+ :short #\h
+ :reduce (constantly t)))
+
+
+(adopt:define-string *help-text*
+ "parens is a helper program to invoke the parenscript compiler for standalone ~
+ files, so you can just use parenscript without the Common Lisp bits.")
+
+(defparameter *examples*
+ '(("Compile:" . "cat foo.lisp | parens > out.js")))
+
+(defparameter *ui*
+ (adopt:make-interface
+ :name "parens"
+ :usage "[OPTIONS]"
+ :summary "standalone parenscript compiler"
+ :help *help-text*
+ :examples *examples*
+ :contents (list *option-help*)))
+
+
+(defun toplevel ()
+ (multiple-value-bind (arguments options) (adopt:parse-options-or-exit *ui*)
+ (handler-case
+ (if (gethash 'help options)
+ (adopt:print-help-and-exit *ui*)
+ (progn (assert (null arguments))
+ (run)))
+ (error (e) (adopt:print-error-and-exit e)))))
+
--- a/vim/vimrc Tue Nov 07 10:05:28 2023 -0500
+++ b/vim/vimrc Thu Nov 09 12:24:16 2023 -0500
@@ -1375,6 +1375,7 @@
au FileType cs setlocal commentstring=//\ %s
au FileType arduino setlocal commentstring=//\ %s
au FileType pandabt setlocal commentstring=//\ %s
+ au FileType nextflow setlocal commentstring=//\ %s
augroup END
" }}}