84 lines
3.3 KiB
Scheme
84 lines
3.3 KiB
Scheme
;; *** configuration specification ***********************************
|
|
|
|
(define-options-spec split-options-spec
|
|
(bar-width int 3)
|
|
(resize-step int 5)
|
|
(bar-style symbol 'raised) ;; raised | sunken | flat
|
|
(bar-colors colors '("#dddddd" "#888888" "#333333"))
|
|
(select-right keys "M-Right")
|
|
(select-left keys "M-Left")
|
|
(select-up keys "M-Up")
|
|
(select-down keys "M-Down")
|
|
(focus-policy symbol-list '()) ;; present only for implementation reasons
|
|
)
|
|
|
|
(define-options-spec switch-options-spec
|
|
(titlebar-colors colors '("#aaaaaa" "#eeeeee" "#777777" "black"))
|
|
(titlebar-colors-focused colors '("#666699" "#aaaacc" "#333366" "#eeeeee"))
|
|
(titlebar-colors-active colors '("#9999aa" "#eeeeff" "#777788" "black"))
|
|
;; colors: (background top-left-border button-right-border font-img-color)
|
|
(titlebar-button-up-colors colors '("gray" "white" "black" "black"))
|
|
(titlebar-button-down-colors colors '("gray" "black" "white" "black"))
|
|
(titlebar-height int 18)
|
|
(titlebar-style symbol 'raised)
|
|
(font font "-*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*")
|
|
(select-next keys "M-k n")
|
|
(select-previous keys "M-k p")
|
|
(swap-next keys "M-k t")
|
|
(swap-previous keys "M-k r")
|
|
(focus-policy symbol-list '(enter)) ;; enter, click
|
|
)
|
|
|
|
(define-options-spec move-options-spec
|
|
(titlebar-colors colors '("#aaaaaa" "#eeeeee" "#777777" "black"))
|
|
(titlebar-colors-focused colors '("#666699" "#aaaacc" "#333366" "#eeeeee"))
|
|
(titlebar-button-up-colors colors '("gray" "white" "black" "black"))
|
|
(titlebar-button-down-colors colors '("gray" "black" "white" "black"))
|
|
(titlebar-height int 18)
|
|
(titlebar-style symbol 'flat)
|
|
(font font "-*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*")
|
|
(border-width int 3)
|
|
(corner-width int 10)
|
|
(border-style symbol 'raised) ;; raised | sunken | flat
|
|
(border-colors colors '("#333333" "#dddddd"))
|
|
(pager-colors colors ;; bg, button, light, dark, font
|
|
'("#808080" "#aaaaaa" "#eeeeee" "#777777" "black"))
|
|
(pager-maximum-button-width int 140)
|
|
(pager-height int 24)
|
|
(select-next keys "M-Tab")
|
|
(select-previous keys "M-S-Tab") ;; or ISO_Left_Tab ?
|
|
(hide-show-pager keys "M-p")
|
|
(focus-policy symbol-list '(click)) ;; enter, click
|
|
)
|
|
|
|
(define-options-spec root-options-spec
|
|
(quit keys "F12")
|
|
(quit-question string "Really quit orion?")
|
|
(split-horizontal keys "M-s h")
|
|
(split-vertical keys "M-s v")
|
|
(split-horizontal-with-switch-wm keys "M-s s h")
|
|
(split-vertical-with-switch-wm keys "M-s s v")
|
|
(split-horizontal-with-move-wm keys "M-s m h")
|
|
(split-vertical-with-move-wm keys "M-s m v")
|
|
(create-switch-wm keys "M-k s")
|
|
(create-move-wm keys "M-k m")
|
|
(split-question string "What kind of manager do you want in the second frame?\n(S)witch or (M)ove windowmanager:")
|
|
(execute keys "F3")
|
|
(execute-question string "Execute:")
|
|
(attach keys "M-a")
|
|
(attach-question string "Attach:")
|
|
(split-options sexp '())
|
|
(switch-options sexp '())
|
|
(move-options sexp '())
|
|
(workspace-options sexp '((titlebar-height . 0)))
|
|
(nth-workspace keys-list '("M-1" "M-2" "M-3" "M-4"))
|
|
(create-workspace keys "F9")
|
|
(create-workspace-question string "What kind of manager do you want in the new workspace?\n(S)witch or (M)ove windowmanager:")
|
|
(kill-client keys "M-c")
|
|
(user-bindings binding-list '(("F2" exec "xterm")))
|
|
(save-layout keys "F11")
|
|
(select-outer-manager keys "M-Home")
|
|
(default-cursor cursor xc-X-cursor)
|
|
)
|
|
|