mess a bit with the CSS

.gitignore

@@ -1,4 +1,2 @@
-_cache
+_*
-_site
-_optim
 src/archive.org

project.el

@@ -4,8 +4,10 @@
 (defvar root-dir (projectile-project-root))
 (defvar base-dir (concat root-dir "src"))
 (defvar publish-dir (concat root-dir "_site"))
+(defvar draft-publish-dir (concat root-dir "_full"))
 (defvar assets-dir (concat base-dir "/"))
 (defvar publish-assets-dir (concat publish-dir "/"))
+(defvar draft-publish-assets-dir (concat publish-drafts-dir "/"))
 (defvar posts-dir (concat base-dir "/posts"))
 (defvar rss-title "Subscribe to articles")
 (defvar posts-descr "Articles")
@@ -264,6 +266,7 @@ Return output file name."
          :sitemap-format-entry date-format-entry
          :sitemap-function org-blog-posts-sitemap-fn)
 
+
         ("assets"
          :base-directory ,assets-dir
          :base-extension ".*"
@@ -272,7 +275,38 @@ Return output file name."
          :publishing-function org-blog-publish-attachment
          :recursive t)
 
-        ("blog" :components ("orgfiles" "assets"))))
+
+        ("draft-org-files"
+         :base-directory ,base-dir
+         :base-extension "org"
+         :publishing-directory ,draft-publish-dir
+         :recursive t
+         :preparation-function org-blog-prepare
+         :publishing-function org-blog-publish-to-html
+         :with-toc nil
+         :with-title nil
+         :with-date t
+         :section-numbers nil
+         :html-doctype "html5"
+         :html-html5-fancy t
+         :html-head-include-default-style nil
+         :html-head-include-scripts nil
+         :htmlized-source t
+         :html-head-extra ,org-blog-head
+         :html-preamble org-blog-preamble
+         :html-postamble org-blog-postamble
+
+         )
+        ("draft-assets"
+         :base-directory ,assets-dir
+         :base-extension ".*"
+         :exclude ".*\.org$"
+         :publishing-directory ,draft-publish-assets-dir
+         :publishing-function org-blog-publish-attachment
+         :recursive t)
+
+        ("blog" :components ("orgfiles" "assets"))
+        ("draft" :components ("draft-org-files" "draft-assets"))))
 
 ;; add target=_blank and rel="noopener noreferrer" to all links by default
 (defun my-org-export-add-target-blank-to-http-links (text backend info)

src/css/mk.css

@@ -3,17 +3,17 @@
 */
 /* Fonts */
 :root {
-    --lh: 26px;
+    --lh: 17px;
 }
 body {
-    font-size: 18px;
+    font-size: 15px;
-    font-family: Palatino, Georgia, serif;
+    font-family: "PT Sans","Trebuchet MS", Verdana, sans-serif;
     line-height: var(--lh);
 }
 code, pre, pre code {
     line-height: 1em;
     font-size: 14px;
-    font-family: Menlo, monospace;
+    font-family: "PT Mono", Menlo, monospace;
 }
 blockquote pre {
     line-height: var(--lh);
@@ -71,16 +71,14 @@ table {
     max-width: 100%;
     border-collapse: collapse;
     overflow: scroll;
-    border-top: dashed 2px;
+    border-top: solid 2px;
-    border-bottom: dashed 2px;
+    border-bottom: solid 2px;
 }
 td, th {
     height: 1em;
     padding: 0 10px;
     text-align: left;
     vertical-align: middle;
-    border-left: dashed 2px;
-    border-right: dashed 2px;
 }
 sup {
     vertical-align: top;
@@ -188,7 +186,7 @@ figure, .figure {
     margin: 1em 0;
 }
 #content,.content {
-    max-width: 48em;
+    max-width: 35em;
     margin: 0 auto;
     padding: 0 1em;
 }
@@ -370,7 +368,8 @@ li .keywords {
 
 .main ol > li:before, ol > li:before,
 pre::after,pre::before,hr:after,
-.main pre::after,.main pre::before,.main hr:after
+.main pre::after,.main pre::before,.main hr:after,
+blockquote:after, .main blockquote:after
  {
     color: var(--fg0);
 }
@@ -415,9 +414,6 @@ table, td, th,
 code, .main code {
     background: var(--rbg);
 }
-blockquote:after, .main blockquote:after {
-    color: var(--fg2);
-}
 #preamble,#postamble,.main #preamble, .main #postamble {
     border-color: transparent;
 }

src/posts/0010-Haskell-Now/index.org

@@ -21,10 +21,15 @@ I took the time to read it again.
 
 In 2012, I really believed that every developer should learn Haskell.
 This is why I wrote my old article.
-This is the end of 2019 and I still strongly believe that, yes, you must at
+This is the end of 2019 and I still strongly believe that.
-least be able to understand enough Haskell to write a simple tool.
+I think you should at least be able to understand enough Haskell to write a
+simple tool.
+There are a few feature in Haskell that I really miss in most programming
+languages and that would not appear to be difficult to provide.
+Typically sum types.
+A concept so simple yet so helpful.
 
-But a few things have changed in the Haskell world.
+Since I wrote my article a few things have changed in the Haskell world.
 
 1. Project building has a few working solution. When I wrote this article I
    had a few web application that I can no longer build today.