Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
820cf85d
Commit
820cf85d
authored
Nov 27, 2001
by
Johan Sundström
Browse files
Added four additional button actions to texts. Fixes [bug 296].
parent
6e531d6f
Changes
5
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
820cf85d
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
...
...
src/english-strings.el
View file @
820cf85d
...
...
@@ -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 commen
d
"
)
(
lyskom-button-comment-text-action
.
"Write commen
t
"
)
(
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"
)
...
...
src/lyskom-buttons.el
View file @
820cf85d
...
...
@@ -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.
...
...
src/swedish-strings.el
View file @
820cf85d
...
...
@@ -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"
)
...
...
src/vars.el.in
View file @
820cf85d
...
...
@@ -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))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment