display article source link

local/theme.scm

@@ -28,12 +28,16 @@
 						  (link tag (format #f "/tags/~a.xml" tag)))
 						(or (post-ref post 'tags) '()))
 				   ", "))
-		   ,@(if (and site prefix)
+		   (span ,@(if (and site prefix)
 				  `(" "
 					,(link "Permalink"
 						   (format #f "/~a/~a.html"
-								  prefix (site-post-slug site post))))
-				 '(""))))))
+								   prefix (site-post-slug site post)))
+					" | ")
+				  '(""))
+				 ,(link "Source"
+						(string-append "https://gitlab.cs.fau.de/faui2k17/posts/blob/master/"
+									   (basename (post-file-name post)))))))))
 
 (define local-site-theme
   (theme