summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFlorian Pelz <pelzflorian@pelzflorian.de>2017-10-11 20:35:52 +0200
committerFlorian Pelz <pelzflorian@pelzflorian.de>2017-10-11 20:35:52 +0200
commit1349067ca35e56bda52d2615790f56a7af53f440 (patch)
tree52ad82e53e642acaaf8a971a04b2acffcd3d965f
parent18c94001186a6c7bb8f9d3f566506fd914c55ec5 (diff)
Recreate GTK+ workshop homepage as SXML.
-rw-r--r--css/common.css4
-rw-r--r--gui-prog-gtk-2016/gui-prog-poster.pdf (renamed from gui-prog-poster.pdf)bin30496 -> 30496 bytes
-rw-r--r--gui-prog-gtk-2016/index.css34
-rw-r--r--gui-prog-gtk-2016/index.htm89
-rw-r--r--gui-prog-gtk-2016/poster-portrait.pdf (renamed from poster-portrait.pdf)bin20013 -> 20013 bytes
-rw-r--r--haunt.scm123
6 files changed, 124 insertions, 126 deletions
diff --git a/css/common.css b/css/common.css
index f48da49..1fe58a6 100644
--- a/css/common.css
+++ b/css/common.css
@@ -118,6 +118,10 @@ h6 {
}
}
+li {
+ line-height : 180%;
+}
+
@media not all and (min-width : 1250px)
{
#side-bar {
diff --git a/gui-prog-poster.pdf b/gui-prog-gtk-2016/gui-prog-poster.pdf
index cbcee35..cbcee35 100644
--- a/gui-prog-poster.pdf
+++ b/gui-prog-gtk-2016/gui-prog-poster.pdf
Binary files differ
diff --git a/gui-prog-gtk-2016/index.css b/gui-prog-gtk-2016/index.css
deleted file mode 100644
index 22cad74..0000000
--- a/gui-prog-gtk-2016/index.css
+++ /dev/null
@@ -1,34 +0,0 @@
-@charset "UTF-8";
-
-@viewport {
- width: device-width;
-}
-
-body {
- padding : 0;
- margin : 0;
-}
-
-#top {
- position : absolute;
- width : 100%;
- height : 100px;
- background : linear-gradient(to bottom, #CCF, #FFF);
-}
-
-#main {
- max-width : 690px;
- padding-top : 80px;
- margin : 0 auto;
- font-family : serif;
- text-align : left;
- overflow-wrap : break-word;
-}
-
-#main div {
- margin : 8pt;
-}
-
-li {
- line-height : 180%;
-}
diff --git a/gui-prog-gtk-2016/index.htm b/gui-prog-gtk-2016/index.htm
deleted file mode 100644
index 8354c55..0000000
--- a/gui-prog-gtk-2016/index.htm
+++ /dev/null
@@ -1,89 +0,0 @@
-<!DOCTYPE html>
-
-<html lang="en">
-
-<head>
-<meta charset="UTF-8">
-<!--REMOVE ASAP WHEN CSS VIEWPORT BECOMES NORMATIVE:--><meta name=viewport content="width=device-width, initial-scale=1">
-<title>GUI-Programmierung mit GTK+</title>
-<link rel="stylesheet" type="text/css" href="index.css">
-<link rel="icon" type="image/png" href="/favicon.png">
-</head>
-
-<body>
-
-<div id="top"/>
-
-<div id="main">
- <p>
- Vielen Dank für Ihr Interesse an meinem Workshop
- „GUI-Programmierung mit GTK+”. Zur Anmeldung geht es
- <a href="/gui-prog-anmelden/">hier</a>. Weitere Informationen
- siehe <a href="/gui-prog-poster.pdf">hier</a>.
- </p>
-
- <p>
- <ul>
- <li><a href="slides-01.pdf">Foliensatz 1</a></li>
- <li><a href="slides-02.pdf">Foliensatz 2</a></li>
- <li><a href="handout-01-install.pdf">
- Handout 1: Installieren
- </a></li>
- <li><a href="handout-02-hello-gtk.pdf">
- Handout 2: Hallo GTK+
- </a></li>
- <li><a href="handout-03-glade.pdf">
- Handout 3: Glade
- </a></li>
- <li><a href="handout-04-text-editor.pdf">
- Handout 4: Texteditor
- </a></li>
- <li><a href="handout-05-hangman.pdf">
- Handout 5: Galgenmännchen
- </a></li>
- <li><a href="handout-06-autotools.pdf">
- Handout 6: Autotools
- </a></li>
- <li><a href="handout-07-translations.pdf">
- Handout 7: Übersetzungen
- </a></li>
- </ul>
- </p>
-
- <p> English:
- <ul>
- <li><a href="slides-01-en.pdf">Slides 1</a></li>
- <li><a href="slides-02-en.pdf">Slides 2</a></li>
- <li><a href="handout-01-install-en.pdf">
- Handout 1: Installing
- </a></li>
- <li><a href="handout-02-hello-gtk-en.pdf">
- Handout 2: Hello GTK+
- </a></li>
- <li><a href="handout-03-glade-en.pdf">
- Handout 3: Glade
- </a></li>
- <li><a href="handout-04-text-editor-en.pdf">
- Handout 4: Text Editor
- </a></li>
- <li><a href="handout-05-hangman-en.pdf">
- Handout 5: Hangman
- </a></li>
- <li><a href="handout-06-autotools-en.pdf">
- Handout 6: Autotools
- </a></li>
- <li><a href="handout-07-translations-en.pdf">
- Handout 7: Translations
- </a></li>
- </ul>
- </p>
-
- <p>
- <a href="/git/gui-prog-gtk-2016/">
- Aller Quellcode zum Workshop.
- </a>
- </p>
-</div>
-
-</body>
-</html>
diff --git a/poster-portrait.pdf b/gui-prog-gtk-2016/poster-portrait.pdf
index 1203316..1203316 100644
--- a/poster-portrait.pdf
+++ b/gui-prog-gtk-2016/poster-portrait.pdf
Binary files differ
diff --git a/haunt.scm b/haunt.scm
index 11c5f16..306b67a 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -82,6 +82,13 @@ Web-seite. Ich heiße Florian Pelz und wohne in Kaiserslautern. Wenn
ich interessante sachen teilen möchte, lade ich sie hier hoch.")
("See other posts" . "Andere einträge ansehen")
("See other posts about " . "Andere einträge ansehen über ")
+ ("Thank you for your interest in my workshop
+“GUI Programming with GTK+”. " . "Vielen Dank für Ihr Interesse an meinem Workshop
+„GUI-Programmierung mit GTK+”. ")
+ ("To register please go " . "Zur Anmeldung geht es ")
+ ("For more information see " . "Weitere Informationen siehe ")
+ ("GUI Programming with GTK+ " . "GUI-Programmierung mit GTK+ ")
+ ("All source code for the workshop." . "Aller Quellcode zum Workshop.")
("Don’t Hang" . "Don’t Hang")
("A simple GTK+ hangman game inspired by bsd-games’ hangman." . "Ein einfaches GTK+-galgenmännchen-spiel, inspiriert von bsd-games.")
("“Don’t Hang” is a simple hangman game for acquiring and consolidating
@@ -371,7 +378,7 @@ spracheinstellung zu „İS“ werden."))))
(string-append "/old-stuff-" current-lingua ".html")
(_ "Old stuff"))
,(a-href-sidebar-element
- "/gui-prog-gtk-2016/index.htm"
+ (string-append "/gui-prog-gtk-2016/index-" current-lingua ".html")
(_ "GTK+ Workshop 2016"))
,(a-href-sidebar-element
(build-url feeds-dir current-lingua "feed.xml")
@@ -585,6 +592,111 @@ become “İS” in a Turkish locale."))
(with-layout (pelzflorian-blue-theme lingua) site (_ "Don’t Hang") body)
sxml->html)))))
+(define (gui-prog-gtk-2016-body-for-lingua lingua)
+ (let ((current-lingua lingua)
+ (english-links
+ `(ul
+ ,(a-href-list-element
+ "slides-01-en.pdf"
+ "Slides 1")
+ ,(a-href-list-element
+ "slides-02-en.pdf"
+ "Slides 2")
+ ,(a-href-list-element
+ "handout-01-install-en.pdf"
+ "Handout 1: Installing")
+ ,(a-href-list-element
+ "handout-02-hello-gtk-en.pdf"
+ "Handout 2: Hello GTK+")
+ ,(a-href-list-element
+ "handout-03-glade-en.pdf"
+ "Handout 3: Glade")
+ ,(a-href-list-element
+ "handout-04-text-editor-en.pdf"
+ "Handout 4: Text Editor")
+ ,(a-href-list-element
+ "handout-05-hangman-en.pdf"
+ "Handout 5: Hangman")
+ ,(a-href-list-element
+ "handout-06-autotools-en.pdf"
+ "Handout 6: Autotools")
+ ,(a-href-list-element
+ "handout-07-translations-en.pdf"
+ "Handout 7: Translations")))
+ (german-links
+ `(ul
+ ,(a-href-list-element
+ "slides-01.pdf"
+ "Foliensatz 1")
+ ,(a-href-list-element
+ "slides-02.pdf"
+ "Foliensatz 2")
+ ,(a-href-list-element
+ "handout-01-install.pdf"
+ "Handout 1: Installieren")
+ ,(a-href-list-element
+ "handout-02-hello-gtk.pdf"
+ "Handout 2: Hallo GTK+")
+ ,(a-href-list-element
+ "handout-03-glade.pdf"
+ "Handout 3: Glade")
+ ,(a-href-list-element
+ "handout-04-text-editor.pdf"
+ "Handout 4: Texteditor")
+ ,(a-href-list-element
+ "handout-05-hangman.pdf"
+ "Handout 5: Galgenmännchen")
+ ,(a-href-list-element
+ "handout-06-autotools.pdf"
+ "Handout 6: Autotools")
+ ,(a-href-list-element
+ "handout-07-translations.pdf"
+ "Handout 7: Übersetzungen"))))
+ `(div
+ ,(if (equal? lingua "de")
+ `(div
+ (p ,german-links)
+ (p "English:" ,english-links))
+ `(div
+ (p ,english-links)
+ (p "Deutsch:" ,german-links)))
+ (p
+ (a (@ (href
+ "/git/gui-prog-gtk/tree/?id=f2fb450d34b8fd3b47420315547a61f7f7a6cd71"))
+ ,(_ "All source code for the workshop."))))))
+
+(define (gui-prog-gtk-page-for-lingua
+ lingua
+ gui-prog-gtk-body-for-lingua ; lambda yielding list of download links
+ year ; workshop year for HTML title
+ enable-registration) ; whether to show registration link
+ (let ((current-lingua lingua))
+ (lambda (site posts)
+ (let ((body
+ `(div
+ (p ,(_ "Thank you for your interest in my workshop
+“GUI Programming with GTK+”. ")
+ ,(if enable-registration
+ `(span
+ ,(_ "To register please go ")
+ (a (@ (href "/gui-prog-anmelden/"))
+ ,(_ "here"))
+ ". ")
+ `(span))
+ ,(_ "For more information see ")
+ (a (@ (href "gui-prog-poster.pdf"))
+ ,(_ "here"))
+ ".")
+ ,(gui-prog-gtk-body-for-lingua current-lingua)
+ ,(back-button-for-lingua lingua))))
+ (make-page (string-append "gui-prog-gtk-" year "/index" "-" lingua ".html")
+ (with-layout
+ (pelzflorian-blue-theme lingua)
+ site
+ (string-append (_ "GUI Programming with GTK+ ") year)
+ body)
+ sxml->html)))))
+
(define (homepage-for-lingua lingua)
(let ((current-lingua lingua))
(lambda (site posts)
@@ -648,12 +760,17 @@ have interesting things to share, I’ll put them up here.")))
(list (blog-for-lingua site posts-for-lingua))
(list (atom-feed-for-lingua site posts-for-lingua))
(list (atom-feeds-by-tag-for-lingua site posts-for-lingua))
- (list (make-asset "gui-prog-poster.pdf" "gui-prog-poster.pdf"))
- (list (make-asset "poster-portrait.pdf" "poster-portrait.pdf"))
(list (make-asset "c_exercises.htm" "c_exercises.htm"))
(list (make-asset "c_exercises.htm" "c_exercises.css"))
(list ((dont-hang-page-for-lingua lingua) site posts-for-lingua))
(list ((old-stuff-page-for-lingua lingua) site posts-for-lingua))
+ (list ((gui-prog-gtk-page-for-lingua
+ lingua
+ gui-prog-gtk-2016-body-for-lingua
+ "2016"
+ #f)
+ site
+ posts-for-lingua))
(list ((homepage-for-lingua lingua) site posts-for-lingua))))))))
(site #:title "pelzflorian.de"