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