Commit 12eab961 authored by Joel Rosdahl's avatar Joel Rosdahl
Browse files

Added "View session status" to the person button menu and

grouped actions in text number buttons:

* lyskom-buttons.el (lyskom-button-view-session-status): New
button action.

* vars.el.in (lyskom-button-actions): Added above action to "pers"
buttons.

* english-strings.el, swedish-strings.el (lyskom-message): Added
action text.

* vars.el.in (lyskom-button-actions): Reordered "text" buttons so
that similar actions are near each other.
parent 9e521325
2002-03-21 Joel Rosdahl <joel@lysator.liu.se>
Added "View session status" to the person button menu and
grouped actions in text number buttons:
* lyskom-buttons.el (lyskom-button-view-session-status): New
button action.
* vars.el.in (lyskom-button-actions): Added above action to "pers"
buttons.
* english-strings.el, swedish-strings.el (lyskom-message): Added
action text.
* vars.el.in (lyskom-button-actions): Reordered "text" buttons so
that similar actions are near each other.
2002-03-20 Joel Rosdahl <joel@lysator.liu.se>
* vars.el.in (kom-server-aliases): Changed IP name of CSD-KOM.
......
......@@ -1591,6 +1591,7 @@ You must become an active member of the conference to enter it.\n")
(lyskom-button-sub-self-action . "Leave conference")
(lyskom-button-view-pers-presentation-action . "View presentation")
(lyskom-button-view-pers-status-action . "View user status")
(lyskom-button-view-session-status-action . "View session status")
(lyskom-button-mail-action . "Send letter")
(lyskom-button-send-message-action . "Send personal message")
(lyskom-button-open-url-action . "Open")
......
......@@ -749,6 +749,12 @@ This is a LysKOM button action."
(t (pop-to-buffer buf)
(kom-send-message arg nil))))
(defun lyskom-button-view-session-status (buf arg text)
"In the LysKOM buffer BUF, show session status for person ARG."
(cond ((not (integerp arg)) nil)
(t (pop-to-buffer buf)
(kom-status-session (lyskom-session-from-conf arg)))))
(defun lyskom-button-copy-email (but arg text)
"In the LysKOM buffer BUF, ignore ARG and copy TEXT to the kill ring.
This is a LysKOM button action."
......
......@@ -1590,6 +1590,7 @@ Du m
(lyskom-button-sub-self-action . "Uttrd ur mtet")
(lyskom-button-view-pers-presentation-action . "Visa presentation")
(lyskom-button-view-pers-status-action . "Visa personstatus")
(lyskom-button-view-session-status-action . "Visa sessionsstatus")
(lyskom-button-mail-action . "Skicka brev")
(lyskom-button-send-message-action . "Snd meddelande")
(lyskom-button-open-url-action . "ppna")
......
......@@ -1184,16 +1184,16 @@ appear more than once"
(lyskom-button-review-noconversion-action . lyskom-button-review-noconversion)
(lyskom-button-find-root-review-action . lyskom-button-find-root-review)
(lyskom-button-find-root-action . lyskom-button-find-root)
(lyskom-button-review-comments-action . lyskom-button-review-comments)
(lyskom-button-review-tree-action . lyskom-button-review-tree)
(lyskom-button-comment-text-action . lyskom-button-comment-text)
(lyskom-button-private-comment-text-action . lyskom-button-private-comment-text)
(lyskom-button-write-footnote-action . lyskom-button-write-footnote)
(lyskom-button-fast-reply-action . lyskom-button-fast-reply)
(lyskom-button-mark-text-action . lyskom-button-mark-text)
(lyskom-button-unmark-text-action . lyskom-button-unmark-text)
(lyskom-button-save-text-action . lyskom-button-save-text)
(lyskom-button-save-text-body-action . lyskom-button-save-text-body)
(lyskom-button-review-comments-action . lyskom-button-review-comments)
(lyskom-button-review-tree-action . lyskom-button-review-tree)
(lyskom-button-write-footnote-action . lyskom-button-write-footnote)
(lyskom-button-fast-reply-action . lyskom-button-fast-reply)
)
nil
;; ((nil lyskom-print-text footer lyskom-button-comment-text))
......@@ -1214,6 +1214,7 @@ appear more than once"
lyskom-button-view-pers-presentation
((lyskom-button-view-pers-presentation-action . lyskom-button-view-pers-presentation)
(lyskom-button-view-pers-status-action . lyskom-button-view-pers-status)
(lyskom-button-view-session-status-action . lyskom-button-view-session-status)
(lyskom-button-mail-action . lyskom-button-mail)
(lyskom-button-send-message-action . lyskom-button-send-message))
((kom-list-news . lyskom-button-goto-conf)
......
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