commit 6bf565fb5473c6c9734d8d3d817c8fa707073c45
parent de936d8c1720725be4c91c5ae0bb1bcbe6858905
Author: Kris Maglione <jg@suckless.org>
Date: Mon, 28 Sep 2009 20:52:20 -0400
Mv rc.wmii to alternative_wmiircs/plan9port/wmiirc.
Diffstat:
2 files changed, 274 insertions(+), 274 deletions(-)
diff --git a/alternative_wmiircs/plan9port/wmiirc b/alternative_wmiircs/plan9port/wmiirc
@@ -0,0 +1,274 @@
+#!/usr/bin/env wmii9rc
+cd
+scriptname=$0
+oldpath=$path; path=($PLAN9/bin $path)
+. wmii.rc wmiirc # Include utility functions
+
+# WMII Configuration
+
+# Keys
+MODKEY=Mod1
+UP=k
+DOWN=j
+LEFT=h
+RIGHT=l
+
+# Bars
+noticetimeout=5
+noticebar=/rbar/!notice
+
+# Theme
+wmiifont='drift,-*-fixed-*-*-*-*-9-*-*-*-*-*-*-*'
+wmiifont='-*-fixed-medium-r-*-*-13-*-*-*-*-*-*-*'
+wmiinormcol=`{echo '#000000 #c1c48b #81654f'}
+wmiifocuscol=`{echo '#000000 #81654f #000000'}
+wmiibackground='#333333'
+wmiifloatbackground='#222222'
+fn setbackground { xsetroot -solid $* }
+
+# Programs
+WMII_TERM=(xterm)
+
+# Column Rules
+wmiir write /colrules <<!
+/gimp/ -> 17+83+41
+/.*/ -> 62+38 # Golden Ratio
+!
+
+# Tagging Rules
+wmiir write /tagrules <<!
+/MPlayer|VLC/ -> ~
+!
+
+# Status Bar Info
+fn status {
+ echo -n `{uptime | sed 's/.*://; s/,//g'} \
+ '|' `{date}
+}
+
+# End Configuration
+
+# For the time being, this file follows the lisp bracing
+# convention. i.e.:
+# if(frob this) {
+# frob that
+# if(frob theother) {
+# unfrob this
+# unfrob that}}
+# Comments welcome.
+
+confpath=`{echo $WMII_CONFPATH | sed 'y/:/ /'}
+
+# Events
+fn sigexit {
+ rm -f $progs_file
+ wi_cleankeys
+}
+
+fn Event-CreateTag {
+ echo $wmiinormcol $* | wmiir create /lbar/$"*}
+fn Event-DestroyTag {
+ wmiir remove /lbar/$"*}
+fn Event-FocusTag {
+ wmiir xwrite /lbar/$"* $wmiifocuscol $*}
+fn Event-UnfocusTag {
+ wmiir xwrite /lbar/$"* $wmiinormcol $*}
+fn Event-UrgentTag {
+ shift
+ wmiir xwrite /lbar/$"* '*'$"*}
+fn Event-NotUrgentTag {
+ shift
+ wmiir xwrite /lbar/$"* $"*}
+fn Event-AreaFocus {
+ if(~ $1 '~')
+ setbackground $wmiifloatbackground
+ if not
+ setbackground $wmiibackground }
+
+fn Event-Unresponsive {
+ client = $1; shift
+ @{
+ msg = 'The following client is not responding. What would you like to do?'
+ resp = `{wihack -transient $client \
+ xmessage -nearmouse -buttons Kill,Wait -print \
+ $msg $wi_nl '' `{wmiir read /client/$client/label}}
+ if(~ $resp Kill)
+ wmiir xwrite /client/$client/ctl slay
+ }&}
+fn Event-Notice {
+ wmiir xwrite $noticebar $wi_arg
+
+ /bin/kill $xpid >[2]/dev/null # Let's hope this isn't reused...
+ { sleep $noticetimeout; wmiir xwrite $noticebar ' ' }& # Bug...
+ xpid = $apid}
+
+fn Event-LeftBar^(Click DND) {
+ shift; wmiir xwrite /ctl view $*}
+
+fn ClientMenu-3-Delete {
+ wmiir xwrite /client/$1/ctl kill}
+fn ClientMenu-3-Kill {
+ wmiir xwrite /client/$1/ctl slay}
+fn ClientMenu-3-Fullscreen {
+ wmiir xwrite /client/$1/ctl Fullscreen on}
+fn Event-ClientMouseDown {
+ wi_fnmenu Client $2 $1 &}
+
+fn LBarMenu-3-Delete {
+ tag=$1; clients=`{wmiir read /tag/$tag/index | awk '/[^#]/{print $2}'}
+ for(c in $clients) {
+ if(~ $tag `{wmiir read /client/$c/tags})
+ wmiir xwrite /client/$c/ctl kill
+ if not
+ wmiir xwrite /client/$c/tags -$tag}
+ if(~ $tag `{wi_seltag}) {
+ newtag = `{wi_tags | awk -v't='$tag '
+ $1 == t { if(!l) getline l
+ print l
+ exit }
+ { l = $0 }'}
+ wmiir xwrite /ctl view $newtag}}
+fn Event-LeftBarMouseDown {
+ wi_fnmenu LBar $* &}
+
+# Actions
+fn Action-rehash {
+ comm -23 <{ls `{namespace}^/proglist.* >[2]/dev/null | awk -F'.' '{print $NF}'} \
+ <{ps | awk '{print $2}'} |
+ while(id=`{read})
+ rm `{namespace}^/proglist.$id
+ wi_proglist $PATH >$progs_file}
+fn Action-quit {
+ wmiir xwrite /ctl quit}
+fn Action-exec {
+ wmiir xwrite /ctl exec $*}
+fn Action-status {
+ flag x -; flag r -
+ if(wmiir remove /rbar/status >[2]/dev/null)
+ sleep 2
+ echo $wmiinormcol | wmiir create /rbar/status
+ while(status | wmiir write /rbar/status)
+ sleep 1
+}
+
+# Source Variables, &c
+if(~ $0 ('' */)rc.wmii.local)
+ wi_notice This file should not be named rc.wmii.local
+if not
+ . `{wi_script -f rc.wmii.local}
+echo $wmiinormcol | wmiir create $noticebar
+
+# Key Bindings
+_keys = `{wi_getfuns Key}
+fn key {
+ key=()
+ for(k) if(! ~ $k $_keys) key = ($key Key-$k)
+ ~ $#key 0}
+
+# This is... ugly.
+
+key $MODKEY-Control-t || fn $key {
+ switch(`{wmiir read /keys | wc -l}) {
+ case 0 1
+ wmiir xwrite /keys $keys
+ wmiir xwrite /ctl grabmod $MODKEY
+ case *
+ ifs=() { keys=`{wmiir read /keys} }
+ wmiir xwrite /keys $MODKEY-Control-t
+ wmiir xwrite /ctl grabmod Mod3
+ }}
+
+key $MODKEY-$LEFT || fn $key {
+ wmiir xwrite /tag/sel/ctl select left}
+key $MODKEY-$RIGHT || fn $key {
+ wmiir xwrite /tag/sel/ctl select right}
+key $MODKEY-$DOWN || fn $key {
+ wmiir xwrite /tag/sel/ctl select down}
+key $MODKEY-$UP || fn $key {
+ wmiir xwrite /tag/sel/ctl select up}
+key $MODKEY-Control-$DOWN || fn $key {
+ wmiir xwrite /tag/sel/ctl select down stack}
+key $MODKEY-Control-$UP || fn $key {
+ wmiir xwrite /tag/sel/ctl select up stack}
+
+key $MODKEY-Shift-$LEFT || fn $key {
+ wmiir xwrite /tag/sel/ctl send sel left}
+key $MODKEY-Shift-$RIGHT || fn $key {
+ wmiir xwrite /tag/sel/ctl send sel right}
+key $MODKEY-Shift-$DOWN || fn $key {
+ wmiir xwrite /tag/sel/ctl send sel down}
+key $MODKEY-Shift-$UP || fn $key {
+ wmiir xwrite /tag/sel/ctl send sel up}
+
+key $MODKEY-f || fn $key {
+ wmiir xwrite /client/sel/ctl Fullscreen toggle}
+
+key $MODKEY-space || fn $key {
+ wmiir xwrite /tag/sel/ctl select toggle}
+key $MODKEY-Shift-space || fn $key {
+ wmiir xwrite /tag/sel/ctl send sel toggle}
+key $MODKEY-d || fn $key {
+ wmiir xwrite /tag/sel/ctl colmode sel default-max}
+key $MODKEY-s || fn $key {
+ wmiir xwrite /tag/sel/ctl colmode sel stack-max}
+key $MODKEY-m || fn $key {
+ wmiir xwrite /tag/sel/ctl colmode sel stack+max}
+
+key $MODKEY-Shift-c || fn $key {
+ wmiir xwrite /client/sel/ctl kill}
+
+key $MODKEY-a || fn $key {
+ Action `{wi_actions | wimenu -h $hist.action -n $histlen} &}
+key $MODKEY-p || fn $key {
+ ifs=() { cmd = `{wimenu -h $hist.prog -n $histlen <$progs_file} }
+ wi_runcmd $cmd & }
+
+key $MODKEY-Return || fn $key {
+ wi_runcmd $WMII_TERM &}
+
+key $MODKEY-t || fn $key {
+ tag=`{wi_tags | wimenu -h $hist.tag -n 50} && wmiir xwrite /ctl view $tag &}
+key $MODKEY-Shift-t || fn $key {
+ sel=`{wi_selclient} {
+ tag=`{wi_tags | wimenu -h $hist.tag -n 50} && wmiir xwrite /client/$sel/tags $tag } &}
+
+key $MODKEY-^`{seq 0 9} || fn $key {
+ wmiir xwrite /ctl view `{echo $1 | sed 's/.*-//'}}
+key Shift-$MODKEY-^`{seq 0 9} || fn $key {
+ wmiir xwrite /client/sel/tags `{echo $1 | sed 's/.*-//'}}
+
+#` WM Configuration
+wmiir write /ctl <<!
+ grabmod $MODKEY
+ border 2
+ font $wmiifont
+ focuscolors $wmiifocuscol
+ normcolors $wmiinormcol
+!
+setbackground $wmiibackground
+
+# Source Overrides
+Action overridekeys
+
+# Misc Setup
+progs_file=`{namespace}^/proglist.$pid
+hist=`{echo $WMII_CONFPATH | sed 's,:.*,/,'}^/history
+histlen=5000
+Action status &
+Action rehash &
+
+# Tag Bar Setup
+ifs=$wi_nl{
+ rc -c 'wmiir rm /lbar/^$*' >[2]/dev/null \
+ `{comm -23 <{wmiir ls /lbar} \
+ <{wi_tags}}
+ seltag=`{wi_seltag}
+ for(tag in `{wi_tags}) {{
+ if(~ $tag $seltag)
+ echo $wmiifocuscol $tag
+ if not
+ echo $wmiinormcol $tag
+ } | wmiir create /lbar/$tag}}
+
+wi_eventloop
+
diff --git a/rc/rc.wmii.rc b/rc/rc.wmii.rc
@@ -1,274 +0,0 @@
-#!/usr/bin/env wmii9rc
-cd
-scriptname=$0
-oldpath=$path; path=($PLAN9/bin $path)
-. wmii.rc wmiirc # Include utility functions
-
-# WMII Configuration
-
-# Keys
-MODKEY=Mod1
-UP=k
-DOWN=j
-LEFT=h
-RIGHT=l
-
-# Bars
-noticetimeout=5
-noticebar=/rbar/!notice
-
-# Theme
-wmiifont='drift,-*-fixed-*-*-*-*-9-*-*-*-*-*-*-*'
-wmiifont='-*-fixed-medium-r-*-*-13-*-*-*-*-*-*-*'
-wmiinormcol=`{echo '#000000 #c1c48b #81654f'}
-wmiifocuscol=`{echo '#000000 #81654f #000000'}
-wmiibackground='#333333'
-wmiifloatbackground='#222222'
-fn setbackground { xsetroot -solid $* }
-
-# Programs
-WMII_TERM=(xterm)
-
-# Column Rules
-wmiir write /colrules <<!
-/gimp/ -> 17+83+41
-/.*/ -> 62+38 # Golden Ratio
-!
-
-# Tagging Rules
-wmiir write /tagrules <<!
-/MPlayer|VLC/ -> ~
-!
-
-# Status Bar Info
-fn status {
- echo -n `{uptime | sed 's/.*://; s/,//g'} \
- '|' `{date}
-}
-
-# End Configuration
-
-# For the time being, this file follows the lisp bracing
-# convention. i.e.:
-# if(frob this) {
-# frob that
-# if(frob theother) {
-# unfrob this
-# unfrob that}}
-# Comments welcome.
-
-confpath=`{echo $WMII_CONFPATH | sed 'y/:/ /'}
-
-# Events
-fn sigexit {
- rm -f $progs_file
- wi_cleankeys
-}
-
-fn Event-CreateTag {
- echo $wmiinormcol $* | wmiir create /lbar/$"*}
-fn Event-DestroyTag {
- wmiir remove /lbar/$"*}
-fn Event-FocusTag {
- wmiir xwrite /lbar/$"* $wmiifocuscol $*}
-fn Event-UnfocusTag {
- wmiir xwrite /lbar/$"* $wmiinormcol $*}
-fn Event-UrgentTag {
- shift
- wmiir xwrite /lbar/$"* '*'$"*}
-fn Event-NotUrgentTag {
- shift
- wmiir xwrite /lbar/$"* $"*}
-fn Event-AreaFocus {
- if(~ $1 '~')
- setbackground $wmiifloatbackground
- if not
- setbackground $wmiibackground }
-
-fn Event-Unresponsive {
- client = $1; shift
- @{
- msg = 'The following client is not responding. What would you like to do?'
- resp = `{wihack -transient $client \
- xmessage -nearmouse -buttons Kill,Wait -print \
- $msg $wi_nl '' `{wmiir read /client/$client/label}}
- if(~ $resp Kill)
- wmiir xwrite /client/$client/ctl slay
- }&}
-fn Event-Notice {
- wmiir xwrite $noticebar $wi_arg
-
- /bin/kill $xpid >[2]/dev/null # Let's hope this isn't reused...
- { sleep $noticetimeout; wmiir xwrite $noticebar ' ' }& # Bug...
- xpid = $apid}
-
-fn Event-LeftBar^(Click DND) {
- shift; wmiir xwrite /ctl view $*}
-
-fn ClientMenu-3-Delete {
- wmiir xwrite /client/$1/ctl kill}
-fn ClientMenu-3-Kill {
- wmiir xwrite /client/$1/ctl slay}
-fn ClientMenu-3-Fullscreen {
- wmiir xwrite /client/$1/ctl Fullscreen on}
-fn Event-ClientMouseDown {
- wi_fnmenu Client $2 $1 &}
-
-fn LBarMenu-3-Delete {
- tag=$1; clients=`{wmiir read /tag/$tag/index | awk '/[^#]/{print $2}'}
- for(c in $clients) {
- if(~ $tag `{wmiir read /client/$c/tags})
- wmiir xwrite /client/$c/ctl kill
- if not
- wmiir xwrite /client/$c/tags -$tag}
- if(~ $tag `{wi_seltag}) {
- newtag = `{wi_tags | awk -v't='$tag '
- $1 == t { if(!l) getline l
- print l
- exit }
- { l = $0 }'}
- wmiir xwrite /ctl view $newtag}}
-fn Event-LeftBarMouseDown {
- wi_fnmenu LBar $* &}
-
-# Actions
-fn Action-rehash {
- comm -23 <{ls `{namespace}^/proglist.* >[2]/dev/null | awk -F'.' '{print $NF}'} \
- <{ps | awk '{print $2}'} |
- while(id=`{read})
- rm `{namespace}^/proglist.$id
- wi_proglist $PATH >$progs_file}
-fn Action-quit {
- wmiir xwrite /ctl quit}
-fn Action-exec {
- wmiir xwrite /ctl exec $*}
-fn Action-status {
- flag x -; flag r -
- if(wmiir remove /rbar/status >[2]/dev/null)
- sleep 2
- echo $wmiinormcol | wmiir create /rbar/status
- while(status | wmiir write /rbar/status)
- sleep 1
-}
-
-# Source Variables, &c
-if(~ $0 ('' */)rc.wmii.local)
- wi_notice This file should not be named rc.wmii.local
-if not
- . `{wi_script -f rc.wmii.local}
-echo $wmiinormcol | wmiir create $noticebar
-
-# Key Bindings
-_keys = `{wi_getfuns Key}
-fn key {
- key=()
- for(k) if(! ~ $k $_keys) key = ($key Key-$k)
- ~ $#key 0}
-
-# This is... ugly.
-
-key $MODKEY-Control-t || fn $key {
- switch(`{wmiir read /keys | wc -l}) {
- case 0 1
- wmiir xwrite /keys $keys
- wmiir xwrite /ctl grabmod $MODKEY
- case *
- ifs=() { keys=`{wmiir read /keys} }
- wmiir xwrite /keys $MODKEY-Control-t
- wmiir xwrite /ctl grabmod Mod3
- }}
-
-key $MODKEY-$LEFT || fn $key {
- wmiir xwrite /tag/sel/ctl select left}
-key $MODKEY-$RIGHT || fn $key {
- wmiir xwrite /tag/sel/ctl select right}
-key $MODKEY-$DOWN || fn $key {
- wmiir xwrite /tag/sel/ctl select down}
-key $MODKEY-$UP || fn $key {
- wmiir xwrite /tag/sel/ctl select up}
-key $MODKEY-Control-$DOWN || fn $key {
- wmiir xwrite /tag/sel/ctl select down stack}
-key $MODKEY-Control-$UP || fn $key {
- wmiir xwrite /tag/sel/ctl select up stack}
-
-key $MODKEY-Shift-$LEFT || fn $key {
- wmiir xwrite /tag/sel/ctl send sel left}
-key $MODKEY-Shift-$RIGHT || fn $key {
- wmiir xwrite /tag/sel/ctl send sel right}
-key $MODKEY-Shift-$DOWN || fn $key {
- wmiir xwrite /tag/sel/ctl send sel down}
-key $MODKEY-Shift-$UP || fn $key {
- wmiir xwrite /tag/sel/ctl send sel up}
-
-key $MODKEY-f || fn $key {
- wmiir xwrite /client/sel/ctl Fullscreen toggle}
-
-key $MODKEY-space || fn $key {
- wmiir xwrite /tag/sel/ctl select toggle}
-key $MODKEY-Shift-space || fn $key {
- wmiir xwrite /tag/sel/ctl send sel toggle}
-key $MODKEY-d || fn $key {
- wmiir xwrite /tag/sel/ctl colmode sel default-max}
-key $MODKEY-s || fn $key {
- wmiir xwrite /tag/sel/ctl colmode sel stack-max}
-key $MODKEY-m || fn $key {
- wmiir xwrite /tag/sel/ctl colmode sel stack+max}
-
-key $MODKEY-Shift-c || fn $key {
- wmiir xwrite /client/sel/ctl kill}
-
-key $MODKEY-a || fn $key {
- Action `{wi_actions | wimenu -h $hist.action -n $histlen} &}
-key $MODKEY-p || fn $key {
- ifs=() { cmd = `{wimenu -h $hist.prog -n $histlen <$progs_file} }
- wi_runcmd $cmd & }
-
-key $MODKEY-Return || fn $key {
- wi_runcmd $WMII_TERM &}
-
-key $MODKEY-t || fn $key {
- tag=`{wi_tags | wimenu -h $hist.tag -n 50} && wmiir xwrite /ctl view $tag &}
-key $MODKEY-Shift-t || fn $key {
- sel=`{wi_selclient} {
- tag=`{wi_tags | wimenu -h $hist.tag -n 50} && wmiir xwrite /client/$sel/tags $tag } &}
-
-key $MODKEY-^`{seq 0 9} || fn $key {
- wmiir xwrite /ctl view `{echo $1 | sed 's/.*-//'}}
-key Shift-$MODKEY-^`{seq 0 9} || fn $key {
- wmiir xwrite /client/sel/tags `{echo $1 | sed 's/.*-//'}}
-
-#` WM Configuration
-wmiir write /ctl <<!
- grabmod $MODKEY
- border 2
- font $wmiifont
- focuscolors $wmiifocuscol
- normcolors $wmiinormcol
-!
-setbackground $wmiibackground
-
-# Source Overrides
-Action overridekeys
-
-# Misc Setup
-progs_file=`{namespace}^/proglist.$pid
-hist=`{echo $WMII_CONFPATH | sed 's,:.*,/,'}^/history
-histlen=5000
-Action status &
-Action rehash &
-
-# Tag Bar Setup
-ifs=$wi_nl{
- rc -c 'wmiir rm /lbar/^$*' >[2]/dev/null \
- `{comm -23 <{wmiir ls /lbar} \
- <{wi_tags}}
- seltag=`{wi_seltag}
- for(tag in `{wi_tags}) {{
- if(~ $tag $seltag)
- echo $wmiifocuscol $tag
- if not
- echo $wmiinormcol $tag
- } | wmiir create /lbar/$tag}}
-
-wi_eventloop
-
