home *** CD-ROM | disk | FTP | other *** search
/ ftp.freefriends.org / ftp.freefriends.org.tar / ftp.freefriends.org / arnold / Source / gwm-dist.tar.gz / gwm-dist.tar / home-gwm / .profile.gwm next >
Lisp/Scheme  |  1993-07-07  |  3KB  |  98 lines
  1. (: check-input-focus-flag 0)
  2.  
  3. (? screen)
  4.  
  5. ; LISP helpers
  6. (: null not)
  7.  
  8. (de no-domains (name)
  9.        (match "\\([^.]*\\)" name 1))
  10.  
  11. (: blit-arrow (cursor-make "blit-arrow"))
  12. (: root-cursor blit-arrow)
  13.  
  14. ;(: screen-tile "warhol")    ; ``100 Soup Cans''
  15.  
  16. (: local-machines '("mod" "rocker" "geotech1" "case1" "case2" "case3" "channel" "wallaby" "caos"))
  17. (: local-host-no-domains (no-domains hostname))
  18. (: xterm-list '())
  19. (for mach local-machines
  20.      (if (not (= mach local-host-no-domains))
  21.      (: xterm-list (+ xterm-list (list mach)))))
  22. (: xterm-list (+ xterm-list '(cortex.physiol riscserv1.faceng)))
  23. (: xterm-rsh-list '(quux.es doolittle.vetsci.su.oz.au tiny.me))
  24. (: xterm-telnet-list '(plexus.physiol library.su.oz.au))
  25. (: xload-list ())
  26.  
  27. (: no-trompall-classes '("Xpostit" "XClock" "Faces" "CPUStateMonitor" "XBiff" "Xcb"))
  28. (: tty-window-classes '("XTerm" "MTerm" "Sam" "NCDterm" "Win"))
  29.  
  30. (: pop-item-font (with (font (font-make "9x15")) (font-make "jerq")))
  31. (: pop-item-height 10)
  32. (: pop-label-font (with (font (font-make "9x15")) (font-make "jerq")))
  33.                                     
  34. ;(: vscreen.modifiers (together with-control))
  35.  
  36. (: want-kill-session nil)
  37.  
  38. (setq menu.builder "jerq-menus")
  39.  
  40. (load "jerq-behavior")
  41. (load "pop-menu")
  42. (load "icon-groups")
  43. (load "simple-icon")
  44. (load "term-icon")
  45. (load "focus")
  46. ;(load 'vscreen)
  47.  
  48. ;(setq vscreen.nailed-windows 
  49. ;      (list
  50. ;    (list 'client-class "XClock")
  51. ;    (list 'client-class "Faces")
  52. ;    (list 'client-class "CPUStateMonitor")
  53. ;    (list 'client-class "Xpostit" 'client-name "xpostit")
  54. ;    (list 'client-class "XTerm" 'client-name "gwm")
  55. ;    ))
  56.  
  57. (set-window XEyes no-decoration)
  58. (set-window Clock no-decoration)
  59. (set-window any 'jerq-window)    ; defaults to jerq window
  60.  
  61. (df no-legend args
  62.     (for class args
  63.     (eval (list 'customize 'simple-icon 'any class
  64.         'legend 'nil))))
  65.  
  66. (: simple-icon.legend t)        ; default now to label each icon
  67. (no-legend Sam Sunclock Xman Xpostit SessionMonitor XTerm.any.gwm XMace)
  68.                     ; except these
  69. ;(customize simple-icon any Sam
  70. ;    simple-icon.legend nil
  71. ;    simple-icon.foreground white    ; fix problem introduced by rex
  72. ;    simple-icon.background black)
  73. (set-icon-window any simple-icon) ; Any icon
  74. ;    (lambdaq () (if (= window-icon-name "gwm") simple-icon term-icon)))
  75. ;(no-legend XTerm)
  76. ;(set-icon XTerm bull_1)
  77. (set-icon Xpostit "3m")
  78. (set-icon CPUStateMonitor "xcpustate")
  79. (set-icon XTerm.any.gwm "gwmlogo")
  80. (set-icon-window XTerm.any.gwm simple-icon)
  81. (set-icon-window XTerm term-icon)
  82.  
  83. ;(: icon-order '(XPostit 5 XClock 2 XTerm 1 Sam 20))
  84.  
  85. (de self-placement nil nil)
  86. (set-placement XTerm user-positioning)  ; place manually xterms
  87. (set-placement Win user-positioning)  ; place manually mterms
  88. (set-placement Xpostit user-positioning)
  89. (set-icon-placement Xman self-placement)
  90. (set-icon-placement Sunclock self-placement)
  91. (set-icon-placement SessionMonitor self-placement)
  92. (set-icon-placement XMace self-placement)
  93. (set-icon-placement Xpostit self-placement)
  94. (set-icon-placement any rows.right-top.placement) ; all icons on the right
  95. (rows.limits rows.right-top 'start 419 'end 930 'offset 1 'separator 2)
  96. ;(rows.limits rows.top-left 'start 474 'end 860 'offset 3 'separator 5)
  97. ;; 'sort sort-icons
  98.