Commit 820cf85d authored by Johan Sundström's avatar Johan Sundström
Browse files

Added four additional button actions to texts. Fixes [bug 296].

parent 6e531d6f
2001-11-27 Johan Sundstrm <jhs@lysator.liu.se>
* lyskom-buttons.el (lyskom-button-review-comments,
lyskom-button-review-tree, lyskom-button-write-footnote,
lyskom-button-fast-reply): New button actions.
* vars.el.in (lyskom-button-actions): Added above button actions
for text buttons.
* swedish-strings.el, english-strings.el (lyskom-message): Added
action names.
2001-11-23 Ulrik Haugen <qha@lysator.liu.se>
* edit-text.el (lyskom-edit-insert-miscs): print a button with
......
......@@ -1544,12 +1544,16 @@ You must become an active member of the conference to enter it.\n")
(lyskom-button-review-noconversion-action . "Review unconverted")
(lyskom-button-find-root-review-action . "Review tree")
(lyskom-button-find-root-action . "Review root text")
(lyskom-button-comment-text-action . "Write commend")
(lyskom-button-comment-text-action . "Write comment")
(lyskom-button-private-comment-text-action . "Write personal reply")
(lyskom-button-mark-text-action . "Mark text")
(lyskom-button-unmark-text-action . "Unmark text")
(lyskom-button-save-text-action . "Save archive copy")
(lyskom-button-save-text-body-action . "Save text body")
(lyskom-button-review-comments-action . "Review all comments")
(lyskom-button-review-tree-action . "Review all comments recursively")
(lyskom-button-write-footnote-action . "Write footnote")
(lyskom-button-fast-reply-action . "Remark")
(lyskom-button-view-conf-presentation-action . "View presentation")
(lyskom-button-view-conf-status-action . "View conference status")
(lyskom-button-goto-conf-action . "Go to conference")
......
......@@ -651,7 +651,35 @@ This is a LysKOM button action."
(t (unwind-protect
(progn (pop-to-buffer buf)
(kom-save-text-body arg))))))
(defun lyskom-button-review-comments (buf arg text)
"In the LysKOM buffer BUF, review comments to the the text ARG.
Last argument TEXT is ignored. This is a LysKOM button action."
(cond ((not (integerp arg)) nil)
(t (pop-to-buffer buf)
(kom-review-comments arg))))
(defun lyskom-button-review-tree (buf arg text)
"In the LysKOM buffer BUF, recursively review comments to the the text ARG.
Last argument TEXT is ignored. This is a LysKOM button action."
(cond ((not (integerp arg)) nil)
(t (pop-to-buffer buf)
(kom-review-tree arg))))
(defun lyskom-button-write-footnote (buf arg text)
"In the LysKOM buffer BUF, write a footnote to the the text ARG.
Last argument TEXT is ignored. This is a LysKOM button action."
(cond ((not (integerp arg)) nil)
(t (pop-to-buffer buf)
(kom-write-footnote arg))))
(defun lyskom-button-fast-reply (buf arg text)
"In the LysKOM buffer BUF, make a remark to the the text ARG.
Last argument TEXT is ignored. This is a LysKOM button action."
(cond ((not (integerp arg)) nil)
(t (pop-to-buffer buf)
(kom-fast-reply arg))))
(defun lyskom-button-view-conf-presentation (buf arg text)
"In the LysKOM buffer BUF, view the presentation of ARG.
......
......@@ -1549,6 +1549,10 @@ Du m
(lyskom-button-unmark-text-action . "Avmarkera texten")
(lyskom-button-save-text-action . "Arkivera inlgg")
(lyskom-button-save-text-body-action . "Spara inlggstext")
(lyskom-button-review-comments-action . "terse alla kommentarer")
(lyskom-button-review-tree-action . "terse alla kommentarer rekursivt")
(lyskom-button-write-footnote-action . "Fotnotera")
(lyskom-button-fast-reply-action . "Anmrk")
(lyskom-button-view-conf-presentation-action . "Visa presentation")
(lyskom-button-view-conf-status-action . "Visa mtesstatus")
(lyskom-button-goto-conf-action . "G till mtet")
......
......@@ -1174,6 +1174,10 @@ each time ."
(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))
......
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