home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / data / em-example.gwm < prev    next >
Lisp/Scheme  |  1995-07-03  |  4KB  |  123 lines
  1. ;; an example on how to customize em-drop-menus.gwm  em-widgets.gwm
  2. ;; experimental epoch menus
  3.  
  4. ;; first some color & font customisations
  5.  
  6. (setq epoch-color "bisque")
  7.  
  8. (for i '("1" "2" "3" "4")
  9.   (set (atom (+ "epoch-color" i))
  10.     (color-make (+ epoch-color i))
  11. ))
  12.  
  13. (: widget.Bfont  (font-make "*clean-medium*--10*c-60*"))
  14. (: widget.font (font-make "*clean-bold*--10*c-60*"))
  15. (setq widget.foreground epoch-color4)
  16. (setq widget.background epoch-color1)
  17. (setq widget.name-font (font-make "fixed"))
  18. (setq widget.name-foreground black)
  19.  
  20. (: widget.weave (pixmap-make
  21.     epoch-color4
  22.     "/usr/include/X11/bitmaps/cross_weave"
  23.     epoch-color1
  24. ))
  25. (: widget.black (pixmap-make
  26.     black
  27.     "/usr/include/X11/bitmaps/black"
  28.     epoch-color4
  29. ))
  30. (: widget.gray (pixmap-make
  31.     black
  32.     "/usr/include/X11/bitmaps/black"
  33.     epoch-color4
  34. ))
  35. (: widget.lt-gray (pixmap-make
  36.     black
  37.     "/usr/include/X11/bitmaps/black"
  38.     epoch-color2
  39. ))
  40.  
  41. (load "em-widgets.gwm")            ; then load the packages
  42. (load "em-drop-menus.gwm")
  43.  
  44.                     ; then some menus and code to implement
  45.                     ; direct choosing of buffer or file
  46.                     ; from a list with 2nd mouse button
  47. (set-window Emacs.epoch style:select)
  48.  
  49. (Dmenu: Dmenu.fonts
  50.    '("fonts" (
  51.       ("screen-11" "(progn (font \"screen.r.11\") (redraw-display))")
  52.       ("screen-12" "(progn (font \"screen.r.12\") (redraw-display))")
  53.       ("screen-12-Bold" "(progn (font \"screen.b.12\") (redraw-display))")
  54.       ("screen-13" "(progn (font \"screen.r.13\") (redraw-display))")
  55.       ("screen-14" "(progn (font \"screen.r.14\") (redraw-display))")
  56.       ("screen-14-Bold" "(progn (font \"screen.b.14\") (redraw-display))")
  57.       ("screen-7" "(progn (font \"screen.r.7\") (redraw-display))")
  58.       ("fixed" "(progn (font \"fixed\") (redraw-display))")
  59.       )))
  60.  
  61. (Dmenu: Dmenu.buffers 
  62.    '("buffers" (
  63.       ("list of buffers"
  64.     "(progn \
  65. (list-buffers) \
  66. (switch-to-buffer \"*Buffer List*\") \
  67. (delete-other-windows) \
  68. (if (not (boundp 'mouse-Buffer-menu-select)) (progn \
  69.     (setq mouse-Buffer-menu-select t)\
  70.     (defun mouse-Buffer-menu-select (&optional mdata) (interactive) \
  71.       (Buffer-menu-select) \
  72. ))) \
  73. (if (boundp 'imouse-version)\
  74.   (local-set-mouse mouse-middle mouse-down 'mouse-set-point-or-select) \
  75.   (local-set-mouse mouse-middle mouse-down 'mouse::set-point)) \
  76. (local-set-mouse mouse-middle mouse-up 'mouse-Buffer-menu-select) \
  77. )")
  78.       ("other buffer" "(switch-to-buffer (other-buffer))")
  79.       ("*scratch* buffer" "(switch-to-buffer \"*scratch*\")")
  80.       ("-" (bell))
  81.       ("kill buffer" "(kill-buffer (current-buffer))")
  82.       )))
  83.  
  84. (Dmenu: Dmenu.files 
  85.    '("files" (
  86.       ("list of directory"
  87.     "(progn \
  88. (dired \".\") \
  89. (delete-other-windows) \
  90. (if (not (boundp 'mouse-dired-find-file)) (progn \
  91.     (setq mouse-dired-find-file t)\
  92.     (defun mouse-dired-find-file (&optional mdata) (interactive) \
  93.       (dired-find-file) \
  94. ))) \
  95. (if (boundp 'imouse-version)\
  96.   (local-set-mouse mouse-middle mouse-down 'mouse-set-point-or-select) \
  97.   (local-set-mouse mouse-middle mouse-down 'mouse::set-point)) \
  98. (local-set-mouse mouse-middle mouse-up 'mouse-dired-find-file) \
  99. )")
  100.     (" - - - " "")
  101.     (".Xdefaults" "(find-file \"~/.Xdefaults\")")
  102.     ("profile-epoch" "(find-file \"~/el/profile-epoch-4.0.el\")")
  103.     ("wool" "(find-file \"~/Gwm2/wool/TODO\")")
  104.       )))
  105.  
  106. (Dmenu: Dmenu.db
  107.     '("db" 
  108.      (
  109.       (" " "")
  110.       ("byte-compile-current-file" "(byte-compile-current-file)")
  111.       ("toggle debug" "(setq debug-on-error (not debug-on-error))")
  112.       ("debug on" "(setq debug-on-error t)")
  113.       ("debug off" "(setq debug-on-error f)")
  114.       )))
  115.  
  116. (: Dmenu.epoch-menus
  117.    (list 
  118.     Dmenu.fonts
  119.     Dmenu.files
  120.     Dmenu.buffers
  121.     Dmenu.db
  122.     ))
  123.