Diff: WindowMakerThemes
Differences between version 9 and previous revision of WindowMakerThemes.
Other diffs: Previous Major Revision, Previous Author
Newer page: | version 9 | Last edited on January 30, 2009 2:19 pm | by PhilHollenback | Revert |
Older page: | version 8 | Last edited on October 12, 2007 3:33 pm | by PhilHollenback | Revert |
@@ -62,8 +62,18 @@
To use this script, start it in your .xsession or .startxrc with the -b switch. It will then change the theme every 30 minutes. If you call it without the -b switch, it changes the theme immediately and exits.
--phil 3/7/02
+-----
+<?plugin RawHtml
+<script>
+var idcomments_acct = '011e5665a1128cdbe79c8077f0f04353';
+var idcomments_post_id;
+var idcomments_post_url;
+</script>
+<span id="IDCommentsPostTitle" style="display:none"></span>
+<script type='text/javascript' src='http://www.intensedebate.com/js/genericCommentWrapperV2.js'></script>
+?>
-----
<?plugin RawHtml
<center>
<script type="text/javascript"><!--
version 9
The WindowMaker window manager has a theme mechanisim which controls your background images, titlebar images, etc. This is controlled with the setstyle program.
I wrote the following script to invoke setstyle and give it a random theme:
#!/usr/bin/tcl # A script to randomly select a new windowmaker theme. # Phil Hollenback # philiph_at_pobox.com # 4/29/03 set Background [ lindex $argv 0 ] set ScriptName [ file tail $argv0 ] set dir "~/GNUstep/Library/WindowMaker/Themes" set styleprog /usr/X11R6/bin/setstyle set SleepTime 3600 set themelist [ readdir $dir ] proc PrintUsage {} { global ScriptName SleepTime puts "Usage: $ScriptName \[-b\]" puts "optional b switch causes program to stay running and wake up every $SleepTime" puts "seconds to change the background." } if { $argc > 1 } { PrintUsage exit 1 } # Pick a random theme from the list. random seed set picknum [ random [ llength $themelist ] ] set theme [ lindex $themelist $picknum ] #echo "theme is $theme" if [ file exists "$dir/$theme" ] { set result [system $styleprog $dir/"$theme"] if [ expr $result != 0 ] { puts stderr "$styleprog failed!" puts stderr "Theme was $dir/$theme" exit 1 } if { [ string compare $Background "-b" ] != 0 } { # quit unless user specified "-b" persistent switch. exit 0 } } else { echo "Can't find theme $dir/$theme! Where did it go?" exit 1 } # Sleep for a while, then respawn to change the background again. sleep $SleepTime execl $argv0 "-b"
To use this script, start it in your .xsession or .startxrc with the -b switch. It will then change the theme every 30 minutes. If you call it without the -b switch, it changes the theme immediately and exits.
--phil 3/7/02