306 lines
9 KiB
Text
306 lines
9 KiB
Text
|
;; -*- 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?)))
|