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>&nbsp;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