From 8b268b58fb89ef57c8379a05ab1f7471d968c2b3 Mon Sep 17 00:00:00 2001 From: Mariano Montone <marianomontone@gmail.com> Date: Mon, 8 Oct 2018 13:30:07 -0300 Subject: [PATCH] Edit this page button --- process.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/process.lisp b/process.lisp index 2d48586..469cb77 100644 --- a/process.lisp +++ b/process.lisp @@ -68,6 +68,8 @@ ;; Process news +(defparameter +edit-news-link+ "https://gitlab.common-lisp.net/clo/cl-site/edit/master/content/news.md") + (defun generate-news () (let ((html (markdown:parse-file (merge-pathnames "news.md" *PAGES-DIR*)))) @@ -76,6 +78,7 @@ :if-does-not-exist :create :if-exists :supersede) (write-string "<div id=\"bodyText\">" f) + (format f "<a class=\"btn btn-secondary float-right\" href=\"~A\"><i class=\"far fa-edit\"></i> Edit this page</a>" +edit-news-link+) (write-string "<h1>Latest Common-Lisp.net news</h1>" f) (write-string html f) (write-string "</div>" f)) -- GitLab