# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1557434709 14400
# Node ID 27ccadef78b3fedcc70bf8bea8bdbfe692172f20
# Parent  0ababcc7c2a604f3dd3fb3ed156b9d3de0f769c3
More

diff -r 0ababcc7c2a6 -r 27ccadef78b3 bash_profile
--- a/bash_profile	Wed May 08 12:39:05 2019 -0400
+++ b/bash_profile	Thu May 09 16:45:09 2019 -0400
@@ -2,7 +2,6 @@
 
 shopt -s expand_aliases
 
-
 # This file contains aliases and functions that duplicate some fish
 # functionality, because Vim will use bash as its external command shell.
 
diff -r 0ababcc7c2a6 -r 27ccadef78b3 bin/bash-dammit
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/bash-dammit	Thu May 09 16:45:09 2019 -0400
@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+exec /bin/bash --login "$@"
diff -r 0ababcc7c2a6 -r 27ccadef78b3 bin/echon
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/echon	Thu May 09 16:45:09 2019 -0400
@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+echo -n "$@"
diff -r 0ababcc7c2a6 -r 27ccadef78b3 lisp/clhs.lisp
--- a/lisp/clhs.lisp	Wed May 08 12:39:05 2019 -0400
+++ b/lisp/clhs.lisp	Thu May 09 16:45:09 2019 -0400
@@ -17,6 +17,7 @@
 (defparameter *default-open-command* "open")
 (defparameter *open* *default-open-command*)
 (defparameter *url* *default-hyperspec-url*)
+(defparameter *quiet* nil)
 
 
 ;;;; Curl ---------------------------------------------------------------------
@@ -92,7 +93,8 @@
   (let ((path (find-symbol-path target-symbol)))
     (if path
       (let ((url (url path)))
-        (format t "Opening ~A~%" url)
+        (unless *quiet*
+          (format t "Opening ~A~%" url))
         (uiop:run-program `(,*open* ,url)
                           :ignore-error-status t
                           :input :interactive
@@ -127,6 +129,14 @@
     :short #\h
     :reduce (constantly t)))
 
+(defparameter *o-quiet*
+  (adopt:make-option 'quiet
+    :help "don't display extra logging output"
+    :manual "Don't display any extra logging output."
+    :long "quiet"
+    :short #\q
+    :reduce (constantly t)))
+
 (defparameter *o-rebuild-cache*
   (adopt:make-option 'rebuild-cache
     :help "rebuild the symbol cache"
@@ -142,7 +152,7 @@
     :short #\o
     :parameter "COMMAND"
     :initial-value *default-open-command*
-    :reduce #'adopt:newest))
+    :reduce #'adopt:last))
 
 (defparameter *o-url*
   (adopt:make-option 'url
@@ -156,7 +166,7 @@
     :short #\u
     :parameter "URL"
     :initial-value *default-hyperspec-url*
-    :reduce #'adopt:newest))
+    :reduce #'adopt:last))
 
 
 (defparameter *ui*
@@ -167,6 +177,7 @@
     :help *documentation*
     :examples *examples*
     :contents (list *o-help*
+                    *o-quiet*
                     *o-rebuild-cache*
                     *o-open*
                     *o-url*)))
@@ -178,6 +189,7 @@
           (adopt:print-help-and-exit *ui*))
         (let ((*open* (gethash 'open options))
               (*url* (gethash 'url options))
+              (*quiet* (gethash 'quiet options))
               (target (first arguments)))
           (if (gethash 'rebuild-cache options)
             (rebuild-cache)
diff -r 0ababcc7c2a6 -r 27ccadef78b3 stumpwmrc
--- a/stumpwmrc	Wed May 08 12:39:05 2019 -0400
+++ b/stumpwmrc	Thu May 09 16:45:09 2019 -0400
@@ -17,7 +17,7 @@
       *new-frame-action* :empty
       *window-format* "(%n%m%20t)"
       *window-name-source* :title
-      *shell-program* "/bin/bash")
+      *shell-program* "/home/sjl/src/dotfiles/bin/bash-dammit")
 
 
 ;;;; Utils --------------------------------------------------------------------
@@ -222,6 +222,10 @@
      (run-shell-command "systemctl suspend"))
     (t (message "Not sleeping this machine for safety.."))))
 
+(defcommand copy-clhs-url (s)
+    ((:string "Symbol: "))
+  (run-shell-command (format nil "clhs --url 'http://www.lispworks.com/documentation/HyperSpec/' --quiet --open echon '~A' | pbcopy" s)))
+
 
 ;;;; Terminal Fonts -----------------------------------------------------------
 (defcommand st-font-up ()