diff --git a/project.el b/project.el index da9e7e8..6bc861f 100644 --- a/project.el +++ b/project.el @@ -10,7 +10,6 @@ (defvar draft-publish-assets-dir (concat draft-publish-dir "/")) (defvar posts-dir (concat base-dir "/posts")) (defvar rss-title "Subscribe to articles") -(defvar posts-descr "Articles") (defvar css-path "/css/mk.css") (defvar author-name "Yann Esposito") (defvar author-email "yann@esposito.host") @@ -57,12 +56,14 @@ (defun logo () (concat "
" + "" "" "" "" "" "" "" + "" "
")) (defun relative-link (output-file) @@ -204,43 +205,25 @@ (menu '("↑ Top ↑")) "")) -(defun y/org-get-keywords () - (org-element-map (org-element-parse-buffer 'element) 'keyword - (lambda (keyword) (cons (org-element-property :key keyword) - (org-element-property :value keyword))))) - -(defun y/org-get-meta (keyword) - (cdr (assoc keyword (y/org-get-keywords)))) - -(defun y/get-meta (file meta-name) - "Return the value of the meta of an org-mode file. - -(y/get-meta file \"DESCRIPTION\") -" - (org-babel-with-temp-filebuffer file (y/org-get-meta meta-name))) - (defun date-format-entry (entry _style project) "Return string for each ENTRY in PROJECT." (when (string-match "posts/.*" entry) (let* ((file (org-publish--expand-file-name entry project)) (title (org-publish-find-title entry project)) (artdate (format-time-string "%Y-%m-%d" (org-publish-find-date entry project))) - ;; (keywords (y/get-meta file "KEYWORDS")) - (description (y/get-meta file "DESCRIPTION"))) + (description (org-publish-find-property entry :description project 'html))) (concat (format " @@html:%s@@: " artdate) (format " *[[file:%s][%s]]*" file title) - (format " @@html:
@@%s@@html:
@@" description) + (format " @@html:
%s
@@" description) (format " @@html:
@@ ") - ;; (keywords-to-html keywords) " @@html:
@@\n")))) -(defun org-blog-sitemap-fn-descr (descr title list) +(defun org-blog-sitemap-fn-descr (_descr title list) "Return sitemap using TITLE and LIST returned by `org-blog-sitemap-format-entry'." (concat "#+TITLE: " title "\n" "#+AUTHOR: " author-name "\n" "#+EMAIL: " author-email "\n" - "#+DESCRIPTION: " descr "\n" (concat "@@html:" (menu '()) "@@") "\n\n" (mapconcat (lambda (li) (format "%s" (car li))) @@ -297,7 +280,7 @@ Return output file name." (t (copy-file filename dst-file t)))))) (defalias 'org-blog-posts-sitemap-fn - (apply-partially 'org-blog-sitemap-fn-descr posts-descr)) + (apply-partially 'org-blog-sitemap-fn-descr "")) (setq org-html-htmlize-output-type 'css) (setq org-html-htmlize-font-prefix "org-") diff --git a/project.el.sig b/project.el.sig index 560983c..5fd442f 100644 Binary files a/project.el.sig and b/project.el.sig differ diff --git a/src/demo.org b/src/demo.org index 623df21..fd73bea 100644 --- a/src/demo.org +++ b/src/demo.org @@ -1,7 +1,7 @@ #+TITLE: This is the title #+AUTHOR: Yann Esposito #+EMAIL: yann@esposito.host -#+KEYWORDS: programming +#+KEYWORDS: programming demo #+DESCRIPTION: css demonstration #+OPTIONS: H:5 #+OPTIONS: auto-id:t toc:t diff --git a/src/index.org b/src/index.org index a954870..846512d 100644 --- a/src/index.org +++ b/src/index.org @@ -2,7 +2,6 @@ #+KEYWORDS: programming #+AUTHOR: Yann Esposito #+EMAIL: yann@esposito.host -#+DESCRIPTION: #+LANGUAGE: en #+LANG: en #+OPTIONS: H:5 diff --git a/src/posts/0006-modern-irc/index.org b/src/posts/0006-modern-irc/index.org index 7687387..1be8a87 100644 --- a/src/posts/0006-modern-irc/index.org +++ b/src/posts/0006-modern-irc/index.org @@ -4,14 +4,12 @@ #+EMAIL: yann@esposito.host #+DATE: [2019-10-19 Sat] #+KEYWORDS: self-hosting, chat, irc -#+DESCRIPTION: How to modernize IRC +#+DESCRIPTION: Why and how to have modern and respectful chat system with IRC. #+OPTIONS: auto-id:t toc:t #+begin_notes -tl;dr: Why and how to have modern and respectful chat system with IRC. - After reviewing and testing many different chat solutions the clear winner -is IRC. More precisely via those softwares: +(at least for my taste) is IRC. More precisely via those softwares: - IRC - ZNC (with playback and palaver module) - weechat with replay script (terminal client) diff --git a/src/posts/0007-switch-iterm-profile-catalina/index.org b/src/posts/0007-switch-iterm-profile-catalina/index.org index 045e6be..c8f589b 100644 --- a/src/posts/0007-switch-iterm-profile-catalina/index.org +++ b/src/posts/0007-switch-iterm-profile-catalina/index.org @@ -3,7 +3,7 @@ #+EMAIL: yann@esposito.host #+DATE: [2019-11-10 Sun] #+KEYWORDS: self-hosting, chat, irc -#+DESCRIPTION: Small script to change the profile of iTerm in sync with macOS preferences +#+DESCRIPTION: Change the profile of iTerm in sync with macOS preferences. #+OPTIONS: auto-id:t toc:nil #+begin_notes diff --git a/src/posts/0008-further-blog-changes/index.org b/src/posts/0008-further-blog-changes/index.org index 7138efc..658f434 100644 --- a/src/posts/0008-further-blog-changes/index.org +++ b/src/posts/0008-further-blog-changes/index.org @@ -3,7 +3,7 @@ #+EMAIL: yann@esposito.host #+DATE: [2019-11-30 Sat] #+KEYWORDS: blog -#+DESCRIPTION: Recent changes on my blog system +#+DESCRIPTION: About recent changes on my blog system. #+OPTIONS: auto-id:t toc:nil When I started this new blog, I wanted to find something minimal to be able diff --git a/src/posts/0009-optim-nojs-website/index.org b/src/posts/0009-optim-nojs-website/index.org index 2de782b..5bfd068 100644 --- a/src/posts/0009-optim-nojs-website/index.org +++ b/src/posts/0009-optim-nojs-website/index.org @@ -3,7 +3,8 @@ #+EMAIL: yann@esposito.host #+DATE: [2019-12-06 Fri] #+KEYWORDS: blog, shell, script -#+DESCRIPTION: How to optimize the size of a full website by using information in both HTML and CSS. +#+DESCRIPTION: Optimize the size of a full static website by taking advantage +#+DESCRIPTION: of information found in both HTML and CSS. #+OPTIONS: auto-id:t toc:nil One of the major problem with CSS and HTML is that they are highly diff --git a/src/posts/0010-Haskell-Now/index.org b/src/posts/0010-Haskell-Now/index.org index 5d82863..910d35a 100644 --- a/src/posts/0010-Haskell-Now/index.org +++ b/src/posts/0010-Haskell-Now/index.org @@ -4,11 +4,13 @@ #+author: Yann Esposito #+EMAIL: yann@esposito.host #+keywords: Haskell, programming, functional, tutorial -#+DESCRIPTION: A short and intense introduction to Haskell.
-#+DESCRIPTION:
-#+DESCRIPTION: This is an update of my old (2012) article.
-#+DESCRIPTION: A lot of things have changed since then.
-#+DESCRIPTION: I took the time to read it again.
+#+DESCRIPTION: A short and intense introduction to Haskell. +#+DESCRIPTION: This is an update of my old (2012) article. +#+DESCRIPTION: A lot of things have changed since then. +#+DESCRIPTION: Mostly I changed my approach about the easiest way to install +#+DESCRIPTION: a Haskell playground. +#+DESCRIPTION: I removed the not as important part, and added a short +#+DESCRIPTION: introduction about starting a new project. #+OPTIONS: auto-id:t toc:t #+STARTUP: overview diff --git a/src/posts/0011-export-tangle-names/index.org b/src/posts/0011-export-tangle-names/index.org index 1f5f150..6521f94 100644 --- a/src/posts/0011-export-tangle-names/index.org +++ b/src/posts/0011-export-tangle-names/index.org @@ -3,7 +3,7 @@ #+author: Yann Esposito #+EMAIL: yann@esposito.host #+keywords: org-mode, blog -#+DESCRIPTION: add links to code block during orgmode export +#+DESCRIPTION: Add links to code block during orgmode export. #+OPTIONS: auto-id:t toc:t #+STARTUP: overview diff --git a/src/posts/0012-solaryzed-theme/index.org b/src/posts/0012-solaryzed-theme/index.org index 37726b4..acfe53c 100644 --- a/src/posts/0012-solaryzed-theme/index.org +++ b/src/posts/0012-solaryzed-theme/index.org @@ -4,7 +4,7 @@ #+EMAIL: yann@esposito.host #+keywords: colorscheme #+DESCRIPTION: A generalization of solarized (https://solaryzed.esy.fun). -#+DESCRIPTION: I tried to make keep the same fundamentals and to free some variables. +#+DESCRIPTION: I tried to keep the same fundamentals and to free some variables. #+OPTIONS: auto-id:t toc:t #+STARTUP: overview diff --git a/src/slides.org b/src/slides.org index 26a8d97..47d4b10 100644 --- a/src/slides.org +++ b/src/slides.org @@ -2,7 +2,6 @@ #+KEYWORDS: programming, presentations, slides #+AUTHOR: Yann Esposito #+EMAIL: yann@esposito.host -#+DESCRIPTION: #+LANGUAGE: en #+LANG: en #+OPTIONS: H:5