198 lines
7.2 KiB
Plaintext
198 lines
7.2 KiB
Plaintext
;; A Sample profile for use with the twm emulator
|
|
;;===============================================
|
|
|
|
; This file is derived from the .profile.gwm distributed with gwm 1.4.1.30
|
|
; The original file was written by Colas Nahaboo, BULL Research, France.
|
|
;
|
|
; Modifications [Dec 1989] for twm emulation by Arup Mukherjee
|
|
; (arup@grasp.cis.upenn.edu)
|
|
;
|
|
; Within the restrictions of the GWM copyright, you may do whatever you
|
|
; want with this code. It would be nice, however, if my name were to remain
|
|
; in it somewhere.
|
|
|
|
;;;;;;;;;;;;;;;;;;;; Menus of xterms, xloads, and emacsen ;;;;;;;;;;;;;;;;;;
|
|
|
|
(setq xterm-list '(grip grasp linc seas grad1 grad2 upenn5.hep))
|
|
(setq xload-list '(grip grasp linc seas grad1 grad2))
|
|
(setq emacs-list '(grip grasp linc seas grad1 grad2 upenn5.hep))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;; Some Style Variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(setq autoraise t)
|
|
(setq look-3d t)
|
|
(setq root-cursor (cursor-make "arrow3d"))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
; Directory where twm bitmaps are located :
|
|
|
|
(setq bitmaps-dir "") ; bitmaps in the same directory as twmulator code
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;; Namespace Variables (Do not modify) ;;;;;;;;;;;;;;;;;;
|
|
|
|
(if (not (= screen. (namespace-of 'border-foreground)))
|
|
(defname-in-screen-to ()
|
|
yellow blue green red dark-green
|
|
border-foreground border-background border-pixmap
|
|
menu-foreground menu-background
|
|
title-foreground title-background
|
|
hilite-color
|
|
twm-menu-foreground twm-menu-background twm-menu-hilite-color
|
|
twm-menu-shadow-color twm-menu-border-color
|
|
twm-pop-item-font twm-pop-label-font twm-pop-item-height
|
|
icon-foreground icon-background icon-mgr-font
|
|
icon-mgr-foreground icon-mgr-background
|
|
icon-mgr-xpos icon-mgr-ypos
|
|
|
|
; For the benefit of the twm-titled-win () frame type :
|
|
|
|
icon-pixmap resize-pixmap hilite-pixmap no-hilite-pixmap))
|
|
|
|
; For the benefit of the twm icon manager
|
|
|
|
(defname 'icon-mgr-menu screen.)
|
|
(defname 'icon-mgr-wob screen.)
|
|
(defname 'icon-mgr-dying-window screen. 0)
|
|
(defname 'icon-mgr-xstickyness screen.)
|
|
(defname 'icon-mgr-ystickyness screen.)
|
|
(defname 'icon-mgr-max-width screen.)
|
|
(defname 'icon-mgr-min-width screen.)
|
|
(defname 'show-icon-mgr screen.)
|
|
(defname 'iconify-by-unmapping screen.)
|
|
(defname 'mgd-bar screen.)
|
|
(defname 'menu-expr screen.)
|
|
(defname 'setup-done screen.)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Colors ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(if (= screen-type 'color)
|
|
(progn
|
|
(: yellow (color-make "yellow"))
|
|
(: blue (color-make "blue"))
|
|
(: green (color-make "green"))
|
|
(: dark-green (color-make "dark green"))
|
|
(: red (color-make "red"))
|
|
(: darkgrey (color-make "dark slate grey"))))
|
|
|
|
;;;;;;;;;;;;;;;;; Screen Colors (choose from those declared above) ;;;;;;;;
|
|
|
|
(if (not (= screen-type 'color))
|
|
(progn (setq border-foreground white)
|
|
(setq border-background white)
|
|
(setq title-foreground white)
|
|
(setq title-background black)
|
|
(setq hilite-color white)
|
|
(setq icon-foreground white)
|
|
(setq icon-background black)
|
|
(setq icon-mgr-foreground white)
|
|
(setq icon-mgr-background black)
|
|
(setq icon-mgr-font (font-make "8x13"))
|
|
(setq twm-menu-foreground white)
|
|
(setq twm-menu-background black)
|
|
(setq twm-menu-hilite-color white)
|
|
(setq twm-menu-shadow-color black)
|
|
(setq twm-menu-border-color white)
|
|
(setq twm-pop-item-font
|
|
(font-make "*-helvetica-medium-o-normal-*-140-*"))
|
|
(setq twm-pop-label-font
|
|
(font-make "*-times-bold-i-normal-*-180-*"))
|
|
(setq twm-pop-item-height 8))
|
|
(progn (setq border-foreground yellow)
|
|
(setq border-background yellow)
|
|
(setq border-pixmap nil)
|
|
(setq title-foreground white)
|
|
(setq title-background blue)
|
|
(setq hilite-color red)
|
|
(setq icon-foreground yellow)
|
|
(setq icon-background red)
|
|
(setq icon-mgr-foreground yellow)
|
|
(setq icon-mgr-background dark-green)
|
|
(setq icon-mgr-font (font-make "8x13"))
|
|
(setq twm-menu-foreground yellow)
|
|
(setq twm-menu-background dark-green)
|
|
(setq twm-menu-hilite-color green)
|
|
(setq twm-menu-shadow-color black)
|
|
(setq twm-menu-border-color yellow)
|
|
(setq twm-pop-item-font
|
|
(font-make "*-helvetica-medium-o-normal-*-140-*"))
|
|
(setq twm-pop-label-font
|
|
(font-make "*-times-bold-i-normal-*-180-*"))
|
|
(setq twm-pop-item-height 8)))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;; TWM configuration variables;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(: twm-borderwidth 2) ; Width of borders on windows of type twm-titled-win
|
|
|
|
; Icon Manager config options :
|
|
|
|
(setq icon-mgr-name "Icon Manager") ; Name of icon manager window
|
|
(setq icon-mgr-exclusions (list icon-mgr-name "xclock")) ; Don't manage these
|
|
(setq icon-mgr-xpos screen-width) ; right edge
|
|
(setq icon-mgr-ypos 300)
|
|
(setq icon-mgr-max-width 300)
|
|
(setq icon-mgr-min-width 125) ; Ensure name is not trunc'd
|
|
(setq show-icon-mgr t) ; Show icon-mgr on startup
|
|
(setq iconify-by-unmapping t) ; Useful with icon-mgr
|
|
|
|
; I could not come up with a reasonable way to specify where the icon manager
|
|
; is to be placed. The supplied defaults for icon-mgr-x-pos and icon-mgr-y-pos
|
|
; work fairly well if you like your icon-manager near the right-hand or
|
|
; bottom edge of the screen, and will make sure that the whole window is
|
|
; always visible. If you don't like this, feel free to define your own
|
|
; versions of these functions here. Note the the values of icon-mgr-xpos
|
|
; and icon-mgr-ypos contain the position of the top-left hand corner on
|
|
; invocation of icon-mgr-x-pos and icon-mgr-y-pos.
|
|
|
|
; With the default icon-mgr-x-pos () and icon-mgr-y-pos () functions,
|
|
; if the right edge of the icon mgr is within xstickyness of the
|
|
; right edge or its bottom is within ystickyness of the bottom of the
|
|
; screen the icon mgr window will move over to the correct edge.
|
|
|
|
(setq icon-mgr-xstickyness screen-width)
|
|
(setq icon-mgr-ystickyness 300)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Miscellaneous ;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(load "icon-groups-old") ; iconify groups as a whole
|
|
|
|
; You can specify your own values for icon-pixmap, resize-pixmap,
|
|
; hilite-pixmap, and no-hilite-pixmap as per the example :
|
|
;
|
|
; (setq icon-pixmap
|
|
; (pixmap-make title-background
|
|
; (+ bitmaps-dir "iconify.xbm")
|
|
; title-foreground))
|
|
|
|
; (load "emacs-mouse.gwm") ; no use if you use GNU (!)
|
|
|
|
|
|
; this is an example of how to define new decorations
|
|
|
|
(: no-frame.win (with (fsm window-fsm) (window-make ()()()()())))))
|
|
(df no-frame () no-frame.win)
|
|
|
|
; and how to set them
|
|
|
|
(set-window XTerm twm-titled-win)
|
|
(set-window any twm-titled-win) ; Any X Client
|
|
(set-window Gwm simple-win) ; Twm icon manager (Mandatory)
|
|
(set-window XLoad frame-win)
|
|
(set-window XClock no-frame)
|
|
(set-window XBiff no-frame)
|
|
(set-window menu no-frame)
|
|
|
|
(set-icon-window icon simple-icon) ; Any icon
|
|
;;(set-icon-window XTerm term-icon) ; XTERM icon (broken in 1.7)
|
|
|
|
(set-placement any user-positioning) ; place manually xterms
|
|
(set-icon-placement any right-placement)
|
|
(set-icon-placement XTerm right-placement) ; place xterms icons on the right
|
|
|
|
|
|
(setq resize-grid-style 4)
|
|
(setq move-grid-style 4)
|
|
|
|
|