Nya filer för dokumentationsdatabasen, lite upptadering i dokumentationen

doc/Makefile

@@ -23,6 +23,9 @@
 # Please mail bug reports to bug-lyskom@lysator.liu.se.
 #
 # $Log$
+# Revision 43.3  1996/08/14 13:49:16  byers
+# Nya filer för dokumentationsdatabasen, lite upptadering i dokumentationen
+#
 # Revision 43.2  1996/08/14 04:15:14  davidk
 # Bytte versionsnummer till 0.43.
 #
@@ -103,6 +106,12 @@ elisp-client.dvi: $(INDEXES)
 	@echo pass 3
 	tex elisp-client.texinfo
 
+lyskom-variables.data: lyskom-commands.data
+
+lyskom-commands.data: ../src/lyskom.el
+	emacs -batch -l makedoc.el -f lyskom-update-documentation
+
+
 .PHONY: install
 install: elisp-client elisp-client.txt
 	cp elisp-client elisp-client-? $(INFODIR)

doc/NEWS-0.43

@@ -17,6 +17,21 @@ nu finns under namnet NEWS-0.43.
 ** Kommandoa "Flytta Text" kan användas för att flytta inlägg mellan
    möten.
 
+** Hooken lyskom-send-message-hook anropas precis innan personliga,
+   allmänna eller gruppmeddelanden sänds. Se dokumentationen för
+   hooken för en utförligare beskrivning av vad den kan göra. Per
+   default innehåller den lyskom-send-message-trim-newlines, som tar
+   bort tomrader i slutet av meddelandet och frågar om man verkligen
+   vill skicka tomma meddelanden.
+
+** Hooken lyskom-send-message-setup-hook anropas innan man börjar
+   skriva in ett meddelande när man gör "Sända meddelande", och
+   hooken lyskom-send-message-exit-hook anropas när man går ur
+   minibufferten. Det finns två funktioner,
+   lyskom-send-message-resize-minibuffer och
+   lyskom-send-message-auto-fill som kan vara intressanta att stoppa
+   in i den förstnämnda hooken.
+
 ** Om servern är lyskomd version 1.9 eller senare så använder klienten
    nya anrop för att hämta information om inloggade sessioner. Detta
    innebär att man kan se osynliga sessioner om man vill och att
@@ -48,17 +63,23 @@ nu finns under namnet NEWS-0.43.
 
 ** M-e binds inte längre av elispklienten.
 
-** Hanteringen av prompten fungerar bättre.
+** Hanteringen av prompten fungerar bättre, men inte perfekt.
 
-** Den försöker inte göra (recenter -1) i fel buffert.
+** Vid läsning av namn från minibufferten så skall inte texten raderas
+   om man anger ett namn som inte finns.
 
-** Klienten försöker inte lägga till Anonym peson som mottagare till
-   inlägg.
+** Klienten försöker inte göra (recenter -1) i fel buffert.
 
+** Klienten försöker inte lägga till Anonym person som mottagare till
+   inlägg.
 
 
 * Välkända buggar som inte behöver rapporteras igen (och igen (och igen))
 
+** Prompten försvinner om man skickar in ett inlägg och hinner trycka
+   space innan man får meddelande om att den nya texten har skapats.
+   Denna bug kommer nog att fixas såsmåningom.
+
 ** Man kan inte filtrera anonyma inlägg eller inlägg av personer som
    inte längre existerar. Den här buggen har låg prioritet.
 
@@ -72,4 +93,8 @@ nu finns under namnet NEWS-0.43.
    spara den nya prioriteringen. Denna bug kommer nog att fixas på
    något vis såsmåningom. 
 
-
+** Elispklienten fungerar inte under XEmacs eller Emacs 18. Frivilliga
+   att anpassa klienten får gärna anmäla sitt intresse till
+   davidk@lysator.liu.se eller byers@lysator.liu.se eller skicka brev
+   till Elispklientutvecklarnas interna möte i LysKOM på
+   kom.lysator.liu.se

doc/docpatch.el

+(defconst lyskom-doc-filename "elisp-client")
+
+(defvar lyskom-fn-doc nil)
+(defvar lyskom-var-doc nil)
+
+(defun lyskom-doc-patch ()
+  (setq lyskom-fn-doc (lyskom-doc-load-db "lyskom-commands.data"))
+  (setq lyskom-var-doc (lyskom-doc-load-db "lyskom-variables.data"))
+  (find-file (concat lyskom-doc-filename ".in")
+  (lyskom-doc-patch-fn)
+  (lyskom-doc-patch-var)
+  (write-file (concat lyskom-doc-filename ".texinfo"))
+)
+
+
+(defun lyskom-doc-patch-fn ()
+  (lyskom-doc-patch-any "^%@c\\s-*\\(\\S-*\\)\\s-*$"
+                        lyskom-fn-doc
+                        'lyskom-format-fn))
+
+(defun lyskom-doc-patch-var ()
+  (lyskom-doc-patch-any "^%@v\\s-*\\(\\S-*\\)\\s-*$"
+                        lyskom-var-doc
+                        'lyskom-format-var))
+
+(defun lyskom-doc-patch-any (regexp doclist format-fn)
+  (let ((pos 0)
+        (doc nil))
+    (goto-char (point-min))
+    (while (setq pos (re-search-forward regexp nil t))
+      (goto-char pos)
+      (setq doc (assoc (match-string 1) doclist))
+      (if (null doc)
+          (progn
+            (message "Unknown key %S near line %d"
+                     (match-string 0)
+                     (count-lines (point-min) pos))
+            (sit-for 2))
+        (delete-region (match-beginning 0) (match-end 0))
+        (insert (apply format-fn doc))))))
+
+(defun lyskom-doc-symbol (string alist)
+  (condition-case arg
+      (or (cdr (assq (car-safe (read-from-string string))
+                     alist))
+          "")
+      (error "")))
+
+
+(defun lyskom-format-var (var-name 
+                          value-range
+                          default-value
+                          is-server-variable
+                          is-user-variable
+                          xref
+                          doc-string)
+  (format "\n@item @code{%s}\n@vindex %s\n@itemx @code{%s}%s\n\n%s\n"
+          var-name
+          var-name
+          default-value
+          (lyskom-doc-symbol is-server-variable '((t . " (sparas i servern)")
+                                                  (nil . "")))
+          (replace-in-string doc-string "" "\n")))
+
+
+(defun lyskom-doc-transform-key-list (keybindings)
+  (if (string-match "^\\s-*$" keybindings)
+      ""
+    (let ((kb-result "")
+          (ki-result "")
+          (start 0))
+
+      (while (string-match "\\s-*\\([^,]+\\)\\(,\\|$\\)" keybindings 
+                           start)
+        (setq kb-result
+              (concat kb-result
+                      (format "@kbd{%s}%s"
+                              (match-string 1 keybindings)
+                              (if (eq (match-end 0) (length keybindings))
+                                  "\n" ", ")))
+              ki-result
+              (concat ki-result
+                      (format "@kindex %s\n"
+                              (match-string 1 keybindings))))
+        (setq start (match-end 0)))
+      (concat kb-result ki-result))))
+
+(defun lyskom-format-fn (symbol
+                         name
+                         keybindings
+                         variable-refs
+                         command-refs
+                         doc-string)
+  (format "%s@item @code{%s}\n@findex{%s}\n%s\n"
+          (lyskom-doc-transform-key-list keybindings)
+          name
+          name
+          (replace-in-string doc-string "" "\n")
+  ))
+    
+
+
+
+(defun lyskom-bol ()
+  (save-excursion (beginning-of-line) (point)))
+
+(defun lyskom-eol ()
+  (save-excursion (end-of-line) (point)))
+
+(defun lyskom-doc-load-db (file)
+  (find-file file)
+  (goto-char (point-min))
+  (let ((result nil)
+        (lineno 0)
+        (string nil)
+        (tmp nil)
+        (start 0)
+        (maxline (count-lines (point-min) (point-max))))
+    (while (< lineno maxline)
+      (setq lineno (1+ lineno))
+      (goto-line lineno)
+      (setq string (buffer-substring (lyskom-bol) (lyskom-eol)))
+      (setq start 0 
+            tmp nil)
+      (while (and 
+              (< start (length string))
+              (eq start (string-match "\\(^\\|\t\\)\\([^\t]*\\)\\(\t\\|$\\)" 
+                                          string 
+                                          start)))
+        (setq start (match-end 2))
+        (setq tmp (cons (match-string 2 string) tmp)))
+      (setq result (cons (nreverse tmp) result)))
+    result))
+
+
+(defun replace-in-string (string from to)
+  (let ((i 0))
+    (if (stringp from)
+	(setq from (aref from 0)))
+    (if (stringp to)
+	(setq to (aref to 0)))
+    (while (< i (length string))
+      (if (= (aref string i) from)
+	  (aset string i to))
+      (setq i (1+ i)))
+    string))
+

doc/elisp-client.texinfo

@@ -48,17 +48,17 @@ $Id$
 @end iftex
 
 @titlepage
-@title Användarhandledning för LysKOMs emacslispklient
+@title LysKOM Elispklient: Användarhandledning
 @subtitle En LysKOM-klient för GNU Emacs.
 
-@author Linus Tolke @file{linus@@lysator.liu.se}
-@author Per Cederqvist @file{ceder@@lysator.liu.se}
-@author Inge Wallin @file{ingwa@@isy.liu.se} eller @file{inge@@lysator.liu.se}
-@author David Byers @file{byers@@lysator.liu.se}
-@author David Kågedal @file{davidk@@lysator.liu.se}
+@author Linus Tolke
+@author Per Cederqvist
+@author Inge Wallin
+@author David Byers
+@author David Kågedal
 
 @page
-Copyright @copyright{} 1991,1992,1993,1994 Lysator
+Copyright @copyright{} 1991,1992,1993,1994,1995,1996 Lysator
 
 This file is part of the LysKOM server.
 
@@ -90,17 +90,17 @@ Lysator vid Link
 
 Den som för tillfället arbetar mest med LysKOMs emacslispklient är:
 
-David Byers --- @file{byers@@lysator.liu.se} @*
-David Kågedal --- @samp{davidk@@lysator.liu.se}
+David Byers --- @code{<byers@@lysator.liu.se>} @*
+David Kågedal --- @code{<davidk@@lysator.liu.se>}
 
 Andra mer eller mindre aktiva personer är:
 
-Linus Tolke --- @file{linus@@lysator.liu.se} @*
-Per Cederqvist --- @file{ceder@@lysator.liu.se} @*
-Inge Wallin --- @file{ingwa@@isy.liu.se} eller @file{inge@@lysator.liu.se} @*
-Thomas Bellman --- @file{bellman@@lysator.liu.se} @*
-Lars Aronsson --- @file{aronsson@@lysator.liu.se} @*
-Lars Willför --- @file{willfor@@lysator.liu.se}
+Linus Tolke @code{<linus@@lysator.liu.se>} @*
+Per Cederqvist @code{<ceder@@lysator.liu.se>} @*
+Inge Wallin @code{<inge@@lysator.liu.se>} @*
+Thomas Bellman @code{<bellman@@lysator.liu.se>} @*
+Lars Aronsson @code{<aronsson@@lysator.liu.se>} @*
+Lars Willför @code{<willfor@@lysator.liu.se>}
 @end titlepage
 
 

doc/lyskom-commands

+;;
+;; Open this file using forms-find-file!
+;;
+
+(setq forms-file "lyskom-commands.data")
+(setq forms-read-only nil)
+(setq forms-number-of-fields 6)
+
+(make-face 'lyskom-db-rw)
+(make-face 'lyskom-db-ro)
+(copy-face 'default 'lyskom-db-rw)
+(copy-face 'default 'lyskom-db-ro)
+(make-face-bold 'lyskom-db-ro)
+
+(setq forms-rw-face 'lyskom-db-rw)
+(setq forms-ro-face 'lyskom-db-ro)
+(setq forms--rw-face 'lyskom-db-rw)
+(setq forms--ro-face 'lyskom-db-ro)
+
+(setq forms-format-list
+    '(
+    "====== LysKOM Command Documentation Database ======\n"
+    "\nFunktionsnamn:     " 1
+    "\nKommandonamn:      " 2
+    "\nTangentbindningar: " 3
+
+    "\n\nRelaterade variabler:\n" 4
+    "\nRelaterade kommandon:\n" 5
+    "\n\nDokumentation:\n\n" 6))
+
+

doc/lyskom-commands.data

+kom-status-session	Status (för) session	s s		kom-who-am-i	Visar information om en given session i LysKOM. Frågar eftersessionsnummer eller användarnamn att titta på. Kommandot visarsessionsnummer, vem som är inloggad, vad personen gör i vilket möte,vilken klient personen kör och från vilken dator, samt hur längesessionen har varit uppkopplad och hur länge den har varit inaktiv(förutsatt att servern klarar anropen som krävs).
+kom-remote-quit	Fjärrkontrollera avsluta		kom-remote-controllerskom-remote-control	kom-force-logout	Frågar efter en session att avsluta. För att kunna fjärrkontrollera ensession krävs det att sessionen har fjärrkontrollen påslagen (genomatt @ref{kom-remote-control} är på och att den person som försäkerfjärrkontrollera står med i @ref{kom-remote-controllers}.
+kom-remote-erase-messages	Fjärrkontrollera radera meddelanden		kom-remote-controlkom-remote-controllers		Raderar inspelade meddelanden i en annan session. För att genomföra kommandot krävs att villkoren för fjärrkontrollering är uppfyllda.
+kom-remote-list-messages	Fjärrkontrollera lista meddelanden		kom-remote-controlkom-remote-controllers		Listar inspelade meddelanden i en annan session. För att utföra kommandotkrävs att alla villkor för att få genomföra fjärrkontroll är uppfyllda.
+kom-remote-set-message	Fjärrkontrollera ändra svarsmeddelande		kom-remote-controlkom-remote-controllers		
+kom-remote-autoreply	Fjärrkontrollera automatsvar		kom-remote-controlkom-remote-controllers		
+kom-erase-messages	Radera meddelanden		kom-ansaphone-record-messages	kom-toggle-auto-replykom-list-messages	Raderar alla meddelanden som har spelats in av automatsvararen.
+kom-list-messages	Lista meddelanden		kom-ansaphone-record-messages	kom-toggle-auto-replykom-erase-messages	Visar alla meddelanden som automatsvararen har spelat in. 
+kom-toggle-auto-reply	Automatsvar			kom-change-auto-replykom-list-messageskom-erase-messages	Slår på eller av automatsvar i LysKOM-bufferten, beroende på om det varav eller på innan.
+kom-change-auto-reply	Ändra svarsmeddelande	ä m		kom-toggle-auto-reply	Byter meddelande som automatsvararen skickar som svar på personliga meddelanden. Kommandot frågar efter nytt meddelande i minibufferten.
+kom-change-conf-type	Ändra mötestyp			kom-set-permitted-submitters	Detta kommando ändrar mötestyp för ett visst möte. Ett möte kan varaöppet, slutet eller hemligt. Dessutom får man ange om mötet skall varaett originalmöte, dvs om det är tillåtet att skriva kommentarer imötet och om anonyma inlägg är tillåtna.
+kom-show-user-area	Visa user-arean			kom-save-options	Detta kommando är mest till för de som utvecklar elisp-klienten. Detskriver ut innehållet i din user-area, det vill säga det inlägg sominnehåller värdet på de variabler som sparas i servern.
+kom-list-filters	Lista filter	l f			Visar vilka filter som är aktiva för tillfället genom att skriva ut demi LysKOM-bufferten.
+kom-filter-edit	Ändra filter	ä f			Poppar upp en ny buffert som listar alla filter. I den här bufferten harman tillgång till speciella kommandon för att ändra, ta bort och läggatill nya filter. De kommandon som finns är:@table @asis@item @kbd{n, C-n}Flytta markören till nästa rad i listan.@item @kbd{p, C-p}Flytta markören till föregående rad i listan.@item @kbd{N, M-n}Flytta markören till nästa filter i listan.@item @kbd{P, M-p}Flytta markören till föregående filter i listan.@item @kbd{>, M->}Flytta markören till slutet av sista filtret i listan.@item @kbd{<, M-<}Flytta markören till första raden av första filtret i listan.@item @kbd{d, C-d}Radera den rad markören står på.@item @kbd{D, M-d}Radera det filter markören står i.@item @kbd{i, I}Lägg till en rad i ett filter. Frågar efter filterfunktion.@item @kbd{M-i}Lägg till ett filter. Frågar efter filtertyp och tidsbegränsning.@item @kbd{a}Byt filtertyp. Kommandot växlar mellan alla tillgängliga alternativ.@item @kbd{t}Byt tidsbegränsning (bara mellan permanent och tillfällig).@item @kbd{s}Spara filterlistan.@item @kbd{q}Avsluta.@end table
+kom-super-jump	Superhoppa	H			Skapa ett filter som hoppar över alla texter i det aktuella mötet medsamma ärenderad som den senast lästa texten. Detta kommando är bra omman vill hoppa över alla grenar i en gammal diskussion.
+kom-filter-text	Filtrera innehåll	f i			Lägger till ett filter som tar bort alla inlägg som innehåller en visstext. Frågar efter text, möte och typ av filtrering.
+kom-filter-subject	Filtrera ärende	f ä			Lägger till ett filter som tar bort alla inlägg med en vissärenderad. Frågar efter ärende, möte och typ av filtrering.
+kom-filter-author	Filtrera författare	f f			Lägger till ett filter som tar bort alla inlägg av en vissperson. Frågar efter författare, möte och typ av filtrering.
+kom-get-file	Ladda ner fil			kom-put-filekom-list-files	Laddar ned en fil från en FTP-server. Detta kommando är inte användbart.
+kom-put-file	Ladda upp fil			kom-get-filekom-list-files	Sparar en fil på en FTP-server. Detta kommando är inte användbart.
+kom-list-files	Lista filarean			kom-get-filekom-put-file	Listar vilka filer som finns på en FTP-server. Detta kommando är inte användbart. 
+kom-force-logout	Kasta ut en session			kom-remote-quit	Du kan slänga ut en session som har hängt sig eller som duglömt på någon annan maskin. Du kan bara slänga ut sessioner där personer som du är organisatör för ärinloggade om du inte är i administratörsmod.
+kom-remove-motd	Ta bort loginmeddelande			kom-set-motd	Tar bortloginmeddelandet. Notera att under lyskomd 1.8 och tidigare såsparas inte aktuellt loginmeddelande, utan måste ställas om i serverns konfigurationsfil.
+kom-set-motd	Sätt loginmeddelande			kom-remove-motd	Ändrar loginmeddelandet. Notera att under lyskomd 1.8 och tidigare så sparasinte aktuellt loginmeddelande, utan måste ändras i serverns konfigurationsfiler för att få permanent effekt.
+kom-disable-adm-caps	Övergå till normalmod			kom-enable-adm-caps	När man inte längre vill köra i administratörsmod kanman slå av det med detta kommandot. Det hindrar dig att av misstag läsa inlägg som du inte får läsa mm.
+kom-enable-adm-caps	Övergå till administratörsmod			kom-disable-adm-caps	För att kunna utnyttja kommandona i detta avsnitt måste manförst övergå i administratörsmod, vilket sker med dettakommando. Dessutom måste du ha administrativa rättigheter i databasen, för att kommandona skall fungera.
+kom-sync-database	Spara databasen			kom-enable-adm-caps	Sparas serverns databas till disk. Detta är sällan ett användbartkommando, och det kan ta lång tid att köra. Kommantod är enbarttillgängligt i administratörsmod, och fungerar inte på versionerav lyskomd tidigare än 1.9.0.
+kom-shutdown-server	Stäng av servern			kom-sync-database	Sparar databasen och stänger av servern. Ofta finns det program somautomatiskt startar om servern igen.
+kom-save-options	Spara variabler			kom-edit-options	Sparar alla variabler som skall sparas i databasen. Detta kommandoär lämpligt att använda om man har ändrat variabler med något annatkommando är Ändra variabler.
+kom-edit-options	Ändra variabler			kom-save-options	Poppar upp en ny buffert som listar dina nuvarnade inställningar.Denna nya buffert har @code{edit-options} moden och ser dessutom likadan ut förutom det faktum att den bara innehåller devariabler som är av intresse för LysKOM.(@inforef{Edit Options,ändringsmode,emacs}.)Alla kommandon funkar precis som i @code{edit-options} moden och de viktigaste är:@table @asis@item @kbd{0}Sätt värdet till @code{nil}@item @kbd{1}Sätt värdet till @code{t}@item @kbd{s}Fråga efter värdet och sätt variabeln till det.@item @kbd{n}Gå till nästa variabel.@item @kbd{p}Gå till föregående variabel.@end tableNär du är nöjd med dina inställningar och vill skicka in demtill LysKOM så trycker du @kbd{C-c C-c}.Om du ångrar dig och inte vill skicka in några värden tillLysKOM så trycker du @kbd{C-c C-k}.Noteras bör att om du ändrar LysKOM-variabler på något annatsätt i din emacs än med kommandona beskrivna ovan så kommer detaktuella värdet att visas i bufferten och sparas.Om du däremot ändrar värdena i din emacs utan att efter det skickain värdena (med @kbd{C-c C-c} i denna bufferten) så kommerinställningarna  du gjort inte att sparas i LysKOM utan går förlorade.@end table
+kom-save-text	Spara text (på fil)	s t			Spara det senast lästa inlägget på fil. Frågar efter filnamn.Om man anger ett prefixargument sparas de sista @code{n} inläggen.
+kom-unset-conf-motd	Ta bort lapp på dörren			kom-change-conf-motd	Frågar efter möte eller person och tar bort lappen på dörren förpersonen/mötet i fråga.
+kom-set-permitted-submitters	Ändra tillåtna författare			kom-change-conf-type	Ändrar vilka som får skriva inlägg i ett möte. Frågar efter möte ochefter vilka som är tillåtna författare.
+kom-set-super-conf	Ändra supermöte				Frågar efter vilket möte vi skall ändra supermöte församt vilket möte som skall vara det nya supermötet.
+kom-set-garb-nice	Ändra livslängd				Frågar först efter det möte som du vill ändra inläggens livslängdi och sedan efter vilken den nya livslängden skall vara. Om duinte är organisatör för mötet så få du inte sätta en ny livslängdoch då får du ett felmeddelande.
+kom-change-conf-motd	Sätt lapp på dörren				Frågar efter möte eller person som du vill sätta en lapp på för.Lapp på dörren betyder att en person som försöker skicka brev tillpersonen/mötet får ett meddelande innan brevet sänds iväg. Dettakan t ex vara användbart när man reser bort och vill lämna entemporär adress. Man får också se lappen när man använderkommandot @code{Status person} på personen.
+kom-sub-member	Uteslut medlem			kom-add-member	Frågar efter person som skall uteslutas samt vilket möte sompersonen skall uteslutas ifrån. Detta kommando kan t ex användasav organisatören för ett möte när han vill utesluta någon frånmötet.
+kom-add-member	Addera medlem			kom-sub-member	Frågar efter person som skall adderas samt till vilket möte.Detta kommando måste användas för att addera medlemmar till ettslutet möte och det är bara organisatören för det mötet som kananvända det. Det kan också användas för att addera medlemmar tillen brevlåda, dvs en person, om man vill att någon annan skallkunna läsa dennes post. Ett exempel är om man vill skapa enbrevgrupp där flera personer kan läsa posten som kommer tillgruppen. 
+kom-sub-comment	Subtrahera kommentar			kom-add-commentkom-write-footnotekom-write-comment	Frågar efter två inläggsnummer. Om det första inlägget, som haraktuellt inlägg som default, är kommenterad av det andra inläggetkommer denna bindning att plockas bort.
+kom-add-comment	Addera kommentar			kom-sub-commentkom-write-commentkom-write-footnote	Frågar efter två inläggsnummer. Det första inlägget kommer attkommenteras av det andra. Default för det kommenterade inläggetär senaste refererade inläggen.
+kom-move-text	Flytta inlägg	f t		kom-add-recipientkom-sub-recipitne	Frågar efter ett inlägg som skall flyttas, vilken mottagare det skall flyttas från och vilken mottagare det skall flyttas till. Kommandot ärungefär ekvivalent med att först addera och sedan subtrahera mottagare.
+kom-sub-recipient	Subtrahera mottagare			kom-add-recipientkom-move-text	Frågar efter inläggsnummer och namnet på ett möte eller en person.Inlägget får då inte längre angivet möte eller person som mottagare.Defaultvärdet för i inläggsnumret är senast lästa inlägg och defaultvärdetför mötet/personen är det möte som vi står i just nu.
+kom-add-copy	Addera extra kopiemottagare			kom-add-recipientkom-sub-recipient	Samma som Addera mottagare men adderar en mottagare av typen extrakopiemottagare istället. Defaultvärdet för inläggsnumret är senast lästainlägg och defaultvärdet för mötet är den senast adderade extrakopiemottagaren.Du får bara addera möten som du får lov att skriva inlägg i.
+kom-add-recipient	Addera mottagare			kom-sub-recipientkom-move-text	Frågar efter inläggsnummer och namnet på ett möte eller en person.Defaultvärdet för inläggsnumret är senast lästa inlägg och defaultvärdetför mötet är det senast adderade mötet.Du får bara addera möten som du får lov att skriva inlägg i.
+kom-review-all-marked-texts	Återse alla markerade	å a m		kom-mark-textkom-unmark-text	
+kom-review-marked-texts	Återse markerade	å m			
+kom-unmark-text	Avmarkera (inlägg)	A			
+kom-mark-text	Markera (inlägg)	M			
+kom-get-abuse	Få skäll	f s			
+kom-get-appreciation	Få uppmuntran	f u			
+kom-change-presentation	Ändra presentation	ä p			
+kom-change-supervisor	Ändra organisatör				
+kom-change-password	Ändra lösenord				
+kom-change-name	Ändra namn				
+kom-send-letter	Skicka brev	b			
+kom-write-text	Skriva ett inlägg	i			
+kom-set-unread	Endast läsa senaste	e			
+kom-private-answer-previous	Personligt svar på föregående inlägg	P			
+kom-private-answer	Personligt svar	p			
+kom-write-footnote	Fotnot till inlägg	F			
+kom-comment-previous	Kommentera föregående inlägg	K			
+kom-write-comment	Kommentera inlägget	k			
+kom-busy-wait	Vänta på ett inlägg	V			
+kom-list-clients	Lista klienter				
+kom-who-am-i	Var (är) jag	J			
+kom-who-is-on	Vilka är inloggade	v			
+kom-view-next-text	Läsa nästa inlägg				
+kom-review-backward	(Återse) Baklänges	B			
+kom-review-presentation	Återse presentation	å p			
+kom-review-stack	Återse lista	å l			
+kom-view-previous-commented-text	Återse det föregående kommenterade	å K			
+kom-view-commented-text	Återse det kommenterade	å k			
+kom-review-all	Återse alla	å A, å a SPC			
+kom-review-first	Återse första	å f			
+kom-review-by-to	Återse senaste	å s			
+kom-find-root	Återse urinlägget	å u, å r			
+kom-review-next	Återse nästa	å n			
+kom-review-noconversion	Återse omodifierat	å o			
+kom-review-last-normally-read	Återse igen	å i			
+kom-review-clear	Återse hoppa	å h			
+kom-review-tree	Återse alla kommentarer rekursivt	å a r			
+kom-review-comments	Återse alla kommentarer	å a k			
+kom-find-root-review	Återse träd	å t			
+kom-view	Återse inlägg	å SPC			
+kom-start-anew	Börja med nytt namn				
+kom-recover	Återstarta kom	R			
+kom-quit	Sluta	S, q			
+kom-sub-self	Utträda ur möte				
+kom-list-summary	Lista ärenden	l ä, l ä, l Ä, l ä			
+kom-add-self	Bli medlem i möte	m			
+kom-status-conf	Status (för) möte	s m			
+kom-status-person	Status (för) person	s p			
+kom-prioritize	Prioritera möten				
+kom-set-session-priority	Sätt läsnivå				
+kom-postpone	Uppskjuta läsning				
+kom-membership	Lista medlemsskap	l s			
+kom-list-re	Lista (med) regexpar	l r			
+kom-list-news	Lista nyheter	l n			
+kom-list-persons	Lista personer	l p			
+kom-list-conferences	Lista möten	l m			
+kom-jump	Hoppa över alla kommentarer	h			
+kom-go-to-next-conf	Gå till nästa möte	n m			
+kom-go-to-conf	Gå till möte	g			
+kom-display-time	Se tiden	t			
+kom-delete-text	Radera inlägg				
+kom-delete-conf	Utplåna				
+kom-create-conf	Skapa möte				
+kom-send-message	Sända meddelande				
+kom-quick-mode	Snabba kommandon				
+kom-slow-mode	Långsamma kommandon				
+describe-mode	Hjälp	?, C-h m, menu-bar help-menu describe-mode, C-h m, menu-bar help-menu describe-mode			

doc/lyskom-variables

+;;
+;; Open this file using forms-find-file!
+;;
+
+(setq forms-file "lyskom-variables.data")
+(setq forms-read-only nil)
+(setq forms-number-of-fields 7)
+
+(make-face 'lyskom-db-rw)
+(make-face 'lyskom-db-ro)
+(copy-face 'default 'lyskom-db-rw)
+(copy-face 'default 'lyskom-db-ro)
+(make-face-bold 'lyskom-db-ro)
+
+(setq forms-rw-face 'lyskom-db-rw)
+(setq forms-ro-face 'lyskom-db-ro)
+(setq forms--rw-face 'lyskom-db-rw)
+(setq forms--ro-face 'lyskom-db-ro)
+
+(setq forms-format-list
+    '(
+    "====== LysKOM Variable Documentation Database ======\n"
+    "\nFunktionsnamn:     " 1
+    "\nTilltna vrden:   " 2
+    "\nDefaultvrde:      " 3
+    "\nSparas i servern:  " 4
+    "\nAnvndarvariabel:  " 5
+
+    "\n\nRelaterade saker:\n" 6
+
+    "\n\nDokumentation:\n" 7))
+
+

doc/makedoc.el

+(defvar lyskom-doc-vardefs nil)
+
+(defvar lyskom-doc-keymaps
+  '(lyskom-mode-map lyskom-edit-mode-map))
+
+(fset 'tmpfn-1 (symbol-function 'defvar))
+
+(defun lyskom-doc-defvar (var val doc)
+  (setq lyskom-doc-vardefs (cons (list var val
+                                       (if (and doc
+                                                (string-match "^*" doc))
+                                           t
+                                         nil))
+                                 lyskom-doc-vardefs))
+  (set var val))
+
+
+(defmacro lyskom-doc-defvar-macro (var &optional val doc)
+  (list 'lyskom-doc-defvar (list 'quote var) val doc))
+
+
+(defun lyskom-update-documentation ()
+  (unwind-protect
+      (progn
+        (fset 'defvar 'lyskom-doc-defvar-macro)
+        (load-file "../src/lyskom.el"))
+    (fset 'defvar (symbol-function 'tmpfn-1)))
+  (find-file "lyskom-commands.data")
+  (lyskom-check-cmd-doc)
+  (find-file "lyskom-variables.data")
+  (lyskom-check-vbl-doc))
+
+
+(defun lyskom-check-vbl-doc ()
+  (let ((doc-list nil)
+        (new-list nil))
+    (setq doc-list (lyskom-check-doc-find-keys 0 'intern))
+    (mapcar (function
+             (lambda (x)
+               (if (not (memq (car x) doc-list))
+                   (setq new-list (cons (car x) new-list)))))
+            lyskom-doc-vardefs)
+    (if new-list
+        (progn
+          (mapcar 'lyskom-make-var-doc-outline new-list)
+          (save-buffer))
+      (message "No new variables to document"))
+  ))
+
+(defun lyskom-make-var-doc-outline (var)
+  (if (elt (assq var lyskom-doc-vardefs) 2)
+      (progn
+        (message "New variable: %s" var)
+        (insert
+         (concat
+          (symbol-name var)
+          "\t"
+          ;; Allowed values
+          "\t"
+           (replace-in-string 
+            (format "%S" (elt (assq var lyskom-doc-vardefs) 1))
+            "\n" "")
+          "\t"
+          (if (or (memq var lyskom-elisp-variables)
+                  (memq var lyskom-global-boolean-variables))
+              "t"
+            "nil")
+          "\t"
+          (if (elt (assq var lyskom-doc-vardefs) 2)
+              "t"
+            "nil")
+          "\t"
+          ;; Xref
+          "\t"
+          ;; Doc
+          "\n")))))
+    
+
+(defun lyskom-check-cmd-doc ()
+  (let ((doc-list nil)
+        (new-list nil))
+    (setq doc-list (lyskom-check-doc-find-keys 0 'intern))
+    (mapcar (function
+             (lambda (x)
+               (if (not (memq (car x) doc-list))
+                   (setq new-list (cons (car x) new-list)))))
+            lyskom-commands)
+
+    (goto-char (point-min))
+;    (message "Documented functions: %S" doc-list)
+    (if new-list
+        (progn
+          (mapcar 'lyskom-make-fn-doc-outline new-list)
+          (save-buffer))
+      (message "No new commands to document"))
+    ))
+
+(defun lyskom-make-fn-doc-outline (fn)
+  (let ((cmdname (lyskom-command-name fn)))
+    (if cmdname
+        (progn
+          (message "New command: %S (%s)" fn cmdname)
+          (insert
+           (concat
+            (symbol-name fn)
+            "\t"
+            cmdname
+            "\t"
+            (lyskom-make-fn-keybindings fn)
+            "\t"
+            ;; Variable xref
+            "\t"
+            ;; Command xref
+            "\t"
+            ;; Documentation
+            "\n")))
+      (message "Command %S has no name\n"))))
+
+(defun lyskom-make-fn-keybindings (fn)
+  (mapconcat (function
+              (lambda (x)
+                (replace-in-string 
+                 (replace-in-string
+                  (replace-in-string
+                   (replace-in-string
+                    (replace-in-string
+                     (replace-in-string
+                      (key-description x)
+                      "}" "")
+                     "{" "")
+                    "|" "")
+                   "]" "")
+                  "[" "")
+                 "\\" "")))
+             (apply 'append
+                    (mapcar 
+                     (function
+                      (lambda (keymap)
+                        (where-is-internal fn (symbol-value keymap))))
+                     lyskom-doc-keymaps))
+             ", "))
+
+(defun lyskom-check-doc-find-keys (fieldno modfn)
+  (let ((numlines (count-lines (point-min) (point-max)))
+        (lineno 0)
+        (string nil)
+        (result nil)
+        (regexp (concat "^"
+         (let ((tmp "\\([^\t]*\\)"))
+           (while (> fieldno 0)
+             (setq tmp (concat "[^\t]*\t" tmp))
+             (setq fieldno (1- fieldno)))
+           tmp))))
+             
+    (goto-char (point-min))
+    (while (< lineno numlines)
+      (setq lineno (1+ lineno))
+      (goto-line lineno)
+      (setq string (buffer-substring (lyskom-bol) (lyskom-eol)))
+      (string-match regexp string)
+      (setq result (cons 
+                    (funcall modfn (match-string 1 string)) result)))
+    (nreverse result)))
+
+
+  
+
+(defun lyskom-bol ()
+  (save-excursion (beginning-of-line) (point)))
+
+(defun lyskom-eol ()