1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
%% -*- emacs-lisp -*-
\typeout{Babel package: German}
\HlxEval{
(defun hyperlatex-german-active-doublequote ()
;; doublequote has already been removed from text
(let ((here (point))
(match (assoc (following-char) hyperlatex-german-interesting-chars)))
(if match
;; if char is not in the list, we don't do anything
(progn
;; replace the character with its expansion
(delete-region (point) (1+ (point)))
(insert (cdr match))
(goto-char here)))))
(defvar hyperlatex-german-interesting-chars
'( ( ?a . "\\xmlsym{auml}")
( ?A . "\\xmlsym{Auml}")
( ?o . "\\xmlsym{ouml}")
( ?O . "\\xmlsym{Ouml}")
( ?u . "\\xmlsym{uuml}")
( ?U . "\\xmlsym{Uuml}")
( ?e . "\\xmlsym{euml}")
( ?E . "\\xmlsym{Euml}")
( ?i . "\\xmlsym{iuml}")
( ?I . "\\xmlsym{Iuml}")
( ?s . "\\xmlsym{szlig}")
( ?S . "SS")
( ?z . "\\xmlsym{szlig}")
( ?Z . "SZ")
( ?| . "")
( ?- . "")
( ?\" . "")
( ?~ . "-")
( ?= . "-")
( ?` . "\\glqq{}")
( ?' . "\\grqq{}")
( ?< . "\\flqq{}")
( ?> . "\\frqq{}")
))
}
\newcommand{\mdqon}{
\HlxEval{
;; Make " an active character
(setq hyperlatex-additional-special-characters
(concat "\"" hyperlatex-additional-special-characters))
(hyperlatex-update-special-chars)
;; Provide definition for active "
(put '\" 'hyperlatex-active 'hyperlatex-german-active-doublequote)
}
}
\newcommand{\mdqoff}{
\HlxEval{
;; Remove " definition
(string-match "\"" hyperlatex-additional-special-characters)
(replace-match "" t t hyperlatex-additional-special-characters)
(hyperlatex-update-special-chars)
}
}
\newcommand{\captionsgerman}{%
\newcommand{\prefacename}{Vorwort}%
\newcommand{\refname}{Literatur}%
\newcommand{\abstractname}{Zusammenfassung}%
\newcommand{\bibname}{Literaturverzeichnis}%
\newcommand{\chaptername}{Kapitel}%
\newcommand{\appendixname}{Anhang}%
\newcommand{\contentsname}{Inhaltsverzeichnis}%
\newcommand{\listfigurename}{Abbildungsverzeichnis}%
\newcommand{\listtablename}{Tabellenverzeichnis}%
\newcommand{\indexname}{Index}%
\newcommand{\figurename}{Abbildung}%
\newcommand{\tablename}{Tabelle}%
\newcommand{\partname}{Teil}%
\newcommand{\enclname}{Anlage(n)}%
\newcommand{\ccname}{Verteiler}%
\newcommand{\headtoname}{An}%
\newcommand{\pagename}{Seite}%
\newcommand{\seename}{siehe}%
\newcommand{\alsoname}{siehe auch}%
\newcommand{\proofname}{Beweis}%
}
\newcommand{\dategerman}{%
\renewcommand{\today}{\HlxTodayGerman}
}
\HlxEval{
(put 'HlxTodayGerman 'hyperlatex 'hyperlatex-format-hlxtodaygerman)
(defun hyperlatex-format-hlxtodaygerman ()
(let* ((date (decode-time))
(day (elt date 3))
(month (elt date 4))
(year (elt date 5))
(month-list '("Januar" "Februar" "M\\\"arz" "April"
"Mai" "Juni" "Juli" "August"
"September" "Oktober" "November" "Dezember")))
(insert
(concat (int-to-string day) " "
(elt month-list (1- month))
" " (int-to-string year)))
(goto-char hyperlatex-command-start)))
}
\newcommand{\extrasgerman}{
\mdqon
}
\newcommand{\htmlpanelgerman}{
\renewcommand{\HlxGoBackName}{Zur"uck zu:}
\renewcommand{\HlxGoUpName}{Hoch zu:}
\renewcommand{\HlxGoForwardName}{Weiter zu:}
}
\newcommand{\noextrasgerman}{
\mdqoff
}
\newcommand{\glqq}{,,{}}
\newcommand{\grqq}{'{'}}
\newcommand{\glq}{,}
\newcommand{\grq}{'}
\newcommand{\flqq}{\xmlsym{##171}}
\newcommand{\frqq}{\xmlsym{##187}}
\newcommand{\flq}{<}
\newcommand{\frq}{>}
\newcommand{\dq}{\"{}}
|
