New stow hierarchy

1 files changed, 0 insertions, 305 deletions

diff --git a/.scwmrc b/.scwmrc
deleted file mode 100644
index 72ddae8..0000000
--- a/.scwmrc
+++ /dev/null
@@ -1,305 +0,0 @@
-;; -*- mode: scheme; -*-
-;; simple.scwmrc was system.scwmrc until Scwm-0.99.2
-
-;; Uncomment the below to send a single UDP packet to
-;; the scwm usage counter machine at startup
-;; The single packet just contains the hostname and version number
-;; To disable, set environment variable SCWM_DO_NOT_LOG_USAGE
-;;(define thank-scwm-authors-with-usage-note #t)
-
-(define user-image-load-path
-  (list (string-append (user-home) "/src/scwm/pixmaps")
-	(string-append (user-home) "/src/scwm/bitmaps")))
-
-;;; set path to use for image searches
-(set! image-load-path
-      (append
-       user-image-load-path
-       '("/usr/X11/lib/X11/mini-icons" "/usr/X11/include/X11/pixmaps"
-         "/usr/lib/icons" "/usr/local/X11/include/X11/pixmaps"
-         "/usr/local/lib/icons" "/usr/local/icons"
-         "/uns/share/include/X11/pixmaps" "/uns/share/include/X11/bitmaps")
-       image-load-path))
-
-;;-------------------------------;;
-;; import the scwm modules       ;;
-
-#!
-(use-scwm-modules minimal base winops winlist wininfo
-		  doc style message-window face
-		  preferences style
-		  ;optargs winlist-menu)
-		  winlist-menu)
-!#
-
-
-(use-modules
- (app scwm minimal)
- (app scwm base)
- (app scwm style)
- (app scwm winops)
- (app scwm winlist)
- (app scwm wininfo)
- (app scwm doc)
- (app scwm message-window)
- (app scwm face)
- ;(app scwm preferences)
- (app scwm optargs)
- (app scwm winlist-menu))
-
-
-;;-------------------------------;;
-;; set some basic styles info    ;;
-
-
-(define font
-  (make-font "-unknown-DejaVu Sans Mono-normal-normal-normal-*-18-*-*-*-m-0-iso10646-1"))
-
-(menu-style #:fg "#eeeeec"
-            #:bg "#252a2b"
-            #:stipple "blue"
-            #:hl-fg "yellow"
-            #:font font)
-
-(title-style #:font font #:justify 'left)
-
-(set-icon-font! font)
-(set-highlight-foreground! "white")
-(set-highlight-background! "blueviolet")
-(set-rubber-band-mask! 127)
-
-;;-------------------------------;;
-;; set some paths                ;;
-;;
-
-;; these are OK for my system, but may need to be changed for
-;; yours. This should probably be eventually autoconfed or something.
-
-;;; set path to use for image searches
-(set! image-load-path
-      (append
-       user-image-load-path
-       '("/usr/X11/lib/X11/mini-icons" "/usr/X11/include/X11/pixmaps"
-         "/usr/lib/icons" "/usr/local/X11/include/X11/pixmaps"
-         "/usr/local/lib/icons" "/usr/local/icons"
-         "/uns/share/include/X11/pixmaps" "/uns/share/include/X11/bitmaps")
-       image-load-path))
-
-;;-------------------------------;;
-;; set some window styles        ;;
-
-(window-style "*"
-	      #:fg "white" #:bg "navy"
-	      #:icon "unknown1.xpm"
-	      #:icon-box (list (x- 70) 1 69 (y- 141))
-	      #:border-width 6
-	      #:focus 'mouse
-	      #:mwm-func-hint #t #:mwm-decor-hint #t
-	      #:hint-override #t #:decorate-transient #t
-	      #:PPosition-hint #f
-	      #:lenience #t
-	      )
-(define desk-widget
-  (make-style #:plain-border #t #:sticky #t #:winlist-skip #t
-	      #:border-width 3 #:focus 'none))
-
-(window-style "*lock" #:use-style desk-widget)
-(window-style "xload" #:no-titlebar #t #:use-style desk-widget)
-(window-style "xscreensaver" #:no-titlebar #t #:use-style desk-widget)
-(window-style "xbiff" #:no-titlebar #t #:use-style desk-widget)
-(window-style "xcalc" #:icon "xcalc.xpm")
-(window-style "xman" #:icon "xman.xpm")
-(window-style "xmag" #:icon "mag_glass.xpm")
-(window-style "Emacs" #:icon "gnu-animal.xpm")
-(window-style "XTerm" #:icon "xterm.xpm")
-
-
-;; People seem to prefer move by full virtual desks
-(set-edge-resistance! 500 10)
-(set-edge-scroll! (%x 100) (%y 100))
-
-
-;;-------------------------------;;
-;; define some useful menus      ;;
-
-
-(define window-ops-menu
-  (menu
-   (list
-    (menu-title "Window Ops") menu-separator
-    (menuitem "Move" #:action interactive-move)
-    (menuitem "Resize" #:action interactive-resize)
-    (menuitem "Raise" #:action raise-window)
-    (menuitem "Lower" #:action lower-window)
-;;    (menuitem "Print" #:action print-window)
-    (menuitem "(Un)Window-Shade" #:action toggle-window-shade)
-    (menuitem "(De)Iconify" #:action toggle-iconify)
-    (menuitem "(Un)Maximize" #:action toggle-maximize-vertical)
-    (menuitem "(Un)Stick" #:action toggle-stick)
-    (menuitem "(Un)Keep On Top" #:action toggle-on-top)
-    menu-separator
-    (menuitem "Close" #:action close-window)
-    (menuitem "Delete" #:action delete-window)
-    (menuitem "Destroy" #:action destroy-window)
-    menu-separator
-    (menuitem "Refresh Screen" #:action refresh))))
-
-(define* (popup-ops)
-  ""
-  (interactive)
-  (popup-menu window-ops-menu))
-
-;; Hack to let quit work
-(set-procedure-property! quit 'interactive #t)
-
-(define menu-quit-verify
-  (menu
-   (list
-    (menu-title "Really quit scwm?") menu-separator
-    ;;(menuitem "Yes" #:action scheme-quit)
-    (menuitem "Yes" #:action quit)
-    (menuitem "No" #:action #f)
-    menu-separator
-    (menuitem "Restart scwm" #:action (lambda () (restart "scwm"))))))
-
-(define (quit-verify)
-  (popup-menu menu-quit-verify))
-
-(define desk-menu
-  (menu
-   (list
-    (menu-title "Desks") menu-separator
-    (menuitem "Desk 1" #:action (lambda () (set-current-desk! 0)))
-    (menuitem "Desk 2" #:action (lambda () (set-current-desk! 1)))
-    (menuitem "Desk 3" #:action (lambda () (set-current-desk! 2)))
-    (menuitem "Desk 4" #:action (lambda () (set-current-desk! 3))))))
-
-(define util-menu
-  (menu
-   (list
-    (menu-title "Utilities") menu-separator
-    ;(menuitem "Preferences..." #:action scwm-options-dialog)
-    menu-separator
-    (menuitem "urxvt" #:action (lambda () (execute "urxvt")))
-    (menuitem "emacs" #:action (lambda () (execute "emacsclient -c -a emacs")))
-    (menuitem "firefox" #:action (lambda () (execute "firefox")))
-    (menuitem "top" #:action
-	       (lambda () (execute "urxvt -T Top -n Top -e top")))
-    menu-separator
-    (menuitem "Desks" #:action desk-menu)
-    menu-separator
-    (menuitem "Exit scwm" #:action menu-quit-verify))))
-
-(define* (popup-util)
-  ""
-  (interactive)
-  (popup-menu util-menu))
-
-(define (make-small-window-ops-menu w)
-  (menu
-   (list
-;;    (menu-title "Window Ops2")
-;;    menu-separator
-    (menuitem "Move" #:action interactive-move)
-    (menuitem "Resize" #:action interactive-resize)
-    (menuitem "Raise" #:action raise-window)
-    (menuitem "Lower" #:action lower-window)
-    (menuitem "Iconify" #:action iconify-window)
-    menu-separator
-    (menuitem "More..." #:action
-	      (menu
-	       (list
-		(menuitem (if (maximized? w)
-			      "Unmaximize"
-			      "Maximize")
-			  #:action toggle-maximize-vertical)
-		(menuitem (if (sticky-window? w)
-			      "Unstick"
-			      "Stick") #:action toggle-stick)
-		(menuitem (if (shaded-window? w)
-			      "UnWindow-Shade"
-			      "Window-Shade")
-			  #:action toggle-window-shade)
-		(menuitem (if (kept-on-top? w)
-			      "UnKeep On Top"
-			      "Keep On Top") #:action toggle-on-top))))
-    menu-separator
-    (menuitem "Close" #:action close-window)
-    (menuitem "Destroy" #:action destroy-window))))
-
-(define* (popup-small-ops)
-  "" (interactive)
-  (popup-menu (make-small-window-ops-menu (get-window))))
-
-
-;; now set some mouse and key bindings ;;
-
-;; first our root menus
-(bind-mouse 'root 1 popup-util)
-(bind-mouse 'root 2 popup-ops)
-(bind-mouse 'root 3 (lambda ()
-		      (show-window-list-menu #f #f #:show-geometry #t)))
-(bind-mouse 'root "M-3" (lambda () (popup-menu desk-menu)))
-
-
-;; window buttons
-(bind-mouse 'left-button-1 1 popup-small-ops)
-(bind-mouse 'right-button-1 1 toggle-maximize-vertical)
-(bind-mouse 'right-button-2 1 iconify-window)
-
-;; operations on parts of the window
-(bind-mouse '(frame-corners frame-sides) 2 popup-small-ops)
-(bind-mouse 'frame-corners 1 resize-or-raise)
-(bind-mouse 'frame-sides 1 move-or-raise)
-
-(define* (move-or-shade)
-  ""
-  (interactive)
-  (case (mouse-event-type)
-    ((double-click) (toggle-window-shade))
-    (else (move-or-raise))))
-
-(bind-mouse 'title 1 move-or-shade)
-(bind-mouse 'title 3 lower-window)
-
-
-;; key bindings for the menus
-(bind-key 'all "M-F1" popup-util)
-(bind-key 'all "M-F2" popup-ops)
-
-;; in case of emergency, hit Control-Meta-Shift-Q
-(bind-key 'all "C-M-S-q" quit-verify)
-
-;; some stuff for icons
-(define* (move-or-deiconify)
-  ""
-  (interactive)
-  (case (mouse-event-type)
-    ((motion) (interactive-move))
-    ((double-click) (deiconify-window))))
-
-(bind-mouse 'icon 1 move-or-deiconify)
-(bind-mouse 'icon 2 deiconify-window)
-
-
-
-;; move the pointer with the keyboard
-(bind-key 'all "M-Left" (lambda () (move-pointer (%x -1) 0)))
-(bind-key 'all "M-Right" (lambda () (move-pointer (%x 1) 0)))
-(bind-key 'all "M-Up" (lambda () (move-pointer 0 (%y -1))))
-(bind-key 'all "M-Down" (lambda () (move-pointer 0 (%y 1))))
-
-;; move the viewport with the keyboard
-(bind-key 'all "C-M-Left" (lambda () (move-viewport (%x -100) 0)))
-(bind-key 'all "C-M-Right" (lambda () (move-viewport (%x 100) 0)))
-(bind-key 'all "C-M-Up" (lambda () (move-viewport 0 (%y -100))))
-(bind-key 'all "C-M-Down" (lambda () (move-viewport 0 (%y 100))))
-
-;; rotate the current window with the keyboard
-(bind-key 'all "C-S-Tab"
-	  (lambda ()
-	    (next-window #:only visible? #:except iconified-window?)))
-
-(bind-key 'all "M-S-Tab"
-	  (lambda ()
-	    (prev-window #:only visible? #:except iconified-window?)))