Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hui-mini.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 376386a54a3c
children ec9a17fef872
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
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: Brown U. 9 ;; ORG: InfoDock Associates
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: 3-Nov-95 at 04:02:02 by Bob Weiner 12 ;; LAST-MOD: 20-Feb-97 at 11:30:44 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-1995, Free Software Foundation, Inc. 17 ;; Copyright (C) 1991-1997, 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.")
63 '("Doc/" (menu . doc) 65 '("Doc/" (menu . doc)
64 "Quick access to Hyperbole documentation.") 66 "Quick access to Hyperbole documentation.")
65 '("Ebut/" (menu . ebut) 67 '("Ebut/" (menu . ebut)
66 "Explicit button commands.") 68 "Explicit button commands.")
67 '("Gbut/" (menu . gbut) 69 '("Gbut/" (menu . gbut)
89 "Displays manual section on button files.") 91 "Displays manual section on button files.")
90 ("PersonalFile" (find-file 92 ("PersonalFile" (find-file
91 (expand-file-name hbmap:filename hbmap:dir-user)) 93 (expand-file-name hbmap:filename hbmap:dir-user))
92 "Edits user-specific button file.") 94 "Edits user-specific button file.")
93 )) 95 ))
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 ("URL-Display/" (menu . cust-urls) "Sets where URLs are displayed.")))
103 '(cust-eol .
104 (("Smart Key press at eol scrolls>")
105 ("Proportionally" (setq smart-scroll-proportional t))
106 ("Windowful" (setq smart-scroll-proportional nil))))
107 '(cust-referents .
108 (("Ref display>")
109 ("Any-Frame" (setq hpath:display-where 'other-frame))
110 ("Current-Win" (setq hpath:display-where 'this-window))
111 ("Diff-Frame-One-Win"
112 (setq hpath:display-where 'other-frame-one-window))
113 ("New-Frame" (setq hpath:display-where 'new-frame))
114 ("Other-Win" (setq hpath:display-where 'other-window))
115 ("Single-Win" (setq hpath:display-where 'one-window))))
116 '(cust-urls .
117 (("URL display>")
118 ("Any-Netscape-Window"
119 (setq action-key-url-function 'highlight-headers-follow-url-netscape
120 highlight-headers-follow-url-function action-key-url-function
121 highlight-headers-follow-url-netscape-new-window nil))
122 ("New-Netscape-Window"
123 (setq action-key-url-function 'highlight-headers-follow-url-netscape
124 highlight-headers-follow-url-function action-key-url-function
125 highlight-headers-follow-url-netscape-new-window t))
126 ("Mosaic" (setq action-key-url-function
127 'highlight-headers-follow-url-mosaic
128 highlight-headers-follow-url-function
129 action-key-url-function))
130 ("W3-Browser"
131 (setq action-key-url-function 'w3-fetch
132 highlight-headers-follow-url-function
133 action-key-url-function))))
94 '(doc . 134 '(doc .
95 (("Doc>") 135 (("Doc>")
136 ("About" (hypb:display-file-with-logo
137 (expand-file-name "ABOUT" hyperb:dir))
138 "Overview of Hyperbole and InfoDock Associates.")
96 ("Demo" (find-file-read-only 139 ("Demo" (find-file-read-only
97 (expand-file-name "DEMO" hyperb:dir)) 140 (expand-file-name "DEMO" hyperb:dir))
98 "Demonstrates Hyperbole features.") 141 "Demonstrates Hyperbole features.")
99 ("Files" (find-file-read-only 142 ("Files" (find-file-read-only
100 (expand-file-name "MANIFEST" hyperb:dir)) 143 (expand-file-name "MANIFEST" hyperb:dir))
155 "Displays manual section on global buttons.") 198 "Displays manual section on global buttons.")
156 ("Modify" hui:gbut-modify "Modifies global button attributes.") 199 ("Modify" hui:gbut-modify "Modifies global button attributes.")
157 )) 200 ))
158 '(ibut . 201 '(ibut .
159 (("IButton>") 202 (("IButton>")
160 ("Act" hui:hbut-act "Activates implicit button at point.") 203 ("Act" hui:hbut-current-act "Activates implicit button at point.")
161 ("DeleteIButType" (hui:htype-delete 'ibtypes) 204 ("DeleteIButType" (hui:htype-delete 'ibtypes)
162 "Deletes specified button type.") 205 "Deletes specified button type.")
163 ("Help" hui:hbut-help "Reports on button's attributes.") 206 ("Help" hui:hbut-help "Reports on button's attributes.")
164 ("Info" (id-info "(hyperbole.info)Implicit Buttons") 207 ("Info" (id-info "(hyperbole.info)Implicit Buttons")
165 "Displays manual section on implicit buttons.") 208 "Displays manual section on implicit buttons.")
167 "Displays documentation for one or all implicit button types.") 210 "Displays documentation for one or all implicit button types.")
168 )) 211 ))
169 '(msg . 212 '(msg .
170 (("Msg>") 213 (("Msg>")
171 ("Compose-Hypb-Mail" 214 ("Compose-Hypb-Mail"
172 (hmail:compose "hyperbole@hub.ucsb.edu" '(hact 'hyp-config)) 215 (hmail:compose "hyperbole@infodock.com" '(hact 'hyp-config))
173 "Send a message to the Hyperbole discussion list.") 216 "Send a message to the Hyperbole discussion list.")
174 ("Edit-Hypb-List-Entry" 217 ("Edit-Hypb-List-Entry"
175 (hmail:compose "hyperbole-request@hub.ucsb.edu" 218 (hmail:compose "hyperbole-request@infodock.com"
176 '(hact 'hyp-request)) 219 '(hact 'hyp-request))
177 "Add, remove or change your entry on a the Hyperbole mail list.") 220 "Add, remove or change your entry on a the Hyperbole mail list.")
178 ("Modify-Hypb-Announce-Entry" 221 ("Modify-Hypb-Announce-Entry"
179 (hmail:compose "hyperbole-announce-request@hub.ucsb.edu" 222 (hmail:compose "hyperbole-announce-request@infodock.com"
180 '(hact 'hyp-request)) 223 '(hact 'hyp-request))
181 "Add, remove or change your entry on the Hyperbole Announce mail list.") 224 "Add, remove or change your entry on the Hyperbole Announce mail list.")
182 )) 225 ))
183 (if hyperb:kotl-p 226 (if hyperb:kotl-p
184 '(otl 227 '(otl