X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=scripts.git;a=blobdiff_plain;f=bashrc;h=6d1de66fae73d4a83fd8905e175bead18a1fdf2a;hp=20cb77dd7ddf77bd78b38e1b8717a5c637bdb729;hb=cabd80dd1cc5eb1263e18a395b05cc6d8279c073;hpb=715b46d9325d15fc04870c057ce67bf88138b545

diff --git a/bashrc b/bashrc
index 20cb77d..6d1de66 100644
--- a/bashrc
+++ b/bashrc
@@ -122,6 +122,7 @@ alias val='valgrind --leak-check=full --show-reachable=yes --db-attach=yes '
 
 alias s='screen -d -R -U && clear'
 alias p='feh --force-aliasing -d --full-screen --auto-zoom'
+alias gp=gnuplot
 
 function nh () {
     export HISTFILE=/dev/null
@@ -314,7 +315,12 @@ function scan () {
 # A password generator
 
 function genpw () {
-    tr -dc A-Za-z0-9 < /dev/urandom | head -c16
+    PW=$(tr -dc A-Za-z0-9 < /dev/urandom | head -c16)
+    if [[ ! "$1" == "-s" ]]
+    then
+       echo "$(date) ${PW}" >> ${HOME}/private/genpw.log
+    fi
+    echo ${PW}
     # tr -dc [:graph:] < /dev/urandom | head -c16
     echo
 }
@@ -585,11 +591,54 @@ function checkgw () {
 # Show the most recent files, no scroll
 
 function lr () {
-    HEIGHT=$(stty size | awk '{print $1}')
-    WIDTH=$(stty size | awk '{print $2}')
-    \ls -goth --time-style="+%Y %b %d %H:%M" "$@" | \
-        head -$((HEIGHT-2)) | \
-        cut -b1-${WIDTH}
+    TERM_SIZE=($(stty size))
+    INVIS="${VT_GREEN_FG}${VT_RESET}"
+    \ls -goth --time-style="+${VT_GREEN_FG}%Y %b %d %H:%M${VT_RESET}" "$@" | \
+        head -$((TERM_SIZE[0]-2)) | cut -b1-$((TERM_SIZE[1]+${#INVIS}))
+}
+
+######################################################################
+
+reduce-pdf () {
+
+    # /screen selects low-resolution output
+    # /ebook selects medium-resolution output
+    # /printer selects "Print Optimized" setting.
+    # /prepress selects "Prepress Optimized" setting.
+
+    quality="printer"
+
+    while [[ "$1" ]]
+    do
+        if [[ "$1" == "--help" ]] || [[ "$1" == "-h" ]]
+        then
+            echo "$0 [<file.pdf>|--quality <screen|ebook|printer|prepress>] ..."
+            return 0
+
+        elif [[ "$1" == "--quality" ]]
+        then
+            shift
+            quality="$1"
+
+        elif [[ -f "$1" ]]
+        then
+            result="$(basename "$1" .pdf)-${quality}.pdf"
+            echo -n "Generating ${result} with quality ${quality} ... "
+            gs -sDEVICE=pdfwrite \
+               -dCompatibilityLevel=1.4 \
+               -dPDFSETTINGS=/${quality} \
+               -dColorConversionStrategy=/LeaveColorUnchanged \
+               -dNOPAUSE -dQUIET -dBATCH \
+               -sOutputFile="${result}" "$1"
+            echo "done."
+            ls -hl "$1" "${result}"
+
+        else
+            echo "Cannot fine $1"
+
+        fi
+        shift
+    done
 }
 
 ######################################################################