Experiments~

org/posts/elog-1-blog.org

@@ -4,7 +4,7 @@
 * Emacs Log 1: This Blog
 _/*WARNING:*/_ This blog post is still under construction!
 
-This blog is built on top of =org-mode='s publishing capabilities.
+This blog is built on top of =org-mode=!
 
 * Appendix A: config.el snippet
 #+BEGIN_SRC emacs-lisp
@@ -32,6 +32,12 @@ This blog is built on top of =org-mode='s publishing capabilities.
        :html-doctype "html5"
        :html-html5-fancy t
 
+       :html-viewport ((width "100%")
+                       (initial-scale "0.7")
+                       (minimum-scale "")
+                       (maximum-scale "")
+                       (user-scalable ""))
+
        :language "en"
        :section-numbers nil
 
@@ -51,7 +57,7 @@ This blog is built on top of =org-mode='s publishing capabilities.
                  entry
                  (org-publish-find-title entry project)))
                ((eq style 'tree)
-                 (capitalize (file-name-nondirectory (directory-file-name entry))))
+                (capitalize (file-name-nondirectory (directory-file-name entry))))
                (t entry)))
 
        :headline-levels 4
@@ -69,7 +75,7 @@ This blog is built on top of =org-mode='s publishing capabilities.
 
       ("blog" :components ("pages" "static")))))
 
-  (setq org-publish-project-alist (akko/blog-spec))
+(setq org-publish-project-alist (akko/blog-spec))
 
 (defun akko/publish-blog ()
   (interactive)
@@ -82,11 +88,4 @@ This blog is built on top of =org-mode='s publishing capabilities.
   (org-publish-remove-all-timestamps)
   (org-publish-all))
 
-(map! :leader
-      (:prefix ("a" . "akko")
-       :desc "Publish Blog"
-       "b" #'akko/publish-blog))
-
-(setq org-html-htmlize-output-type 'css)
-(setq org-html-htmlize-font-prefix "org-")
 #+END_SRC