Commit 57172957 authored by David Kågedal's avatar David Kågedal
Browse files

* lyskom-rest.el: Anropa lyskom-build-menus på toppnivån.

* menus.el (lyskom-background-menu): Ny funktion.
parent 9461a537
Tue Oct 8 04:44:29 1996 David Kgedal <davidk@lysator.liu.se>
* lyskom-rest.el: Anropa lyskom-build-menus p toppnivn.
* menus.el (lyskom-background-menu): Ny funktion.
Tue Oct 8 03:55:40 1996 David Kgedal <kg@infovav.se>
......
No preview for this file type
......@@ -31,44 +31,51 @@
;;;;
(setq lyskom-menus
'((menu lyskom
((menu read ((item kom-view-next-text)
hline
(item kom-view-commented-text)
(item kom-view-previous-commented-text)
(item kom-review-comments)
(item kom-review-tree)
(item kom-find-root)))
(menu dont-read((item kom-jump)
(item kom-set-unread)))
(menu write ((item kom-write-text)
(item kom-send-letter)
(item kom-write-comment)
(item kom-comment-previous)
hline
(item kom-send-message)))
(menu move ((item kom-go-to-conf)
(item kom-go-to-next-conf)))
(menu info ((item kom-who-is-on)
(item kom-list-news)
hline
(item kom-status-person)
(item kom-status-conf)
(item kom-review-presentation)
hline
(item kom-list-conferences)
(item kom-list-persons)))))))
(defvar lyskom-menus
'((menu lyskom
((menu read ((item kom-view-next-text)
hline
(item kom-view-commented-text)
(item kom-view-previous-commented-text)
(item kom-review-comments)
(item kom-review-tree)
(item kom-find-root)))
(menu dont-read((item kom-jump)
(item kom-set-unread)))
(menu write ((item kom-write-text)
(item kom-send-letter)
(item kom-write-comment)
(item kom-comment-previous)
hline
(item kom-send-message)))
(menu move ((item kom-go-to-conf)
(item kom-go-to-next-conf)))
(menu info ((item kom-who-is-on)
(item kom-list-news)
hline
(item kom-status-person)
(item kom-status-conf)
(item kom-review-presentation)
hline
(item kom-list-conferences)
(item kom-list-persons))))))
"The menus used in LysKOM.")
(setq lyskom-menu-names
'((lyskom . "LysKOM")
(read . "Ls")
(dont-read . "Hoppa")
(write . "Skriv")
(move . "G")
(info . "Om")))
(defvar lyskom-menu-names
'((lyskom . "LysKOM")
(read . "Ls")
(dont-read . "Hoppa")
(write . "Skriv")
(move . "G")
(info . "Om"))
"The titles of the menus and submenus in LysKOM.")
(defvar lyskom-menu-map nil
"A keyamp describing the LysKOM top menu.")
(when (not lyskom-menu-map)
(setq lyskom-menu-map (make-sparse-keymap)))
(setq lyskom-menu-map (make-sparse-keymap))
(defun lyskom-build-menus ()
(define-key lyskom-mode-map [menu-bar]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment