From 5c6cd059e8395d7f24d4b199e59c8c2f562dc438 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 3 Nov 2013 21:21:21 +0100 Subject: New stow hierarchy --- .scwmrc | 305 ---------------------------------------------------------------- 1 file changed, 305 deletions(-) delete mode 100644 .scwmrc (limited to '.scwmrc') 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?))) -- cgit v1.2.3-54-g00ecf