io-abduco

   1 # Detacheable buffer for programs and files
   2
   3
   4 CACHE="${XDG_CACHE_HOME:-$HOME/.cache}"
   5
   6
   7 usage()
   8 {
   9         printf '%s\n' "${0##*/} [-w] [cmd [args...]]
  10
  11         -w      update command description using whatis
  12         cmd     do not prompt for a command and run CMD right away
  13         args    do not prompt for arguments neither and use ARG"
  14 }
  15
  16
  17 #
  18 # Update the cache and get the command to run.
  19 #
  20 update_commands_cache()
  21 {
  22         # get the command name from cache or stest
  23         IFS=':'
  24         if stest -dqr -n "$CACHE/dmenu_run" $PATH
  25         then
  26                 stest -flx $PATH | sort -u > "$CACHE/dmenu_run"
  27                 cp "$CACHE/dmenu_run" "$CACHE/buffer/run"
  28         fi
  29         unset IFS
  30 }
  31
  32
  33 #
  34 # Generate descriptions of commands from whatis(1).  This takes a lot of time.
  35 #
  36 update_descriptions_cache()
  37 {
  38         local whatis
  39
  40         update_commands_cache
  41
  42         while IFS= read -r command
  43         do
  44                 whatis="$(whatis -s 1 "$command" 2> /dev/null | tail -n 1)"
  45                 if [ "$whatis" ]
  46                 then
  47                         printf '%-20s # %s\n' \
  48                                 "$command" "${whatis#* - }"
  49                 else
  50                         printf '%s\n' "$command"
  51                 fi
  52         done < $CACHE/dmenu_run > "$CACHE/buffer/run"
  53 }
  54
  55
  56 #
  57 # Prompt for options for a given command and log it to an history file
  58 #
  59 get_options()
  60 {
  61         local command="$1"
  62         local history
  63
  64         printf '%s ' "$command" >> "$CACHE/buffer/history"
  65
  66         while read -r cmd options
  67         do
  68                 [ "$command" = "$cmd" -a "$options" ] && printf '%s\n' "$options"
  69         done < $CACHE/buffer/history |
  70                 iomenu -c -p "$command" |
  71                 tee -a "$CACHE/buffer/history"
  72
  73         sort -u "$CACHE/buffer/history" -o "$CACHE/buffer/history"
  74 }
  75
  76
  77 #
  78 # Prompt for a file path in $HOME and print it.
  79 #
  80 get_path()
  81 {
  82         printf %s "$HOME"
  83
  84         find ~ -type f ! -path '*/.cache/*' ! -path '*/.git/*' |
  85                 while IFS='' read -r path
  86                 do
  87                         printf '~%s\n' "${path#$HOME}"
  88                 done | iomenu -l 256 | sed 's/^~//'
  89 }
  90
  91
  92 #
  93 # Get the options according to the command and run it
  94 #
  95 run()
  96 {
  97         local command="$1" options=""
  98         local path name
  99
 100         [ $# -gt 0 ] && shift && options="$*"
 101
 102         command="${command:-$(
 103                 iomenu -l 256 -s '#' << EOF | tr / !
 104 #
 105 # $(abduco | tr ! / | sed -r '2,$ s/(.*)\t(.*)/\2 # \1/')
 106 #
 107 # Commands
 108 $(cat "$CACHE/buffer/run")
 109 EOF
 110         )}"
 111
 112         [ -z "$command" ] && exit 1
 113
 114         # prompt for option if needed
 115         if [ "${command##* *}" ]
 116         then
 117                 [ -z "$options" ] && options="$( get_options "$command")"
 118
 119                 # if '+' is at the end of the options then prompt for a path
 120                 if [ -z "${options%%*+}" -a "$options" ]
 121                 then
 122                         path="$(get_path)" options="${options%+}"
 123                 fi
 124         fi
 125
 126         name="$command${options:+ $options}${path:+ ~${path#$HOME}}"
 127         name="$(printf %s "$name" | tr / !)"
 128
 129         export TERM='screen' ABDUCO="$command"
 130
 131         # run new or existing session with this name
 132         if [ "$path" ]
 133         then
 134                 exec abduco -e ^Z -A "$name" $command $options "$path"
 135         else
 136                 exec abduco -e ^Z -A "$name" $command $options
 137         fi
 138 }
 139
 140
 141 main()
 142 {
 143         mkdir -p "$CACHE/buffer"
 144
 145         if [ "$1" = -w ]
 146         then
 147                 update_descriptions_cache
 148         elif [ $# -gt 0 -a -z "${1##-*}" ]
 149         then
 150                 usage
 151         else
 152                 update_commands_cache
 153                 run $@
 154         fi
 155
 156         stty sane
 157 }
 158
 159 main $@