;;; $Id: basic-styles.scm,v 1.3 2000/01/13 07:28:06 gjb Exp $
;;; basic-styles.scm
;;; Copyright (C) 1999, 2000 Greg J. Badros
;;;

(define-module (app scwm basic-styles)
  :use-module (app scwm base)
  :use-module (app scwm optargs)
  :use-module (app scwm style))

(define-public desk-icon
  (make-style #:winlist-skip #t
	      #:circulate-skip #t #:focus 'none))

(define-public desk-widget
  (make-style #:plain-border #t #:sticky #t #:winlist-skip #t
	      #:border-width 3 #:circulate-skip #t #:focus 'none))

(define-public desk-widget-on-top
  (make-style #:use-style desk-widget #:kept-on-top #t))

(define-public desk-widget-on-top-no-titlebar
  (make-style #:use-style desk-widget-on-top #:no-titlebar #t))

(define-public desk-widget-no-titlebar
  (make-style #:use-style desk-widget #:no-titlebar #t))