converted pages/ into scheme file

haunt.scm

@@ -10,7 +10,8 @@
 			 (haunt reader commonmark)
 			 (local micronews paged-blog)
 			 (local theme)
-			 (local common))
+			 (local common)
+			 (local pages))
 
 (define* (static-page name title sxml #:key (theme local-site-theme))
   (lambda (site posts)
@@ -19,10 +20,6 @@
 				((theme-layout theme) site title sxml)
 				sxml->html))))
 
-(define %meta-page (primitive-load "pages/meta.sxml"))
-(define %irc-page (primitive-load "pages/irc.sxml"))
-(define %whatsapp-page (primitive-load "pages/whatsapp.sxml"))
-
 (site #:title "#faui2k17"
       #:domain "faui2k17.de"
       #:readers (list commonmark-reader)

local/pages.scm

+(add-to-load-path "..")
+(define-module (local pages)
+  #:use-module (local common)
+  #:export (%meta-page
+			%irc-page
+			%whatsapp-page))
+
+ ;; /meta.html
+
+(define %meta-page
+  `(article
+	(p "Auf dieser Seite sind Kurznachrichten und andere "
+	   "Informationen (hauptsächlich) für Studenten der "
+	   ,(link "FAU Erlangen" "https://www.fau.de/")
+	   " im Studiengang "
+	   ,(link "Informatik" "https://www.cs.fau.de/")
+	   ".")
+	(p "Alle Inhalte werden von einem statischem Webseiten "
+	   "Generator verwaltet, und jeder ist eingeladen mit "
+	   "beizutragen. Besucht hierzu das "
+	   ,(link "GitLab Repo" "https://gitlab.cs.fau.de/faui2k17/generator#beitragen")
+	   ", auf welches mit SSO (IdM-Kennung) zugegriffen "
+	   "werden kann.")
+	(p "Fragen/Vorschläge technischer oder rechtlicher Art bitte an "
+	   "den derzeitigen "
+	   ,(link "Webmaster" "https://wwwcip.informatik.uni-erlangen.de/~oj14ozun/")
+	   " schicken.")))
+
+ ;; /irc.html
+
+(define %irc-page
+  `(article
+	(p "IRC Channel des Jahrgangs: "
+	   ,(link '(code "#faui2k17") "irc://irc.fau.de:6667/faui2k17"))
+	(p "Für die die noch nie IRC verwendet haben, kann einem der "
+	   ,(link '(em "IRC-Guide") "https://fsi.cs.fau.de/dw/kontakt/irc")
+	   " von der FSI helfen die Basics zu verstehen.")
+	(p "Auch möglich: Verbinden via "
+	   ,(link "Matrix" "https://matrix.to/#/#_ircnet_#faui2k17:irc.snt.utwente.nl"))))
+
+ ;; /whatsapp.html
+
+(define %whatsapp-page
+  `(article
+	(p "Diese Seite enthält direkte "
+	   ,(link '(em "Invite Links")
+			  "https://faq.whatsapp.com/en/wp/23704967?lang=de#invite")
+	   " zu WhatsApp Gruppen welche vom Semester 2017/18 erstellt wurden.")
+
+	(h1 "Allgemeine Gruppen")
+	,(ulist
+	  (link '(em "Erstis Gruppe")
+			"https://chat.whatsapp.com/Le3bBFeddlM3UD6XUduudm"))
+ 
+	(h1 "Vorlesungen aus dem 4. Semester")
+	,(ulist
+	  (link "Rechnerkommunikation"
+			"https://chat.whatsapp.com/KkIfQkNspYsDGc1e2D5xaM")
+	  (link "Theorie der Programmierung"
+			"https://chat.whatsapp.com/F9oXhsXeaLwJjSYkuIYqbO")
+	  (link "Algorithmik Kontinuierlicher Systeme"
+			"https://chat.whatsapp.com/KqvTD8lXAuA0qnLHx208bK")
+	  (link "Mathe C4"
+			"https://chat.whatsapp.com/4eofzccqOfd51ky7Q0bgD1"))
+
+	(h1 "Vorlesungen aus dem 3. Semester")
+	,(ulist
+	  (link "Berechenbarkeit formeller Systeme"
+			"https://chat.whatsapp.com/7cTwkQ8dVqF4RSl8QMq0ru")
+	  (link "Software Entwickelung"
+			"https://chat.whatsapp.com/ATOD2sUNAWP2CoukTlo4J2")
+	  (link "Grundlagen der Logik in der Informatik"
+			"https://chat.whatsapp.com/0ofifeh7DVQ4mobOTmHod4")
+	  (link "Systemprogrammierung 2"
+			"https://chat.whatsapp.com/IavyuLwBNeIJR4EHay8JKk")
+	  '(span (em "Mathe C3")
+			 " existiert nicht mehr, wurde zu "
+			 (em "Mathe C4")))
+
+	(h1 "Vorlesungen aus dem 2. Semester")
+	,(ulist
+	  (link "Parallele und Funktionale Programmierung"
+			"https://chat.whatsapp.com/8GCn4fTWZ0b24aJCOLqnbP")
+	  (link "Grundlagen der Rechnerarchitektur"
+			"https://chat.whatsapp.com/G8wa1sbPw5hAyKB7FqaiP4")
+	  (link "Grundlagen der Schaltungstechnik"
+			"https://chat.whatsapp.com/CLFxwY0QTItGlGhD7gXGlP")
+	  '(span (em "Systemprogrammierung 1")
+			 " existiert nicht mehr, wurde zu "
+			 (em "Systemprogrammierung 2"))
+	  '(span (em "Mathe C2")
+			 " existiert nicht mehr, wurde zu "
+			 (em "Mathe C4")))
+
+	(h1 "Vorlesungen aus dem 1. Semester")
+	,(ulist
+	  (link "Konzeptionelle Modellierung"
+			"https://chat.whatsapp.com/1vgtbFsvEPL8VQhwxS7wgh")
+	  (link "Grundlagen der Technischen Informatik"
+			"https://chat.whatsapp.com/2gGMa0rLJFz4UoUrQbWpRp")
+	  (link "Algorithmen und Datenstrukturen"
+			"https://chat.whatsapp.com/DKtSVJ0cGJW7WllVXkpYOt")
+	  '(span (em "Mathe C1")
+			 " existiert nicht mehr, wurde zu "
+			 (em "Mathe C4")))))

pages/irc.sxml

-`(article
-  (p "IRC Channel des Jahrgangs: "
-	 ,(link '(code "#faui2k17") "irc://irc.fau.de:6667/faui2k17"))
-  (p "Für die die noch nie IRC verwendet haben, kann einem der "
-	 ,(link '(em "IRC-Guide") "https://fsi.cs.fau.de/dw/kontakt/irc")
-	 " von der FSI helfen die Basics zu verstehen.")
-  (p "Auch möglich: Verbinden via "
-	 ,(link "Matrix" "https://matrix.to/#/#_ircnet_#faui2k17:irc.snt.utwente.nl")))

pages/meta.sxml

-`(article
-  (p "Auf dieser Seite sind Kurznachrichten und andere "
-	 "Informationen (hauptsächlich) für Studenten der "
-	 ,(link "FAU Erlangen" "https://www.fau.de/")
-	 " im Studiengang "
-	 ,(link "Informatik" "https://www.cs.fau.de/")
-	 ".")
-  (p "Alle Inhalte werden von einem statischem Webseiten "
-	 "Generator verwaltet, und jeder ist eingeladen mit "
-	 "beizutragen. Besucht hierzu das "
-	 ,(link "GitLab Repo" "https://gitlab.cs.fau.de/faui2k17/generator#beitragen")
-	 ", auf welches mit SSO (IdM-Kennung) zugegriffen "
-	 "werden kann.")
-  (p "Fragen/Vorschläge technischer oder rechtlicher Art bitte an "
-	 "den derzeitigen "
-	 ,(link "Webmaster" "https://wwwcip.informatik.uni-erlangen.de/~oj14ozun/")
-	 " schicken."))

pages/whatsapp.sxml

-`(article
-  (p "Diese Seite enthält direkte "
-	 ,(link '(em "Invite Links")
-			"https://faq.whatsapp.com/en/wp/23704967?lang=de#invite")
-	 " zu WhatsApp Gruppen welche vom Semester 2017/18 erstellt wurden.")
-
-  (h1 "Allgemeine Gruppen")
-  ,(ulist
-	(link '(em "Erstis Gruppe")
-		  "https://chat.whatsapp.com/Le3bBFeddlM3UD6XUduudm"))
- 
-  (h1 "Vorlesungen aus dem 4. Semester")
-  ,(ulist
-	(link "Rechnerkommunikation"
-		  "https://chat.whatsapp.com/KkIfQkNspYsDGc1e2D5xaM")
-	(link "Theorie der Programmierung"
-		  "https://chat.whatsapp.com/F9oXhsXeaLwJjSYkuIYqbO")
-	(link "Algorithmik Kontinuierlicher Systeme"
-		  "https://chat.whatsapp.com/KqvTD8lXAuA0qnLHx208bK")
-	(link "Mathe C4"
-		  "https://chat.whatsapp.com/4eofzccqOfd51ky7Q0bgD1"))
-
-  (h1 "Vorlesungen aus dem 3. Semester")
-  ,(ulist
-	(link "Berechenbarkeit formeller Systeme"
-		  "https://chat.whatsapp.com/7cTwkQ8dVqF4RSl8QMq0ru")
-	(link "Software Entwickelung"
-		  "https://chat.whatsapp.com/ATOD2sUNAWP2CoukTlo4J2")
-	(link "Grundlagen der Logik in der Informatik"
-		  "https://chat.whatsapp.com/0ofifeh7DVQ4mobOTmHod4")
-	(link "Systemprogrammierung 2"
-		  "https://chat.whatsapp.com/IavyuLwBNeIJR4EHay8JKk")
-	'(span (em "Mathe C3")
-		   " existiert nicht mehr, wurde zu "
-		   (em "Mathe C4")))
-
-  (h1 "Vorlesungen aus dem 2. Semester")
-  ,(ulist
-	(link "Parallele und Funktionale Programmierung"
-		  "https://chat.whatsapp.com/8GCn4fTWZ0b24aJCOLqnbP")
-	(link "Grundlagen der Rechnerarchitektur"
-		  "https://chat.whatsapp.com/G8wa1sbPw5hAyKB7FqaiP4")
-	(link "Grundlagen der Schaltungstechnik"
-		  "https://chat.whatsapp.com/CLFxwY0QTItGlGhD7gXGlP")
-	'(span (em "Systemprogrammierung 1")
-		" existiert nicht mehr, wurde zu "
-		(em "Systemprogrammierung 2"))
-	'(span (em "Mathe C2")
-		   " existiert nicht mehr, wurde zu "
-		   (em "Mathe C4")))
-
-  (h1 "Vorlesungen aus dem 1. Semester")
-  ,(ulist
-	(link "Konzeptionelle Modellierung"
-		  "https://chat.whatsapp.com/1vgtbFsvEPL8VQhwxS7wgh")
-	(link "Grundlagen der Technischen Informatik"
-		  "https://chat.whatsapp.com/2gGMa0rLJFz4UoUrQbWpRp")
-	(link "Algorithmen und Datenstrukturen"
-		  "https://chat.whatsapp.com/DKtSVJ0cGJW7WllVXkpYOt")
-	'(span (em "Mathe C1")
-		   " existiert nicht mehr, wurde zu "
-		   (em "Mathe C4"))))