Commit 498249a4 authored by Linus Tolke's avatar Linus Tolke
Browse files

Uppdatera version av dokumentationen.

parent 43ad7ec0
This diff is collapsed.
......@@ -1855,7 +1855,7 @@ July\or August\or September\or October\or November\or December\fi
\def\dfn##1{\realbackslash dfn {##1}}
}
\def\thischaptername{No Chapter Title}
\def\thischaptername{Inget kapitelnamn}
\outer\def\chapter{\parsearg\chapterzzz}
\def\chapterzzz #1{\seccheck{chapter}%
\secno=0 \subsecno=0 \subsubsecno=0
......@@ -3214,7 +3214,7 @@ July\or August\or September\or October\or November\or December\fi
section ``\printednodename'' in \cite{\printedmanual}%
\else%
\turnoffactive%
\refx{#1-snt}{} [\printednodename], page\tie\refx{#1-pg}{}%
\refx{#1-snt}{} [\printednodename], sidan\tie\refx{#1-pg}{}%
\fi
\endgroup}
......@@ -3241,21 +3241,21 @@ section ``\printednodename'' in \cite{\printedmanual}%
\def\Ynothing{}
\def\Ysectionnumberandtype{%
\ifnum\secno=0 Chapter\xreftie\the\chapno %
\else \ifnum \subsecno=0 Section\xreftie\the\chapno.\the\secno %
\ifnum\secno=0 kapitel\xreftie\the\chapno %
\else \ifnum \subsecno=0 stycke\xreftie\the\chapno.\the\secno %
\else \ifnum \subsubsecno=0 %
Section\xreftie\the\chapno.\the\secno.\the\subsecno %
stycke\xreftie\the\chapno.\the\secno.\the\subsecno %
\else %
Section\xreftie\the\chapno.\the\secno.\the\subsecno.\the\subsubsecno %
stycke\xreftie\the\chapno.\the\secno.\the\subsecno.\the\subsubsecno %
\fi \fi \fi }
\def\Yappendixletterandtype{%
\ifnum\secno=0 Appendix\xreftie'char\the\appendixno{}%
\else \ifnum \subsecno=0 Section\xreftie'char\the\appendixno.\the\secno %
\else \ifnum \subsecno=0 stycke\xreftie'char\the\appendixno.\the\secno %
\else \ifnum \subsubsecno=0 %
Section\xreftie'char\the\appendixno.\the\secno.\the\subsecno %
stycke\xreftie'char\the\appendixno.\the\secno.\the\subsecno %
\else %
Section\xreftie'char\the\appendixno.\the\secno.\the\subsecno.\the\subsubsecno %
stycke\xreftie'char\the\appendixno.\the\secno.\the\subsecno.\the\subsubsecno %
\fi \fi \fi }
\gdef\xreftie{'tie}
......
......@@ -3,18 +3,18 @@
(defconst subst-tabell
; Ja, detta {r konstigt men jag anv{nder bokst{verna till att f} r{tt
; ordning. Det konverteras tillbaka sedan. Var lugna.
'(("" "^^e5")
("" "^^c5")
("" "^^c4")
("" "^^e4")
("" "^^d6")
("" "^^f6")
))
(` (("" "^^e5")
("" "^^c5")
("" "^^c4")
("" "^^e4")
("" "^^d6")
("" "^^f6")
("|" "{\\tt\\char'174}")
)))
(defun find-sort-key (string)
"Convert a string containing strange dvi-output to iso-chars."
(setq string (concat " " string))
(defun texindex-tomine (string)
"Convert to my representation."
(let ((change t)
(completion-ignore-case nil))
(while change
......@@ -26,7 +26,34 @@
(car (car s))
(substring string (match-end 0)))
change t))
(setq s (cdr s))))
(setq s (cdr s))))))
string)
(defun texindex-back (string)
"Convert back to original."
(let ((change t)
(completion-ignore-case nil))
(while change
(setq change nil)
(let ((s subst-tabell))
(while s
(if (string-match (regexp-quote (car (car s))) string)
(setq string (concat (substring string 0 (match-beginning 0))
(car (cdr (car s)))
(substring string (match-end 0)))
change t))
(setq s (cdr s))))))
string)
(defun find-sort-key (string)
"Convert a string containing strange dvi-output to iso-chars."
(setq string (concat " " string))
(let ((change t)
(completion-ignore-case nil))
(while change
(setq change nil)
(setq string (texindex-tomine string))
(if (string-match "(.*)" string)
(setq string (concat (substring string 0 (match-beginning 0))
......@@ -37,6 +64,10 @@
" "
(substring string (match-end 0)))
change t))
(if (string-match (regexp-quote "\\sl ") string)
(setq string (concat (substring string 0 (match-beginning 0))
(substring string (match-end 0)))
change t))
))
(substring string 1))
......@@ -101,14 +132,15 @@
(setq last-marker (point))
(goto-char (point-max)))
(if (string= current-letter
(substring (upcase (car (car all-info))) 0 1))
(substring (texindex-tomine (upcase (car (car all-info))))
0 1))
nil
(setq current-letter
(substring (upcase (car (car all-info))) 0 1))
(substring (texindex-tomine (upcase
(car (car all-info))))
0 1))
(insert "\\initial {"
(if (assoc current-letter subst-tabell)
(car (cdr (assoc current-letter subst-tabell)))
current-letter)
(texindex-back (capitalize current-letter))
"}\n"))
(insert "\\entry {"
(car (cdr (cdr (car all-info))))
......
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