Merge pull request 'Pull: hg-feature-morestyles' (#18) from hg-feature-morestyles into master

Reviewed-on: Hg/HTLLE-DA-Vorlage#18

example/32-ausarbeitung_schueler2.md

@@ -124,6 +124,38 @@ Obwohl hier nur java gezeigt ist, unterstützt das Template auch scala, java, ja
 </module>
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
+Hier etwas in kotlin
+
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{caption="Ein einfaches Kotlin Beispiel" .kotlin}
+// this is a simple code listing:
+println("hello kotlin from latex")
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+Und noch ein Beispiel in vba
+
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{caption="Ein einfaches Visual Basic for Applications Beispiel" .vba}
+Private Sub ExitSub()
+ 
+    Dim i As Integer
+ 
+    For i = 1 To 10      
+        If i = 5 Then
+            Exit Sub
+            MsgBox "The value of i is" & i
+        End If
+    Next i 
+ 
+End Sub
+ 
+ 
+Private Sub CallExitSub()
+    Call ExitSub
+    MsgBox "Exit Sub"  
+End Sub
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
 ### Auswertung der Ergebnisse
 
 Anhand von XY kann man folgende Tabelle ableiten:

style/langdef-kotlin.tex

@@ -0,0 +1,28 @@
+
+% Kotlin
+\lstdefinelanguage{Kotlin}{
+  comment=[l]{//},
+  commentstyle={\color{gray}\ttfamily},
+  emph={filter, first, firstOrNull, forEach, lazy, map, mapNotNull, println},
+  emphstyle={\color{OrangeRed}},
+  identifierstyle=\color{black},
+  keywords={!in, !is, abstract, actual, annotation, as, as?, break, by, 
+		catch, class, companion, const, constructor, continue, crossinline, 
+		data, delegate, do, dynamic, else, enum, expect, external, false, 
+		field, file, final, finally, for, fun, get, if, import, in, infix, 
+		init, inline, inner, interface, internal, is, lateinit, noinline, 
+		null, object, open, operator, out, override, package, param, private, 
+		property, protected, public, receiveris, reified, return, return@, 
+		sealed, set, setparam, super, suspend, tailrec, this, throw, true, 
+		try, typealias, typeof, val, var, vararg, when, where, while},
+  keywordstyle={\color{NavyBlue}\bfseries},
+  morecomment=[s]{/*}{*/},
+  morestring=[b]",
+  morestring=[s]{"""*}{*"""},
+  ndkeywords={@Deprecated, @JvmField, @JvmName, @JvmOverloads, @JvmStatic, 
+		@JvmSynthetic, Array, Byte, Double, Float, Int, Integer, Iterable, 
+		Long, Runnable, Short, String, Any, Unit, Nothing},
+  ndkeywordstyle={\color{BurntOrange}\bfseries},
+  sensitive=true,
+  stringstyle={\color{ForestGreen}\ttfamily},
+}

style/langdef-vba.tex

@@ -0,0 +1,20 @@
+%VBA
+\lstdefinelanguage{VBA}{
+   morekeywords={And, As, Byte, Call, Case, Compare, CDbl, Datebase, Date, 
+		Dim, Else, ElseIf, End, Error, Exit, Explicit, False, Function, 
+		GoTo, If, IIF, Integer, Not, Nothing, Null, Object, On, Option, Or, 
+		Private, Resume, String, Single, Select, Set, Static, Sub, Then, True, To,}, 
+   sensitive=false, 
+   morecomment=[l]Rem, 
+   morecomment=[l]', 
+   morestring=[b]", 
+   emph={acFormBar, acEditMenu, acCurrent, acEntire, acMenuVer70, acSaveYes, 
+		acViewNormal, acForm, acDataErrAdded, acNewRec, acDataErrContinue, Cancel, 
+		CancelEvent, Close, CurrentDb, DefaultValue, DateValue, DAO, Description, 
+		DoCmd, DoMenuItem, Err, Error, Error$, $, Execute,  FindRecord, Forms, 
+		FindFirst, IsNull, Me, MsgBox, GoToControl, GoToRecord, NewData, Nz, 
+		Maximize, Number, OpenForm, Parent, Recordset, Requery, Response, SetFocus, 
+		stDocName, stLinkCriteria, Value, vbExclamation, vbOK, vbOKCancel, 
+		vbInformation, vbYes, vbNo, vbYesNo, vbCancel, vbQuestion, vbYesNoCancel, 
+		Visible,}, 
+   emphstyle=\itshape} 

style/template.tex

@@ -287,7 +287,8 @@ $endif$
 \input{style/langdef-css.tex}
 \input{style/langdef-html.tex}
 \input{style/langdef-xml.tex}
-
+\input{style/langdef-kotlin.tex}
+\input{style/langdef-vba.tex}
 $endif$
 
 %