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
Peter Liljenberg
lyskom-elisp-client
Commits
7afe27da
Commit
7afe27da
authored
Dec 03, 1999
by
David Byers
Browse files
Synkning inför release av 0.46-BETA-D
parent
1e3b110e
Changes
4
Hide whitespace changes
Inline
Side-by-side
interndoc/reading
View file @
7afe27da
...
...
@@ -21,30 +21,34 @@
There are several different types of read-infos:
CONF Read texts in a conference. The read-info contains the
conf-stat of the conference, a list of texts to read
and some other stuff (I don't remember exactly what.)
CONF Read texts in a conference. The read-info contains
the conf-stat of the conference, a list of texts to
read and some other stuff (I don't remember exactly
what.)
COMM-IN Read a comment to some other text. The read-info
contains the conf-stat in which the text is being
read, the priority of that conference, a list of
comments to a text (that presumably has just been
read), the text that has comments, and some other
stuff.
COMM-IN
Read a comment to some other text. The read-info
contains the conf-stat in which the text is being
read, the priority of that conference, a list of
comments to a text (that presumably has just been
read), the text that has comments, and some other
stuff.
FOOTN-IN Read a footnote to some other text. The read-info is
essentially the same as a COMM-IN.
FOOTN-IN
Read a footnote to some other text. The read-info is
essentially the same as a COMM-IN.
REVIEW Review one of more texts. The read-info contains the
priority the reviewing has, the list of texts to
review and some other stuff.
REVIEW
Review one of more texts. The read-info contains the
priority the reviewing has, the list of texts to
review and some other stuff.
REVIEW-TREE Review a comment tree. This is more or less the same
as a COMM-IN, but is used for reviewing.
REVIEW-TREE
Review a comment tree. This is more or less the same
as a COMM-IN, but is used for reviewing.
REVIEW-MARK Review one or more marked texts. The read-info
contains the priority, list of texts to review and
other stuff that I don't know off-hand.
REVIEW-MARK Review one or more marked texts. The read-info
contains the priority, list of texts to review and
other stuff that I don't know off-hand.
RE-EDIT-TEXT Text creation failed. The misc field of the read-info
contains the buffer used for editing the text.
Two of the things that every single read-info has is a priority
and a list of texts. The priority is used to determine when a text
...
...
@@ -56,19 +60,20 @@
use the two lists for is temporary read-infos. If you enter a
read-info in lyskom-reading-list and not on lyskom-to-do-list, it
will be removed if the user goes to another conference. This is
the case with COMM-IN and FOOTN-IN entries. They are never entered
on lyskom-to-do-list, and when you go to a new conference they are
simply dropped.
currently the case with COMM-IN, FOOTN-IN and RE-EDIT-TEXT entries
(and in versions prior to 0.46 was also the case with all REVIEW
infos.) They are never entered on lyskom-to-do-list, and when you
go to a new conference they are simply dropped.
| Most of the time you don't want read-infos to be dropped.
| Therefore it is important to enter them on both lyskom-to-do-list
| and lyskom-reading-list. It is also important that you enter the
|
same
read-info on both lists, and not just identical copies. If
|
SAME
read-info on both lists, and not just identical copies. If
| you enter identical copies, users will end up reading everything
| at least twice.
To enter a REVIEW, REVIEW-TREE or REVIEW-MARK read-info, use the
function lyskom-review-enter-read-info to enter the same read-info
function lyskom-review-enter-read-info to enter the same read-info
into both lists. It's fun to use, and easy too!
...
...
@@ -80,7 +85,9 @@
A CONF on lyskom-reading-list will generate a read next text
prompt. A REVIEW, REVIEW-TREE of REVIEW-MARK will generate the
corresponding review text prompt. A COMM-IN will generate a read
next comment, and FOOTN-IN a read next footnote prompt.
next comment, and FOOTN-IN a read next footnote prompt. A
RE-EDIT-TEXT will prompt the user to edit a failed text
submission.
A CONF on lyskom-to-do-list will generate a go to next conference
prompt. A REVIEW, REVIEW-TREE or REVIEW-MARK will generate a
...
...
src/ChangeLog
View file @
7afe27da
Fri Dec 3 11:54:28 1999 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-D
1999-12-03 David Byers <davby@ida.liu.se>
* startup.el (lyskom): Use lyskom-string-rassoc to find KOMSERVER
in kom-server-aliases.
(lyskom-read-server-name): Use lyskom-string-assoc to find server
name.
* utilities.el (lyskom-string-rassoc): New function.
* option-edit.el (lyskom-customize-buffer-format): Added
kom-server-priority and kom-server-priority-breaks.
(lyskom-custom-variables): Same here.
...
...
src/startup.el
View file @
7afe27da
...
...
@@ -74,7 +74,7 @@ See lyskom-mode for details."
(
or
password
(
getenv
"KOMPASSWORD"
)))
(
if
(
zerop
(
length
host
))
(
let*
((
env-kom
(
getenv
"KOMSERVER"
))
(
canon
(
rassoc
env-kom
kom-server-aliases
)))
(
canon
(
lyskom-string-
rassoc
env-kom
kom-server-aliases
)))
(
setq
host
(
or
(
car
canon
)
env-kom
lyskom-default-server
))))
...
...
@@ -673,7 +673,7 @@ alias name is entered, the corresponding address is returned."
(
completion-ignore-case
t
)
server
)
(
setq
server
(
completing-read
prompt
known-servers
nil
nil
))
(
or
(
cdr
(
assoc
server
known-servers
))
(
or
(
cdr
(
lyskom-string-
assoc
server
known-servers
))
server
)))
...
...
src/utilities.el
View file @
7afe27da
...
...
@@ -394,6 +394,18 @@ The value is actually the element of LIST whose car equals KEY."
(
setq
list
(
cdr
list
)))
result
))
(
defun
lyskom-string-rassoc
(
key
list
)
"Return non-nil if KEY is the same string as the cdr of an element of LIST.
The value is actually the element of LIST whose car equals KEY."
(
let
((
s
(
downcase
key
))
(
result
nil
))
(
while
list
(
when
(
lyskom-string=
s
(
downcase
(
cdr
(
car
list
))))
(
setq
result
(
car
list
))
(
setq
list
nil
))
(
setq
list
(
cdr
list
)))
result
))
(
defun
lyskom-set-default
(
sym
val
)
"Set the value of SYM in the LysKOM buffer to VAL."
(
save-excursion
...
...
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