Option to not list read FAQs in person status.

Moved binding of a to x in swedish bindings.

src/ChangeLog

+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"

src/aux-items.el

@@ -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))

src/commands2.el

@@ -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: "))

src/english-strings.el

@@ -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:")
     )
 )
 

src/option-edit.el

@@ -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 

src/swedish-strings.el

@@ -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:")
     )
 )
 

src/vars.el.in

@@ -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."