Commit b3baaa29 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

New command: kom-add-copy.

parent 74e7f6ae
No preview for this file type
......@@ -1693,6 +1693,15 @@ the user has used a prefix command argument."
(lyskom-get-string 'text-to-add-recipient)
t))
(defun kom-add-copy (text-no-arg)
"Add a recipient to a text. If the argument TEXT-NO-ARG is non-nil,
the user has used a prefix command argument."
(interactive "P")
(lyskom-start-of-command 'kom-add-copy)
(lyskom-add-sub-recipient text-no-arg
(lyskom-get-string 'text-to-add-copy)
'copy))
(defun kom-sub-recipient (text-no-arg)
"Subtract a recipient from a text. If the argument TEXT-NO-ARG is non-nil,
......@@ -1716,9 +1725,11 @@ DO-ADD: NIL if a recipient should be subtracted.
(setq text-no (lyskom-read-number prompt text-no))
(lyskom-completing-read-conf-stat
'main 'lyskom-add-sub-recipient-2
(if do-add
(lyskom-get-string 'who-to-add-q)
(lyskom-get-string 'who-to-sub-q))
(cond
((eq do-add 'copy)
(lyskom-get-string 'who-to-add-copy-q))
(do-add (lyskom-get-string 'who-to-add-q))
(t (lyskom-get-string 'who-to-sub-q)))
nil nil "" text-no do-add)))
......@@ -1726,12 +1737,16 @@ DO-ADD: NIL if a recipient should be subtracted.
"Tell what we do and do the call to the server."
(if do-add
(progn
(lyskom-format-insert 'adding-name-as-recipient
(lyskom-format-insert (if (eq do-add 'copy)
'adding-name-as-copy
'adding-name-as-recipient)
(conf-stat->name conf-stat)
text-no)
(initiate-add-recipient
'main 'lyskom-handle-command-answer
text-no (conf-stat->conf-no conf-stat) 'recpt))
text-no (conf-stat->conf-no conf-stat) (if (eq do-add 'copy)
'cc-recpt
'recpt)))
(lyskom-format-insert 'remove-name-as-recipient
(conf-stat->name conf-stat)
text-no)
......
......@@ -260,6 +260,7 @@ Lyskom-sessionen
(from-machine . "Kr frn")
(is-doing . "Gr")
(text-to-add-recipient . "Vilket inlgg vill du addera mottagare till")
(text-to-add-copy . "Vilket inlgg vill du addera en extra kopia till")
(text-to-delete-recipient . "Vilket inlgg vill du subtrahera mottagare frn")
(text-to-add-comment-to . "Vilket inlgg vill du addera en kommentar till")
(text-to-delete-comment-from . "Vilket inlgg vill du subtrahera en kommentar frn")
......@@ -295,9 +296,11 @@ Lyskom-sessionen
(time-is . "Klockan r %4#1d-%02#2d-%02#3d %02#4d:%02#5d:%02#6d %#7s(enligt servern).\n")
(total-users . " Sammanlagt %#1d anvndare.\n")
(who-to-add-q . "Vilket mte/person vill du addera som mottagare? ")
(who-to-add-copy-q . "Vilket mte/person vill du addera som kopiemottagare? ")
(who-to-sub-q . "Vilket mte/person vill du subtrahera som mottagare? ")
(adding-name-as-recipient . "Adderar %#1s som mottagare till text %#2d...")
(adding-name-as-copy . "Adderar %#1s som kopiemottagare till text %#2d...")
(remove-name-as-recipient .
"Subtraherar %#1s som mottagare frn text %#2d...")
(text-to-add-q . "Vilket inlgg vill du addera som kommentar? ")
......@@ -692,6 +695,7 @@ Felmeddelande: %#1s**************************************************")
(kom-review-marked-texts "terse markerade")
(kom-review-all-marked-texts "terse alla markerade")
(kom-add-recipient "Addera mottagare")
(kom-add-copy "Addera extra kopiemottagare")
(kom-sub-recipient "Subtrahera mottagare")
(kom-add-comment "Addera kommentar")
(kom-sub-comment "Subtrahera kommentar")
......
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