Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hui-mini.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents c53a95d3c46d
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
4 ;; SUMMARY: One line command menus for Hyperbole 4 ;; SUMMARY: One line command menus for Hyperbole
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: hypermedia, mouse 6 ;; KEYWORDS: hypermedia, mouse
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: Brown U.
10 ;; 10 ;;
11 ;; ORIG-DATE: 15-Oct-91 at 20:13:17 11 ;; ORIG-DATE: 15-Oct-91 at 20:13:17
12 ;; LAST-MOD: 17-Mar-97 at 21:28:26 by Bob Weiner 12 ;; LAST-MOD: 3-Nov-95 at 04:02:02 by Bob Weiner
13 ;; 13 ;;
14 ;; This file is part of Hyperbole. 14 ;; This file is part of Hyperbole.
15 ;; Available for use and distribution under the same terms as GNU Emacs. 15 ;; Available for use and distribution under the same terms as GNU Emacs.
16 ;; 16 ;;
17 ;; Copyright (C) 1991-1997, Free Software Foundation, Inc. 17 ;; Copyright (C) 1991-1995, Free Software Foundation, Inc.
18 ;; Developed with support from Motorola Inc. 18 ;; Developed with support from Motorola Inc.
19 ;; 19 ;;
20 ;; DESCRIPTION: 20 ;; DESCRIPTION:
21 ;; DESCRIP-END. 21 ;; DESCRIP-END.
22 22
58 (list 58 (list
59 '("Act" hui:hbut-act 59 '("Act" hui:hbut-act
60 "Activates button at point or prompts for explicit button.") 60 "Activates button at point or prompts for explicit button.")
61 '("Butfile/" (menu . butfile) 61 '("Butfile/" (menu . butfile)
62 "Quick access button files menus.") 62 "Quick access button files menus.")
63 '("Cust/" (menu . cust)
64 "Customizes Hyperbole by setting major options.")
65 '("Doc/" (menu . doc) 63 '("Doc/" (menu . doc)
66 "Quick access to Hyperbole documentation.") 64 "Quick access to Hyperbole documentation.")
67 '("Ebut/" (menu . ebut) 65 '("Ebut/" (menu . ebut)
68 "Explicit button commands.") 66 "Explicit button commands.")
69 '("Gbut/" (menu . gbut) 67 '("Gbut/" (menu . gbut)
91 "Displays manual section on button files.") 89 "Displays manual section on button files.")
92 ("PersonalFile" (find-file 90 ("PersonalFile" (find-file
93 (expand-file-name hbmap:filename hbmap:dir-user)) 91 (expand-file-name hbmap:filename hbmap:dir-user))
94 "Edits user-specific button file.") 92 "Edits user-specific button file.")
95 )) 93 ))
96 '(cust .
97 (("Customize>")
98 ("Referent-Display/" (menu . cust-referents)
99 "Sets where referents are displayed.")
100 ("Smart-Key-at-Eol/" (menu . cust-eol)
101 "Sets how scrolling via end of line presses works.")
102 ("Toggle-Rolo-Dates"
103 (if (and (boundp 'wrolo-add-hook) (listp wrolo-add-hook)
104 (memq 'rolo-set-date wrolo-add-hook))
105 (progn (remove-hook 'wrolo-add-hook 'rolo-set-date)
106 (remove-hook 'wrolo-edit-hook 'rolo-set-date)
107 (message "Rolodex date stamps are now turned off."))
108 (add-hook 'wrolo-add-hook 'rolo-set-date)
109 (add-hook 'wrolo-edit-hook 'rolo-set-date)
110 (message "Rolodex date stamps are now turned on."))
111 "Toggle whether date stamps are update when rolodex entries are edited.")
112 ("URL-Display/" (menu . cust-urls) "Sets where URLs are displayed.")))
113 '(cust-eol .
114 (("Smart Key press at eol scrolls>")
115 ("Proportionally" (setq smart-scroll-proportional t))
116 ("Windowful" (setq smart-scroll-proportional nil))))
117 '(cust-referents .
118 (("Ref display>")
119 ("Any-Frame" (setq hpath:display-where 'other-frame))
120 ("Current-Win" (setq hpath:display-where 'this-window))
121 ("Diff-Frame-One-Win"
122 (setq hpath:display-where 'other-frame-one-window))
123 ("New-Frame" (setq hpath:display-where 'new-frame))
124 ("Other-Win" (setq hpath:display-where 'other-window))
125 ("Single-Win" (setq hpath:display-where 'one-window))))
126 '(cust-urls .
127 (("URL display>")
128 ("Any-Netscape-Window"
129 (setq action-key-url-function 'highlight-headers-follow-url-netscape
130 highlight-headers-follow-url-function action-key-url-function
131 highlight-headers-follow-url-netscape-new-window nil))
132 ("New-Netscape-Window"
133 (setq action-key-url-function 'highlight-headers-follow-url-netscape
134 highlight-headers-follow-url-function action-key-url-function
135 highlight-headers-follow-url-netscape-new-window t))
136 ("Mosaic" (setq action-key-url-function
137 'highlight-headers-follow-url-mosaic
138 highlight-headers-follow-url-function
139 action-key-url-function))
140 ("W3-Browser"
141 (setq action-key-url-function 'w3-fetch
142 highlight-headers-follow-url-function
143 action-key-url-function))))
144 '(doc . 94 '(doc .
145 (("Doc>") 95 (("Doc>")
146 ("About" (hypb:display-file-with-logo
147 (expand-file-name "ABOUT" hyperb:dir))
148 "Overview of Hyperbole and InfoDock Associates.")
149 ("Demo" (find-file-read-only 96 ("Demo" (find-file-read-only
150 (expand-file-name "DEMO" hyperb:dir)) 97 (expand-file-name "DEMO" hyperb:dir))
151 "Demonstrates Hyperbole features.") 98 "Demonstrates Hyperbole features.")
152 ("Files" (find-file-read-only 99 ("Files" (find-file-read-only
153 (expand-file-name "MANIFEST" hyperb:dir)) 100 (expand-file-name "MANIFEST" hyperb:dir))
208 "Displays manual section on global buttons.") 155 "Displays manual section on global buttons.")
209 ("Modify" hui:gbut-modify "Modifies global button attributes.") 156 ("Modify" hui:gbut-modify "Modifies global button attributes.")
210 )) 157 ))
211 '(ibut . 158 '(ibut .
212 (("IButton>") 159 (("IButton>")
213 ("Act" hui:hbut-current-act "Activates implicit button at point.") 160 ("Act" hui:hbut-act "Activates implicit button at point.")
214 ("DeleteIButType" (hui:htype-delete 'ibtypes) 161 ("DeleteIButType" (hui:htype-delete 'ibtypes)
215 "Deletes specified button type.") 162 "Deletes specified button type.")
216 ("Help" hui:hbut-help "Reports on button's attributes.") 163 ("Help" hui:hbut-help "Reports on button's attributes.")
217 ("Info" (id-info "(hyperbole.info)Implicit Buttons") 164 ("Info" (id-info "(hyperbole.info)Implicit Buttons")
218 "Displays manual section on implicit buttons.") 165 "Displays manual section on implicit buttons.")
220 "Displays documentation for one or all implicit button types.") 167 "Displays documentation for one or all implicit button types.")
221 )) 168 ))
222 '(msg . 169 '(msg .
223 (("Msg>") 170 (("Msg>")
224 ("Compose-Hypb-Mail" 171 ("Compose-Hypb-Mail"
225 (hmail:compose "hyperbole@infodock.com" '(hact 'hyp-config)) 172 (hmail:compose "hyperbole@hub.ucsb.edu" '(hact 'hyp-config))
226 "Send a message to the Hyperbole discussion list.") 173 "Send a message to the Hyperbole discussion list.")
227 ("Edit-Hypb-List-Entry" 174 ("Edit-Hypb-List-Entry"
228 (hmail:compose "hyperbole-request@infodock.com" 175 (hmail:compose "hyperbole-request@hub.ucsb.edu"
229 '(hact 'hyp-request)) 176 '(hact 'hyp-request))
230 "Add, remove or change your entry on a the Hyperbole mail list.") 177 "Add, remove or change your entry on a the Hyperbole mail list.")
231 ("Modify-Hypb-Announce-Entry" 178 ("Modify-Hypb-Announce-Entry"
232 (hmail:compose "hyperbole-announce-request@infodock.com" 179 (hmail:compose "hyperbole-announce-request@hub.ucsb.edu"
233 '(hact 'hyp-request)) 180 '(hact 'hyp-request))
234 "Add, remove or change your entry on the Hyperbole Announce mail list.") 181 "Add, remove or change your entry on the Hyperbole Announce mail list.")
235 )) 182 ))
236 (if hyperb:kotl-p 183 (if hyperb:kotl-p
237 '(otl 184 '(otl
317 (fset 'hui:menu 'hyperbole) 264 (fset 'hui:menu 'hyperbole)
318 265
319 ;;; Used as autoloaded main entry point to Hyperbole (but hsite.el) is the 266 ;;; Used as autoloaded main entry point to Hyperbole (but hsite.el) is the
320 ;;; file that is autoloaded when this is invoked. 267 ;;; file that is autoloaded when this is invoked.
321 ;;; It brings up a menu of commands. 268 ;;; It brings up a menu of commands.
322 ;;;###autoload
323 (defun hyperbole (&optional menu menu-list) 269 (defun hyperbole (&optional menu menu-list)
324 "Invokes default Hyperbole menu user interface when not already active. 270 "Invokes default Hyperbole menu user interface when not already active.
325 Suitable for binding to a key, e.g. {C-h h}. 271 Suitable for binding to a key, e.g. {C-h h}.
326 Non-interactively, returns t if menu is actually invoked by call, else nil. 272 Non-interactively, returns t if menu is actually invoked by call, else nil.
327 273