Skip to content
GitLab
Menu
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
c39840fc
Commit
c39840fc
authored
Aug 16, 1993
by
Linus Tolke
Browse files
Moving kom-tell-phrases back, kom-write-letter fixed with blocking-do.
parent
fa289249
Changes
6
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
c39840fc
No preview for this file type
src/commands1.el
View file @
c39840fc
...
...
@@ -822,6 +822,7 @@ CCREP is a list of all recipients that are going to be cc-recipients."
;;; Personligt svar - personal answer
;;; Author: ???
;;; Rewritten using blocking-do by: Linus Tolke
(
defun
kom-private-answer
(
&optional
text-no
)
...
...
@@ -834,26 +835,22 @@ that text instead."
lyskom-current-text
)
((
integerp
current-prefix-arg
)
current-prefix-arg
)
((
and
(
listp
current-prefix-arg
)
(
integerp
(
car
current-prefix-arg
))
(
null
(
cdr
current-prefix-arg
)))
(
car
current-prefix-arg
))
((
listp
current-prefix-arg
)
(
lyskom-read-number
(
lyskom-get-string
'what-private-no
)))
(
t
(
signal
'lyskom-internal-error
'
(
kom-private-answer
))))))
(
lyskom-start-of-command
'kom-private-answer
)
(
if
text-no
(
progn
(
lyskom-collect
'main
)
(
initiate-get-text-stat
'main
nil
text-no
)
(
initiate-get-text
'main
nil
text-no
)
(
lyskom-use
'main
'lyskom-private-answer-soon
text-no
))
(
lyskom-start-of-command
'kom-private-answer
)
(
lyskom-private-answer-soon
(
blocking-do
'get-text-stat
text-no
)
(
blocking-do
'get-text
text-no
)
text-no
)
(
lyskom-insert-string
'confusion-who-to-reply-to
)
(
lyskom-end-of-command
)))
(
defun
lyskom-private-answer-soon
(
text-stat
text
text-no
)
"Write a private answer to TEXT-STAT, TEXT."
(
lyskom-start-of-command
'kom-private-answer
)
(
if
(
and
text-stat
text
)
(
if
(
string-match
"\n"
(
text->text-mass
text
))
(
lyskom-private-answer
text-stat
...
...
@@ -884,17 +881,16 @@ that text instead."
;;; Personligt svar p} f|reg}ende - kom-private-answer-previous
;;; Author: ceder
;;; Rewritten using blocking-do by: Linus Tolke
(
defun
kom-private-answer-previous
()
"Write a private answer to previously viewed text."
(
interactive
)
(
lyskom-start-of-command
'kom-private-answer-previous
)
(
if
lyskom-previous-text
(
progn
(
lyskom-collect
'main
)
(
initiate-get-text-stat
'main
nil
lyskom-previous-text
)
(
initiate-get-text
'main
nil
lyskom-previous-text
)
(
lyskom-use
'main
'lyskom-private-answer-soon-prev
))
(
lyskom-private-answer-soon-prev
(
blocking-do
'get-text-stat
lyskom-previous-text
)
(
blocking-do
'get-text
lyskom-previous-text
))
(
lyskom-insert-string
'confusion-who-to-reply-to
)
(
lyskom-end-of-command
)))
...
...
src/edit-text.el
View file @
c39840fc
...
...
@@ -671,8 +671,6 @@ Point must be located on the line where the subject is."
;; Apply handler.
(
set-buffer
(
process-buffer
lyskom-proc
))
(
setq
lyskom-previous-text
lyskom-current-text
)
(
setq
lyskom-current-text
text-no
)
(
if
hnd
(
apply
hnd
text-no
dta
)))
...
...
src/lyskom-rest.el
View file @
c39840fc
No preview for this file type
src/swedish-strings.el
View file @
c39840fc
...
...
@@ -100,7 +100,7 @@ Annat se \\[describe-mode] ---")
"
*String
to
separate
headers
from
text
body.
")
(defvar lyskom-header-subject "
rende:
"
(defvar lyskom-header-subject "
\304
rende:
"
"
*String
to
prompt
for
subject
in
the
edit
buffer.
")
...
...
@@ -121,7 +121,7 @@ Annat se \\[describe-mode] ---")
(you-have-motd . "
\nDu
har
en
lapp
p\345
d\366rren:\n\n
")
(presentation-encouragement .
"
Du
har
ingen
presentation.
Det
skulle
vara
trevligt
om
du
skrev
en.
Anv\344nd
kommandot
p.
Om
du
inte
vill
skriva
n\345gon
presentation
tryck
fs.\n
")
Anv\344nd
kommandot
\304
p.
Om
du
inte
vill
skriva
n\345gon
presentation
tryck
fs.\n
")
(first-greeting . "
%#1s
Det
tycks
vara
f\366rsta
g\345ngen
du
anv\344nder
LysKOM.
V\344lkommen!
...
...
@@ -136,7 +136,7 @@ Om du \344r os\344ker p\345 hur man anv\344nder LysKOM kan du h\344mta en manual
anonym
ftp
fr\345n
ftp.lysator.liu.se.
Fr\345ga
din
systemadministrat\366r
om
du
\344r
os\344ker.\n
")
(is-name-correct . "
r
namnet
%#1s
korrekt?
")
(is-name-correct . "
\304
r
namnet
%#1s
korrekt?
")
(personal-password . "
Ange
ett
personligt
l\366sen:
")
(repeat-password . "
Repetera
f\366r
kontroll:
")
(repeat-failure . "
Du
angav
inte
samma
l\366senord
b\344gge
g\345ngerna.\n
")
...
...
@@ -229,7 +229,9 @@ Skicka ett brev till %#2s f\366r medlemsskap.\n")
(confusion-what-to-comment . "
Jag
f\366rst\345r
inte
vilken
text
du
vill
kommentera.\n
")
(confusion-what-to-footnote . "
Jag
f\366rst\345r
inte
vilken
text
du
vill
skriva
en
fotnot
till.\n
")
(confusion-who-to-reply-to . "
Jag
f\366rst\345r
inte
vems
inl\344gg
du
vill
skriva
ett
privat
svar
till.\n
")
(what-private-no . "
Personligt
svar
till
text
nummer:
")
(confusion-who-to-reply-to . "
Jag
f\366rst\345r
inte
vems
inl\344gg
du
vill
skriva
ett
privat
svar
till.\n
")
(confusion-what-to-answer-to . "
Jag
f\366rst\345r
inte
vilken
text
du
vill
besvara.
")
(quit-in-spite-of-unsent . "
Vill
du
avsluta
sessionen
trots
os\344nt
meddelande?
")
(really-quit . "
Vill
du
verkligen
avsluta
sessionen?
")
...
...
@@ -268,7 +270,7 @@ Lyskom-sessionen \344r avslutad.
(whos-passwd . "
Vem
vill
du
\344ndra
l\366senord
f\366r
(
dig
sj\344lv
)
?
")
(old-passwd . "
Mata
in
ditt
l\366senord:
")
(new-passwd . "
Mata
in
det
nya
l\366senordet:
")
(changing-passwd . "
ndrar
l\366senordet...
")
(changing-passwd . "
\304
ndrar
l\366senordet...
")
(retype-dont-match . "
L\366senorden
\344r
inte
samma.
G\366r
om.\n
")
(palindrome . "
(
ett
palindrom!
)
")
(lyskom-name . "
Anv\344ndare
")
...
...
@@ -302,7 +304,7 @@ Lyskom-sessionen \344r avslutad.
(not-member-of-conf . "
Du
\344r
inte
medlem
i
%#1s.\n
")
(change-name-done . "
\nKlart.
Nytt
namn:
%#1s.\n
")
(change-name-nope . "
\nDet
gick
inte
bra
att
\344ndra
till
%#1s.\nFelkod
%#3d.
%#2s.\n
")
(change-supervisor-from-to . "
ndra
organisat\366r
f\366r
%#1s
till
%#2s...
")
(change-supervisor-from-to . "
\304
ndra
organisat\366r
f\366r
%#1s
till
%#2s...
")
(change-supervisor-nope .
"
\nDet
gick
inte.
Kanske
du
inte
f\345r
\344ndra
organisat\366r
f\366r
%#1s?\n
")
...
...
@@ -419,7 +421,7 @@ Ditt allm\344nna meddelande l\366d:
(Date . "
Datum
")
(Lines . "
Rader
")
(Author . "
F\366rfattare
")
(Subject . "
rende
")
(Subject . "
\304
rende
")
(could-not-read . "
Du
fick
inte
l\344sa
denna
text
(
%#1d
)
.
\n
")
(multiple-choice . "
Flera
alternativ
finns.
")
(does-not-exist . "
Detta
kommando
finns
inte.
")
...
...
@@ -469,15 +471,15 @@ M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
(conf-to-set-super-conf-q . "
Vilket
m\366te
vill
du
s\344tta
superm\366te
f\366r?
")
(new-super-conf-q . "
Vilket
m\366te
vill
du
ha
som
superm\366te?
")
(new-permitted-submitters-q . "
M\366te
med
till\345tna
f\366rfattare
till
%#1s?
(
alla
)
")
(super-conf-for-is . "
ndra
superm\366te
f\366r
%#1s
till
%#2s...
")
(super-conf-for-is . "
\304
ndra
superm\366te
f\366r
%#1s
till
%#2s...
")
(permitted-submitters-removed-for-conf . "
Till\345t
alla
f\366rfattare
i
m\366te
%#1s...
")
(submitters-conf-for-is . "
\304ndra
till\345tna
f\366rfattare
f\366r
m\366te
%#1s
till\nmedlemmarna
i
%#2s...
")
(conf-to-set-garb-nice-q . "
Vilket
m\366te
vill
du
s\344tta
livsl\344ngd
f\366r?
")
(new-garb-nice-q . "
Vilket
v\344rde
vill
du
s\344tta
livsl\344ngden
till?
")
(garb-nice-for-is . "
ndra
livsl\344ngden
f\366r
%#1s
till
%#2d...
")
(garb-nice-for-is . "
\304
ndra
livsl\344ngden
f\366r
%#1s
till
%#2d...
")
(really-shutdown . "
r
du
s\344ker
p\345
att
du
vill
st\344nga
av
servern?
")
(really-shutdown . "
\304
r
du
s\344ker
p\345
att
du
vill
st\344nga
av
servern?
")
(closing-server . "
St\344nga
av
servern...
")
(administrator . "
administrat\366r
")
(no-longer-administrator . "
en
normal
anv\344ndare
igen
")
...
...
@@ -509,7 +511,7 @@ M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
(review-marked . "
\305terse
%#1d
markerade.\n
")
(review-text-no . "
\305terse
text
nummer
%#1d
")
(review-one-comment . "
\305terse
en
kommentar
till
inl\344gg
%#1d.\n
")
(review-many-comments . "
terse
%#2d
kommentarer
till
inl\344gg
%#1d.\n
")
(review-many-comments . "
\304
terse
%#2d
kommentarer
till
inl\344gg
%#1d.\n
")
(read-normally-read . "
Hur
m\345nga
vill
du
se
igen?
")
; From edit-text.el:
...
...
@@ -519,7 +521,7 @@ M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
(text-mass . "
%#4s%#1s\n%#2s\n%#3s
")
(comment-to-by . "
%#1s
till
text
%#2d%#3s.\n
")
(already-sent . "
Du
har
redan
skickat
denna
text
en
g\345ng.
S\344nd
\344nd\345?
")
(subject . "
rende:
")
(subject . "
\304
rende:
")
(which-text-include . "
Vilken
text
skall
vi
inkludera?
")
(added-recipient . "
Mottagare
som
skall
adderas:
")
(added-carbon-copy . "
Extra
kopia
till
m\366te:
")
...
...
@@ -548,7 +550,7 @@ M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
(time-yyyy-mm-dd-hh-mm . "
%4#1d-%02#2d-%02#3d
%02#4d:%02#5d
")
(no-such-text-no . "
Det
finns
ingen
s\345dan
text.
(
%#1d
)
\n
")
(head-Subject . "
rende:
")
(head-Subject . "
\304
rende:
")
(Recipient . "
Mottagare
")
(Extra-recipient . "
Extra
kopia
")
(send-at . "
S\344nt:
%#1s\n
")
...
...
@@ -754,10 +756,10 @@ Felmeddelande: %#1s**************************************************")
(kom-set-unread "
Endast
l\344sa
senaste
")
(kom-write-text "
Skriva
ett
inl\344gg
")
(kom-send-letter "
Skicka
brev
")
(kom-change-name "
ndra
namn
")
(kom-change-password "
ndra
l\366senord
")
(kom-change-supervisor "
ndra
organisat\366r
")
(kom-change-presentation "
ndra
presentation
")
(kom-change-name "
\304
ndra
namn
")
(kom-change-password "
\304
ndra
l\366senord
")
(kom-change-supervisor "
\304
ndra
organisat\366r
")
(kom-change-presentation "
\304
ndra
presentation
")
(kom-get-appreciation "
F\345
uppmuntran
")
(kom-get-abuse "
F\345
sk\344ll
")
(kom-mark-text "
Markera
(
inl\344gg
)
")
...
...
@@ -772,12 +774,12 @@ Felmeddelande: %#1s**************************************************")
(kom-add-member "
Addera
medlem
")
(kom-sub-member "
Uteslut
medlem
")
(kom-change-conf-motd "
S\344tt
lapp
p\345
d\366rren
")
(kom-set-garb-nice "
ndra
livsl\344ngd
")
(kom-set-super-conf "
ndra
superm\366te
")
(kom-set-garb-nice "
\304
ndra
livsl\344ngd
")
(kom-set-super-conf "
\304
ndra
superm\366te
")
(kom-set-permitted-submitters "
\304ndra
till\345tna
f\366rfattare
")
(kom-unset-conf-motd "
Ta
bort
lapp
p\345
d\366rren
")
(kom-save-text "
Spara
text
(
p\345
fil
)
")
(kom-edit-options "
ndra
variabler
")
(kom-edit-options "
\304
ndra
variabler
")
(kom-shutdown-server "
St\344ng
av
servern
")
(kom-enable-adm-caps "
\326verg\345
till
administrat\366rsmod
")
(kom-disable-adm-caps "
\326verg\345
till
normalmod
")
...
...
@@ -929,6 +931,7 @@ Cf. paragraph-start.")
)
(defvar lyskom-prioritize-mode-map nil
"
Keymap
used
in
lyskom-prioritize-mode.
")
...
...
@@ -950,20 +953,43 @@ Cf. paragraph-start.")
)
;;;; ================================================================
;;;; Tell phrases should be configured with the default
language used
;;;; at the server and not for person reading if they
happens to
;;;; differ. This is of coarse because they are sent to the
server for
;;;; everybody else to see.
;;;; Tell phrases should
really
be configured with the default
;;;;
language used
at the server and not for person reading if they
;;;;
happens to
differ. This is of coarse because they are sent to the
;;;;
server for
everybody else to see.
;;;; Aronsson was here 4 DEC 1990, thus creating version 0.18
; Created *-tell-*
;;;; kom-tell-phrases-internal moved to vars.el
;;;; kom-tell-phrases
;;; To coders of the elisp-client:
;;; dont change the kom-tell-phrases here, change it in vars.el.
;;; if you change kom-tell-phrases here, make sure the list of valid
;;; keywords is updated it in vars.el.
;;; lyskom-tell-phrases-validation-keyword-list, lyskom-tell-phrases-validate
(defvar kom-tell-phrases kom-tell-phrases-internal
(defvar kom-tell-phrases
'(
(kom-tell-silence "") ; Why ?
(kom-tell-send "
F\366rs\366ker
l\344gga
in
en
text.
")
(kom-tell-login "
Loggar
in.
")
(kom-tell-read "
L\344ser.
")
(kom-tell-1st-pres "
Skriver
den
f\366rsta
presentationen.
")
(kom-tell-write-comment "
Skriver
en
kommentar.
")
(kom-tell-write-footnote "
Skriver
en
fotnot.
")
(kom-tell-write-letter "
Skriver
ett
brev.
")
(kom-tell-write-reply "
Skriver
ett
privat
svar.
")
(kom-tell-write-text "
Skriver
inl\344gg.
")
(kom-tell-conf-pres "
Skriver
presentation
f\366r
ett
nytt
m\366te.
")
(kom-tell-recover "
Trycker
'r'.
Suck.
")
(kom-tell-wait "
V\344ntar.
")
(kom-tell-regret "
\305ngrar
sig
och
sl\344nger
inl\344gget.
")
(kom-tell-review "
\305terser.
")
(kom-tell-change-name "
\304ndrar
sitt
namn
till
n\345got
annat.
")
(kom-tell-change-supervisor "
\304ndrar
organisat\366r
f\366r
n\345got.
")
(kom-tell-next-lyskom "
Hoppar
till
ett
annat
LysKOM.
")
)
"
These
texts
are
used
as
arguments
to
lyskom-tell-server.
The
variable
kom-mercial
defaults
to
kom-tell-wait.
Users
are
encouraged
to
change
this
dictionary
for
fun.
")
...
...
@@ -980,7 +1006,7 @@ Users are encouraged to use their best sense of humor.")
(defconst lyskom-error-texts
'((0 . "
Inget
fel
har
intr\344ffat
")
(2 . "
nnu
ej
implementerat
")
(2 . "
\304
nnu
ej
implementerat
")
(3 . "
Inte
l\344ngre
implementerat
")
(4 . "
Felaktigt
l\366senord
")
(5 . "
Str\344ngen
f\366r
l\345ng
")
...
...
src/vars.el
View file @
c39840fc
...
...
@@ -500,31 +500,42 @@ unread texts in list-unread.")
"This variable is t if the user is in administrator mode and nil otherwise."
)
;;;; The default is a swedish-speaking server.
;;;; lyskom-tell-phrases-validation-keyword-list
;;; This is a list of keywords for kom-tell-phrases.
;;; These are the only keywords that are allowed in kom-tell-phrases.
(
defconst
kom-tell-phrases-internal
;;; To coders of the elisp-client:
;;; If you add/delete a reference to any of these keywords make sure
;;; you update these changes.
;;; To everyone:
;;; The kom-tell-phrases list is checked against this list when the
;;; client is loaded, i.e. by lyskom-tell-phrases-validate that causes
;;; an error if any keyword is not present or any non-keyword is
;;; present.
(
defconst
lyskom-tell-phrases-validation-keyword-list
'
(
(
kom-tell-silence
""
)
; Why ?
(
kom-tell-send
"F\366rs\366ker l\344gga in en text."
)
(
kom-tell-login
"Loggar in."
)
(
kom-tell-read
"L\344ser."
)
(
kom-tell-1st-pres
"Skriver den f\366rsta presentationen."
)
(
kom-tell-write-comment
"Skriver en kommentar."
)
(
kom-tell-write-footnote
"Skriver en fotnot."
)
(
kom-tell-write-letter
"Skriver ett brev."
)
(
kom-tell-write-reply
"Skriver ett privat svar."
)
(
kom-tell-write-text
"Skriver inl\344gg."
)
(
kom-tell-conf-pres
"Skriver presentation f\366r ett nytt m\366te."
)
(
kom-tell-recover
"Trycker 'r'. Suck."
)
(
kom-tell-wait
"V\344ntar."
)
(
kom-tell-regret
"\305ngrar sig och sl\344nger inl\344gget."
)
(
kom-tell-review
"\305terser."
)
(
kom-tell-change-name
"Ändrar sitt namn till n\345got annat.
"
)
(
kom-tell-change-supervisor
"Ändrar organisat\366r f\366r n\345got.
"
)
(
kom-tell-next-lyskom
"Hoppar till ett annat LysKOM."
)
(
kom-tell-silence
)
(
kom-tell-send
)
(
kom-tell-login
)
(
kom-tell-read
)
(
kom-tell-1st-pres
)
(
kom-tell-write-comment
)
(
kom-tell-write-footnote
)
(
kom-tell-write-letter
)
(
kom-tell-write-reply
)
(
kom-tell-write-text
)
(
kom-tell-conf-pres
)
(
kom-tell-recover
)
(
kom-tell-wait
)
(
kom-tell-regret
)
(
kom-tell-review
)
(
kom-tell-change-name
)
(
kom-tell-change-supervisor
)
(
kom-tell-next-lyskom
)
)
"The variable kom-tell-phrases defaults to this value.
Users must not change this constant, but are encouraged to change
"Users must not change this constant, but are encouraged to change
the value of kom-tell-phrases for fun."
)
;;; ================================================================
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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