[dev] [surf] shell script to do bookmarks, history, and other things

Hi Folks,

So, I've cobbled together the attached shell script to do most of what I
want to do with surf, including history, smart prefixes, and bookmarks.
The upshot is that one doesn't need the history patch and the searchengines
patch.

I'd appreciate comments on this, esp.\ with respect to how I can figure
out what the TITLE value is of a new uri. The current technique does
a nasty little loop; and it still sometimes returns odd values for the
TITLE. You can see that in the comments to the code.

In config.h replace the SETPROP line with:

#define SETPROP(p) { .v = (char *[]){ "/bin/sh", "-c", "surf.sh $1 $0", p, winid, NULL } }

And you also bind:

{ MODKEY, GDK_b, spawn, SETPROP("_SURF_BMARK") },

============= surf.sh ===================================================

#!/bin/sh
# TODO add to surf-start.sh a cleanup routine to get rid of all old entries
# $1 = $xid
# $2 = $p = _SURF_FIND _SURF_BMARK _SURF_URI i.e. what SETPROP states in config.h

function s_add() {
         url=$1
         name=$2
         timestamp=`date +%Y%m%d%H%M%S`
         grep "$url" ~/.surf/history >/dev/null || echo -e "$url\t$name\t$timestamp" >> ~/.surf/history
}

function s_get_uri() {
         xid=$1
         xprop -id $xid _SURF_URI | cut -d '"' -f 2
}

function s_get_name() {
         xid=$1
         xprop -id $xid WM_ICON_NAME | cut -d '"' -f 2
}

function s_set_uri() {
         xid=$1
         newuri=$2
         xprop -id $xid -f _SURF_URI 8s -set _SURF_URI "$newuri" 2>/dev/null >/dev/null
}

xid=$1
p=$2

if [[ $p == "_SURF_FIND" ]]; then
         dmenu -b -p ":"
     exit;
elif [[ $p == "_SURF_BMARK" ]]; then
         cur=`s_get_uri $xid`
         name=`s_get_name $xid`
             s_add "$cur" "$name"
         exit;
else
         # display the history PLUS the current uri via dmenu
         cur=`s_get_uri $xid`
         curname=`s_get_name $xid`
             cp ~/.surf/history /tmp/surf.history.$$
             echo -e "$cur\t$curname\t$timestamp" >> /tmp/surf.history.$$
             selection=`tac /tmp/surf.history.$$ | awk 'BEGIN { FS="\t" } {print $1" "$2}' | dmenu -b -l 10`
         rm -f /tmp/surf.history.$$

         # if we hit escape, then exit
         if [[ $selection == "" ]]; then
                 exit;
         fi

         # post "smart" process
         # entries ($selection) will either be:
         # gg foobar foo foo2 foo3 i.e. <SMART ABBV><SPACE><VALUE>
         # or:
         # http://www.google.com/ NAME OF SITE i.e. <URL><SPACE><NAME>
         #

         # this removes trailing whitespace, ie when there is no name
         OPTION=$(echo $selection | sed -e 's/^ *//g;s/ *//g' | awk '{print $1}')

         if [[ $OPTION == "gg" ]]; then
             VALUE=$(echo $selection | sed 's/gg //' | urlencode.sh)
             URL="http://www.google.com/search?q=$VALUE"
             s_set_uri $xid $URL
             s_add "$selection" ""
         elif [[ $OPTION == "ut" ]]; then
             VALUE=$(echo $selection | sed 's/ut //' | urlencode.sh)
             URL="http://search2.library.utoronto.ca/UTL/index?N=0&Ntk=Anywhere&Ntt=$VALUE&Ntx=mode%2Bmatchallpartial&Nu=p_work_normalized&Np=1&formName=search_form_simple"
             s_set_uri $xid $URL
             s_add "$selection" ""
         else
             # otherwise go to the url they enter
             URL=$(echo $selection | awk '{print $1}')
             s_set_uri $xid $URL
             # NASTY little hack to figure out what the REAL TITLE is.
             name="`s_get_name $xid`"
             while echo $name | grep "[*%\]"; do
                     name=`s_get_name $xid`
             done
             s_add $URL "$name"
         fi
fi

Peter Hartman

--
sic dicit magister P.
http://individual.utoronto.ca/peterjh/