zenu

Des menus dans votre terminal - retour accueil

git clone git://bebou.netlib.re/zenu

Log | Files | Refs | README |

build (994B)

      1 #! /usr/bin/env zsh
      2 
      3 usage() <<-% cat
      4 	usage:
      5 	* build a face (the file that becomes part of a menu)
      6 		$0 face file
      7 		$0 -f file
      8 	* build a script (the function to handle pressed keys)
      9 		$0 script file
     10 		$0 -f file
     11 %
     12 
     13 cmd="${1?command to run. -h for details}"
     14 :   "${2?file to parse. -h for details}"
     15 shift
     16 
     17 case "$cmd"
     18 in (-h|help|--help) usage
     19 ;; (face   | -f) sed -En '/^##/q;s/_(.)/\1/g;s/^/ /p' "$@"
     20 # Avoid Quoting hell (QH) with aliases:
     21 # with QH 
     22 ;; (script | -s) <<-% cat
     23 		$( sed -En '/^## *pre */,/^##/p' "$@" )
     24 		read -sk1 zenu_key
     25 		case "\$zenu_key"
     26 		in (\$'q') zenu--;;
     27 		(=) \${EDITOR:-vim} \${0%.*};cd \${zenu_base%menus};make;
     28 		$( sed -En '/^## *react */,/^##/p' "$@" )
     29 		esac 2> \$zenu_store/err
     30 	%
     31 ;; (emph| -e)
     32 	sed -En '/^##/q;s/(.*)_((.).*)/\3 \1\2 /;p' "$@" | awk '
     33 			{line[i++]=$0}
     34 			(l=length)>m {m=l}
     35 			END { for (i=0; i<until ; ++i) printf "%-*s\n", m, line[i] }
     36 		' until=$(cat $to/until.txt)
     37 ;; (*)
     38 	>& echo "$cmd isn't a valid command"
     39 	false
     40 esac
     41 
     42