;; basic configuration parameters for scwm

;; the path where a user can put own images 
(define user-image-path "")

;; now we define the font for menus, titles and icons
(define helvetica12
  (load-font "-adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*"))

(define menu-font helvetica12)
(define title-font helvetica12)
(define icon-font helvetica12)

;; here we define the menus and windows foregroud and background colors
(define menuFG "black")
(define menuBG "grey76")
 
(define windowFG "white")
(define windowBG "navy")

;; here you can put one of these values:
;; 'click     - must click on the window to focus.
;; 'mouse     - the window gains focus as the mouse enters or leaves.
;; 'sloppy    - the window gains focus as the mouse enters, but does not
;;              lose it if the pointer enters the root window, or a window
;;              with 'click or 'none focus.
;; 'none      - don't ever give this window focus, even if
;;              it is clicked.

(define focus-type 'mouse)

;; this is the function, scwm call when you restart it 
(define (restart-function)
  ())

;; init-function is the function, scwm call after the initialisation.

(define (init-function) 
  ())

;; this must be a list of (menu-item ......). These entries will be at the
;; beginning of the menus

(define initial-menus ())


;; final-menus is a list as initial-menus, but the entries will be at the
;; end of the menus.

(define quit-verify
  (make-menu "Really quit scwm?"
             (menu-title)
             (menu-item "Yes" #:action quit)
             (menu-item "No" #:action noop)
             (menu-separator)
             (menu-item "Restart scwm" #:action (lambda ()
                                                  (restart-function)
                                                  (restart "scwm")))))

(define desk-menu
  (make-menu "Desks"
             (menu-title)
             (menu-item "Desk 1" #:action (lambda () (set-current-desk! 0)))
             (menu-item "Desk 2" #:action (lambda () (set-current-desk! 1)))
             (menu-item "Desk 3" #:action (lambda () (set-current-desk! 2)))
             (menu-item "Desk 4" #:action (lambda () (set-current-desk! 3)))))


(define final-menus (list 
		     (menu-separator)
		     (menu-item "Desks" #:action desk-menu)
		     (menu-separator)
		     (menu-item "Quit" #:action quit-verify))) 


;;; now we define the maximize function

;; use this definition, if you want the normal vertical-only maximize function

(define (window-toggle-maximize) 
  (toggle-maximize 0 (%y 100)))

;; use this function, if you want a vertical-and-orrizontal maximize function

;; (define (window-toggle-maximize)
;;   (toggle-maximize (%x 99) (%y 99))
;;   (move-to 7 7))
    
