# HG changeset patch # User Steve Losh # Date 1617032082 14400 # Node ID abb473227306c0de9b36113e6ddcf41346281eb5 # Parent bc7db8a658859369e2d98feab49e107bbd4a60be# Parent 808324313cb6a1677ab94cccea2691a59148021a Merge diff -r 808324313cb6 -r abb473227306 gitconfig --- a/gitconfig Thu Dec 24 15:56:30 2020 -0500 +++ b/gitconfig Mon Mar 29 11:34:42 2021 -0400 @@ -61,10 +61,13 @@ delete-remote-branch = "!sh -c 'git push $1 --delete $2' -" delete-branch = "!sh -c 'git delete-local-branch $1; git remotes | cut -f1 | sort | uniq | xargs -n1 -I % git delete-local-reference-to-remote-branch % $1' -" delete-current-branch = "!bash -c 'git checkout master && git delete-branch $1' - $(git current-branch)" + purge-branch = "!sh -c 'set -x; git delete-local-branch $1; git delete-local-reference-to-remote-branch origin $1 && git delete-remote-branch origin $1' -" clean-local-branches = "!sh -c 'git branch --merged master | grep -v master$ | xargs git branch -d' -" clean-remote-tracking-branches = "!sh -c 'git branch -r --merged master | grep -v /master$ | xargs git branch -rd' -" clean-branches = "!sh -c 'git checkout master && git fetch origin && git merge --ff-only origin/master && git clean-local-branches && git clean-remote-tracking-branches' -" + branch-activity = "!sh -c 'git log -n1 --pretty=format:\"%aI%d\n\" $1 --' -" + current-branch = rev-parse --abbrev-ref HEAD fo = fetch origin diff -r 808324313cb6 -r abb473227306 lisp/genpass.lisp --- a/lisp/genpass.lisp Thu Dec 24 15:56:30 2020 -0500 +++ b/lisp/genpass.lisp Mon Mar 29 11:34:42 2021 -0400 @@ -12,7 +12,8 @@ (defparameter *words* nil) (defparameter *version* "0.0.1") (defparameter *random-path* "/dev/urandom") -(defparameter *wordlist-path* "/usr/share/dict/words") +(defparameter *wordlist-path* "/usr/share/dict/scowl/english-words.20") +(defparameter *wordlist-encoding* :ISO-8859-1) ;;;; Functionality ------------------------------------------------------------ @@ -30,10 +31,11 @@ (defun word-list () (unless *words* (setf *words* - (iterate - (for line :in-file *wordlist-path* :using #'read-line) - (when (every #'safep line) - (collect line :result-type vector))))) + (with-open-file (s *wordlist-path* :external-format *wordlist-encoding*) + (iterate + (for line :in-stream s :using #'read-line) + (when (every #'safep line) + (collect line :result-type vector)))))) *words*) (defun random-unsigned-byte-32 () diff -r 808324313cb6 -r abb473227306 lisp/subex.lisp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/subex.lisp Mon Mar 29 11:34:42 2021 -0400 @@ -0,0 +1,99 @@ +(eval-when (:compile-toplevel :load-toplevel :execute) + (ql:quickload '(:adopt) :silent t)) + +(defpackage :subex + (:use :cl) + (:export :toplevel *ui*)) + +(in-package :subex) + +;;;; Global Options and UI ---------------------------------------------------- +(defparameter *o/help* + (adopt:make-option 'help :long "help" :help "display help and exit" :reduce (constantly t))) + +(defparameter *o/version* + (adopt:make-option 'version :long "version" :help "display version and exit" :reduce (constantly t))) + +(defparameter *ui/main* + (adopt:make-interface + :name "subex" + :usage "[subcommand] [options]" + :help "subcommand example program" + :summary "an example program that uses subcommands" + :contents (list *o/help* *o/version*))) + +(defparameter *ui* *ui/main*) + + +;;;; Subcommand Foo ----------------------------------------------------------- +(defparameter *o/foo/a* + (adopt:make-option 'a :result-key 'mode :short #\a :help "run foo in mode A" :reduce (constantly :a))) + +(defparameter *o/foo/b* + (adopt:make-option 'b :result-key 'mode :short #\b :help "run foo in mode B" :reduce (constantly :b))) + +(defparameter *ui/foo* + (adopt:make-interface + :name "subex foo" + :usage "foo [-a|-b]" + :summary "foo some things" + :help "foo some things" + :contents (list *o/foo/a* *o/foo/b*))) + +(defun run/foo (mode) + (format t "Running foo in ~A mode.~%" mode)) + + +;;;; Subcommand Bar ----------------------------------------------------------- +(defparameter *o/bar/meow* + (adopt:make-option 'meow :long "meow" :help "meow loudly after each step" :reduce (constantly t))) + +(defparameter *ui/bar* + (adopt:make-interface + :name "subex bar" + :usage "bar [--meow] FILE..." + :summary "bar some files" + :help "bar some files" + :contents (list *o/bar/meow*))) + +(defun run/bar (paths meow?) + (dolist (p paths) + (format t "Bar-ing ~A.~%" p) + (when meow? + (write-line "meow.")))) + + +;;;; Toplevel ----------------------------------------------------------------- +(defun toplevel/foo (args) + (multiple-value-bind (arguments options) (adopt:parse-options-or-exit *ui/foo* args) + (unless (null arguments) + (error "Foo does not take arguments, got ~S" arguments)) + (run/foo (gethash 'mode options)))) + +(defun toplevel/bar (args) + (multiple-value-bind (arguments options) (adopt:parse-options-or-exit *ui/bar* args) + (when (null arguments) + (error "Bar requires arguments, got none.")) + (run/bar arguments (gethash 'meow options)))) + +(defun lookup-subcommand (string) + (cond + ((null string) (values nil *ui/main*)) + ((string= string "foo") (values #'toplevel/foo *ui/foo*)) + ((string= string "bar") (values #'toplevel/bar *ui/bar*)) + (t (error "Unknown subcommand ~S" string)))) + +(defun toplevel () + (sb-ext:disable-debugger) + (multiple-value-bind (arguments global-options) + (handler-bind ((adopt:unrecognized-option 'adopt:treat-as-argument)) + (adopt:parse-options *ui/main*)) + (when (gethash 'version global-options) + (write-line "1.0.0") + (adopt:exit)) + (multiple-value-bind (subtoplevel ui) (lookup-subcommand (first arguments)) + (when (or (null subtoplevel) + (gethash 'help global-options)) + (adopt:print-help-and-exit ui)) + (funcall subtoplevel (rest arguments))))) + diff -r 808324313cb6 -r abb473227306 userContent.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/userContent.css Mon Mar 29 11:34:42 2021 -0400 @@ -0,0 +1,4 @@ +@-moz-document domain(sumologic.com) { + table#search_query_results_view_table td.message { padding: 0 !important; } + table#search_query_results_view_table td.offset { padding: 0 !important; } +} diff -r 808324313cb6 -r abb473227306 vim/tmp/undo/.placeholder