Merge branch 'master' of github.com:DenisKnauf/presentation.fs

README.md

@@ -8,10 +8,10 @@ Benutzen
 
 ./presentation.fs presentation.p.fs
 
-  n \ naechste Seite
-  p \ Seite zueueck
-  u \ Seite aktualisieren (warum auch immer)
-  3 g \ Zur dritten Seite springen
-  3 n \ 3 Seiten vor springen
+    n \ naechste Seite
+    p \ Seite zueueck
+    u \ Seite aktualisieren (warum auch immer)
+    3 g \ Zur dritten Seite springen
+    3 n \ 3 Seiten vor springen
 
 In der Presentation wird gezeigt, was man alles machen kann.

presentation.fs

@@ -160,6 +160,23 @@ ptype-reset \ ptype-lenl sollte von Anfang an 0 sein
 : {/li} ( addr -- addr ) cr ;
 : </li> ( addr len -- , xt-{/li} ) ['] {/li} , swap ! ;
 
+variable enumerationCount ( -- addr )
+: {||}  ( addr -- addr )
+        enumerationCount @ 1+ enumerationCount !
+        s"   " type enumerationCount @ 0 U.R s" ) " type
+	5 ptype-lenl !
+        cell+
+;
+: <||>  ( -- addr u0 , xt-{||} 0 ) ['] {||} , here 0 , 0 ;
+: {/||} ( addr -- addr ) cr ;
+: </||> ( addr len -- , xt-{/||} ) ['] {/||} , swap ! ;
+
+: {en}  ( -- )  ;
+: <en>  ( -- , xt-{en} )  ['] {en} , ;
+: {/en} ( -- ) ;
+: </en> ( -- , xt-{/en} ) ['] {en} , ;
+
+
 : {np} ( -- )
 	0 sgr \ Alle Bildschirmeigenschaften zuruecksetzen
 	page \ Bildschirm leeren

presentation.p.fs

@@ -44,6 +44,15 @@
 		!" Eines Tages hatten wir [" <b> !" Harald Steinlechner" </b>
 		!"  und " <b> !" Denis Knauf" </b>
 		!" ] die tolle Idee, eine Praesentationssoftware zu schreiben."
+		<br>
+		<br>	
+		<b>	
+		<en>
+                <||> !" erstens"  </||> 
+		<||> !" zweitens" </||> 
+		<||> !" dann"     </||> 
+		</en>
+		</b>
 	</p>
 <np>
 	<h> !" Ergebnis" </h>