Commit eca18bfb authored by David Byers's avatar David Byers
Browse files

Option to not list read FAQs in person status.

Moved binding of a to x in swedish bindings.
parent 607d8bbd
2002-04-20 David Byers <david.byers@swipnet.se>
Move binding of 'a' to 'x' in the swedish keymaps:
* commands2.el (kom-obsolete-extended-command-binding): New
command. Note that this command is temporary and will only ever be
used in the Swedish version and doesn't do any LysKOM-ish stuff,
so we don't have to use def-kom-command or be able to deal with
multiple languages.
* swedish-strings.el (lyskom-sv-mode-map): Change binding of
kom-extended-command from a to x. Bind a to
kom-obsolete-extended-command-binding.
People were annoyed that all read FAQs were shown in status
person:
* aux-items.el (lyskom-print-elisp-client-read-faq): Only print
read FAQs when kom-extended-status-information is set.
* vars.el.in (kom-extended-status-information): New variable.
2002-04-20 Per Cederqvist <ceder@ceder.dyndns.org>
* commands1.el (lyskom-comment-recipients): Removed a stray "x"
......
......@@ -662,13 +662,14 @@ return non-nil if the item is to be included in the list."
(lyskom-aux-item-terminating-button item obj))))
(defun lyskom-print-elisp-client-read-faq (item &optional obj)
(when (string-match "^\\([0-9]+\\) \\([0-9]+\\)" (aux-item->data item))
(let ((conf-no (string-to-int (match-string 1 (aux-item->data item))))
(text-no (string-to-int (match-string 2 (aux-item->data item)))))
(lyskom-format-insert 'status-read-faq-aux-item
conf-no
text-no
(lyskom-aux-item-terminating-button item obj)))))
(when kom-extended-status-information
(when (string-match "^\\([0-9]+\\) \\([0-9]+\\)" (aux-item->data item))
(let ((conf-no (string-to-int (match-string 1 (aux-item->data item))))
(text-no (string-to-int (match-string 2 (aux-item->data item)))))
(lyskom-format-insert 'status-read-faq-aux-item
conf-no
text-no
(lyskom-aux-item-terminating-button item obj))))))
(defun lyskom-print-elisp-client-rejected-invitation (item &optional obj)
(when (string-match "^\\([0-9]+\\)" (aux-item->data item))
......
......@@ -2760,3 +2760,22 @@ to the first text that NEW is a comment or footnote to."
(lyskom-report-command-answer (blocking-do 'modify-server-info
nil
(list aux-item)))))
;;; ================================================================
;;; Temporary function for when we moved kom-extended-command from a
;;; to x.
(defun kom-obsolete-extended-command-binding ()
"Temporary function for when we moved kom-extended-command from a"
(interactive)
(lyskom-insert-before-prompt "\
----------------------------------------------------------------
Tangenten fr inmatning av kommandon har flyttat frn a till x.
Anvnd x istllet fr a om du vill ange LysKOM-kommandon vid
namn. Fr att undvika att du kr onskade LysKOM-kommandon s
mste du trycka p enter fr att fortstta.
----------------------------------------------------------------
")
(read-from-minibuffer "Tryck return eller enter fr att g vidare: "))
......@@ -1657,7 +1657,7 @@ You must become an active member of the conference to enter it.\n")
(lyskom-prioritize-flag-clear-action . "Clear")
(server-status-header . "Status for LysKOM-server %#1s%#2?b%[ (%#2s:%#3d)%]%[%]\n\n")
(server-status-server . "Canonical server name: %#1s%#2?b%[:%#2s%]%[%]")
(server-status-server . "Canonical server name: %#1s%#2?b%[:%#2s%]%[%]\n")
(server-status-version . "Software version: %#1s %#2s\n")
(server-status-protocol . "Protocol version: %15#1d\n")
(server-status-sessions . "\
......@@ -3437,6 +3437,9 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-auto-list-faqs-doc . "\
If this is turned on, new FAQs will be listed automatically when you
log on or go to a conference with a new FAQ.")
(kom-extended-status-information-doc . "\
When this is on, additional information may be shown by commands that
display person, conference and server status.")
;;
......@@ -3605,6 +3608,7 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-review-marks-texts-as-read-tag . "Review commands mark texts as read:")
(kom-auto-review-faqs-tag . "Review new FAQs automatically:")
(kom-auto-list-faqs-tag . "List new FAQs automatically:")
(kom-extended-status-information-tag . "Extended status information:")
)
)
......
......@@ -67,6 +67,7 @@
[kom-print-relative-dates]
[kom-print-seconds-in-time-strings]
"\n"
[kom-extended-status-information]
[kom-auto-list-faqs]
[kom-auto-review-faqs]
"\n"
......@@ -695,6 +696,7 @@ customize buffer but do not save them to the server."
:tag name) :indent 4))
(kom-print-relative-dates (toggle (yes no)))
(kom-print-seconds-in-time-strings (toggle (yes no)))
(kom-extended-status-information (toggle (yes no)))
))
(defvar lyskom-widget-functions
......
......@@ -1657,7 +1657,7 @@ Du m
(lyskom-prioritize-flag-clear-action . "Stng av")
(server-status-header . "Status fr LysKOM-server %#1s%#2?b%[ (%#2s:%#3d)%]%[%]\n\n")
(server-status-server . "Kanonisk server: %#1s%#2?b%[:%#2s%]%[%]")
(server-status-server . "Kanonisk server: %#1s%#2?b%[:%#2s%]%[%]\n")
(server-status-version . "Programversion: %#1s %#2s\n")
(server-status-protocol . "Protokollversion: %15#1d\n")
(server-status-sessions . "\
......@@ -2558,7 +2558,8 @@ Visar vilka som f
(define-key lyskom-sv-mode-map (kbd "e") 'kom-set-unread)
(define-key lyskom-sv-mode-map (kbd "a") 'kom-extended-command)
(define-key lyskom-sv-mode-map (kbd "a") 'kom-obsolete-extended-command-binding)
(define-key lyskom-sv-mode-map (kbd "x") 'kom-extended-command)
(define-key lyskom-sv-mode-map (kbd "<SPC>") 'kom-next-command)
(define-key lyskom-sv-mode-map (kbd "<RET>") 'kom-line-next-command)
(define-key lyskom-sv-mode-map (kbd "<LFD>") 'kom-page-next-command)
......@@ -3886,6 +3887,10 @@ i servern. Annars sparas det i din .emacs.")
(kom-auto-list-faqs-doc . "\
Om detta r pslaget s kommer olsta FAQer att listas automatiskt nr
du loggar in eller gr till ett mte med en olst FAQ.")
(kom-extended-status-information-doc . "\
Om detta r pslaget so visas extra statusinformation i kommandona
Status (fr) person, Status (fr) mte och Status (fr) servern
(om sdan information finns tillgnglig).")
;;
......@@ -3895,7 +3900,7 @@ i servern. Annars sparas det i din .emacs.")
(kom-ansaphone-replies-tag . "Detaljerade automatsvar")
(kom-bury-buffers-tag . "Begrav buffertar nr man byter LysKOM:")
(kom-personal-messages-in-window-tag . "Personliga meddelanden: ")
(kom-personal-messages-in-window-tag . "Personliga meddelanden: ")
(kom-customize-in-window-tag . "Instllningar fr LysKOM: ")
(kom-write-texts-in-window-tag . "Skriv inlgg: ")
(kom-prioritize-in-window-tag . "Prioritera mten: ")
......@@ -4054,6 +4059,7 @@ i servern. Annars sparas det i din .emacs.")
(kom-review-marks-texts-as-read-tag . "tersekommandon lsmarkerar visade texter:")
(kom-auto-review-faqs-tag . "Visa nya FAQer automatiskt:")
(kom-auto-list-faqs-tag . "Lista nya FAQer automatiskt:")
(kom-extended-status-information-tag . "Utkad statusinformation:")
)
)
......
......@@ -101,6 +101,13 @@ are in the list.")
;;; User flags
(def-kom-var kom-extended-status-information t
"*If t, list extended status information for all objects in LysKOM.
Extended status information include such information as read FAQs.
Values other than t or nil are reserved for future extensions."
server
)
(def-kom-var kom-auto-list-faqs t
"*If non-nil, list unread FAQs when entering a conference or logging
on to the server."
......
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