diff options
| -rw-r--r-- | blog/index.org | 65 | ||||
| -rw-r--r-- | blog/post.org | 2 | ||||
| -rw-r--r-- | generated/blog/index.html | 223 | ||||
| -rw-r--r-- | generated/blog/post.html | 8 |
4 files changed, 296 insertions, 2 deletions
diff --git a/blog/index.org b/blog/index.org new file mode 100644 index 0000000..62167c8 --- /dev/null +++ b/blog/index.org @@ -0,0 +1,65 @@ +#+TITLE: Blogin sisällys + +#+begin_src emacs-lisp :exports results + + (defun get-org-file-property (path property) + "Gets PROPERTY of org file at PATH. Returns nil if not found." + (with-temp-buffer (setq case-fold-search t) + (insert-file-contents path) + (if (search-forward (concat "#+" property ":") nil t) + (string-trim-left (buffer-substring (point) (line-end-position))) + nil))) + + (defun get-org-file-title (name) + "Gets the title of the org file. Returns nil if not found." + (get-org-file-property name "TITLE")) + + (defun get-file-date (path) + "Gets the date of the file at PATH. + For an Org file where the date option is specified, it is used. + Otherwise the file modification date is used. + The date is returned in textual form, YYYY-MM-DD." + (or (if (string= (file-name-extension path) "org") + (get-org-file-property path "DATE") + nil) + (format-time-string "%Y-%m-%d" + (file-attribute-modification-time + (file-attributes (concat "./" name)))))) + + (defun generate-entry + (name) + "Generates an index entry for file NAME." + (let ((extension (file-name-extension name)) (bname (file-name-sans-extension name))) + (concat "[[./" + name + "][" + (or + (if (string= extension "org") + (get-org-file-title (concat "./" name)) + nil) + bname) + "]] (" + (get-file-date (concat "./" name)) + ") " + (or (if (string= extension "org") + (get-org-file-property (concat "./" name) "SUBTITLE") + nil) + "Alaotsikkoa ei saatavilla")))) + + (let ((files + (seq-filter (lambda (name) + (not (or + (string-suffix-p "~" name) + (string-suffix-p "#" name) + (string-prefix-p "#" name) + (string-prefix-p "." name) + (string= "index.org" name)))) + (directory-files "./")))) + (seq-map (lambda (name) `(,(generate-entry name))) files)) +#+end_src + +#+RESULTS: +| [[./post.org][Test-post-title]] (2026-06-12) Test subtitle | +| [[./tekstinsyotto.html][tekstinsyotto]] (2025-07-28) Alaotsikkoa ei saatavilla | +| [[./yksinkertaisesti-monipuolinen.txt][yksinkertaisesti-monipuolinen]] (2024-05-06) Alaotsikkoa ei saatavilla | + diff --git a/blog/post.org b/blog/post.org index b01a6c8..3f385cd 100644 --- a/blog/post.org +++ b/blog/post.org @@ -1,3 +1,5 @@ +#+TITLE: Test-post-title +#+SUBTITLE: Test subtitle * Test post diff --git a/generated/blog/index.html b/generated/blog/index.html new file mode 100644 index 0000000..13557a1 --- /dev/null +++ b/generated/blog/index.html @@ -0,0 +1,223 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" +"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> +<html xmlns="http://www.w3.org/1999/xhtml" lang="fi" xml:lang="fi"> +<head> +<!-- 2026-06-13 Sat 19:21 --> +<meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> +<meta name="viewport" content="width=device-width, initial-scale=1" /> +<title>Blogin sisällys</title> +<meta name="author" content="Joel Kronqvist" /> +<meta name="generator" content="Org Mode" /> +<style type="text/css"> + #content { max-width: 60em; margin: auto; } + .title { text-align: center; + margin-bottom: .2em; } + .subtitle { text-align: center; + font-size: medium; + font-weight: bold; + margin-top:0; } + .todo { font-family: monospace; color: red; } + .done { font-family: monospace; color: green; } + .priority { font-family: monospace; color: orange; } + .tag { background-color: #eee; font-family: monospace; + padding: 2px; font-size: 80%; font-weight: normal; } + .timestamp { color: #bebebe; } + .timestamp-kwd { color: #5f9ea0; } + .org-right { margin-left: auto; margin-right: 0px; text-align: right; } + .org-left { margin-left: 0px; margin-right: auto; text-align: left; } + .org-center { margin-left: auto; margin-right: auto; text-align: center; } + .underline { text-decoration: underline; } + #postamble p, #preamble p { font-size: 90%; margin: .2em; } + p.verse { margin-left: 3%; } + pre { + border: 1px solid #e6e6e6; + border-radius: 3px; + background-color: #f2f2f2; + padding: 8pt; + font-family: monospace; + overflow: auto; + margin: 1.2em; + } + pre.src { + position: relative; + overflow: auto; + } + pre.src:before { + display: none; + position: absolute; + top: -8px; + right: 12px; + padding: 3px; + color: #555; + background-color: #f2f2f299; + } + pre.src:hover:before { display: inline; margin-top: 14px;} + /* Languages per Org manual */ + pre.src-asymptote:before { content: 'Asymptote'; } + pre.src-awk:before { content: 'Awk'; } + pre.src-authinfo::before { content: 'Authinfo'; } + pre.src-C:before { content: 'C'; } + /* pre.src-C++ doesn't work in CSS */ + pre.src-clojure:before { content: 'Clojure'; } + pre.src-css:before { content: 'CSS'; } + pre.src-D:before { content: 'D'; } + pre.src-ditaa:before { content: 'ditaa'; } + pre.src-dot:before { content: 'Graphviz'; } + pre.src-calc:before { content: 'Emacs Calc'; } + pre.src-emacs-lisp:before { content: 'Emacs Lisp'; } + pre.src-fortran:before { content: 'Fortran'; } + pre.src-gnuplot:before { content: 'gnuplot'; } + pre.src-haskell:before { content: 'Haskell'; } + pre.src-hledger:before { content: 'hledger'; } + pre.src-java:before { content: 'Java'; } + pre.src-js:before { content: 'Javascript'; } + pre.src-latex:before { content: 'LaTeX'; } + pre.src-ledger:before { content: 'Ledger'; } + pre.src-lisp:before { content: 'Lisp'; } + pre.src-lilypond:before { content: 'Lilypond'; } + pre.src-lua:before { content: 'Lua'; } + pre.src-matlab:before { content: 'MATLAB'; } + pre.src-mscgen:before { content: 'Mscgen'; } + pre.src-ocaml:before { content: 'Objective Caml'; } + pre.src-octave:before { content: 'Octave'; } + pre.src-org:before { content: 'Org mode'; } + pre.src-oz:before { content: 'OZ'; } + pre.src-plantuml:before { content: 'Plantuml'; } + pre.src-processing:before { content: 'Processing.js'; } + pre.src-python:before { content: 'Python'; } + pre.src-R:before { content: 'R'; } + pre.src-ruby:before { content: 'Ruby'; } + pre.src-sass:before { content: 'Sass'; } + pre.src-scheme:before { content: 'Scheme'; } + pre.src-screen:before { content: 'Gnu Screen'; } + pre.src-sed:before { content: 'Sed'; } + pre.src-sh:before { content: 'shell'; } + pre.src-sql:before { content: 'SQL'; } + pre.src-sqlite:before { content: 'SQLite'; } + /* additional languages in org.el's org-babel-load-languages alist */ + pre.src-forth:before { content: 'Forth'; } + pre.src-io:before { content: 'IO'; } + pre.src-J:before { content: 'J'; } + pre.src-makefile:before { content: 'Makefile'; } + pre.src-maxima:before { content: 'Maxima'; } + pre.src-perl:before { content: 'Perl'; } + pre.src-picolisp:before { content: 'Pico Lisp'; } + pre.src-scala:before { content: 'Scala'; } + pre.src-shell:before { content: 'Shell Script'; } + pre.src-ebnf2ps:before { content: 'ebfn2ps'; } + /* additional language identifiers per "defun org-babel-execute" + in ob-*.el */ + pre.src-cpp:before { content: 'C++'; } + pre.src-abc:before { content: 'ABC'; } + pre.src-coq:before { content: 'Coq'; } + pre.src-groovy:before { content: 'Groovy'; } + /* additional language identifiers from org-babel-shell-names in + ob-shell.el: ob-shell is the only babel language using a lambda to put + the execution function name together. */ + pre.src-bash:before { content: 'bash'; } + pre.src-csh:before { content: 'csh'; } + pre.src-ash:before { content: 'ash'; } + pre.src-dash:before { content: 'dash'; } + pre.src-ksh:before { content: 'ksh'; } + pre.src-mksh:before { content: 'mksh'; } + pre.src-posh:before { content: 'posh'; } + /* Additional Emacs modes also supported by the LaTeX listings package */ + pre.src-ada:before { content: 'Ada'; } + pre.src-asm:before { content: 'Assembler'; } + pre.src-caml:before { content: 'Caml'; } + pre.src-delphi:before { content: 'Delphi'; } + pre.src-html:before { content: 'HTML'; } + pre.src-idl:before { content: 'IDL'; } + pre.src-mercury:before { content: 'Mercury'; } + pre.src-metapost:before { content: 'MetaPost'; } + pre.src-modula-2:before { content: 'Modula-2'; } + pre.src-pascal:before { content: 'Pascal'; } + pre.src-ps:before { content: 'PostScript'; } + pre.src-prolog:before { content: 'Prolog'; } + pre.src-simula:before { content: 'Simula'; } + pre.src-tcl:before { content: 'tcl'; } + pre.src-tex:before { content: 'TeX'; } + pre.src-plain-tex:before { content: 'Plain TeX'; } + pre.src-verilog:before { content: 'Verilog'; } + pre.src-vhdl:before { content: 'VHDL'; } + pre.src-xml:before { content: 'XML'; } + pre.src-nxml:before { content: 'XML'; } + /* add a generic configuration mode; LaTeX export needs an additional + (add-to-list 'org-latex-listings-langs '(conf " ")) in .emacs */ + pre.src-conf:before { content: 'Configuration File'; } + + table { border-collapse:collapse; } + caption.t-above { caption-side: top; } + caption.t-bottom { caption-side: bottom; } + td, th { vertical-align:top; } + th.org-right { text-align: center; } + th.org-left { text-align: center; } + th.org-center { text-align: center; } + td.org-right { text-align: right; } + td.org-left { text-align: left; } + td.org-center { text-align: center; } + dt { font-weight: bold; } + .footpara { display: inline; } + .footdef { margin-bottom: 1em; } + .figure { padding: 1em; } + .figure p { text-align: center; } + .equation-container { + display: table; + text-align: center; + width: 100%; + } + .equation { + vertical-align: middle; + } + .equation-label { + display: table-cell; + text-align: right; + vertical-align: middle; + } + .inlinetask { + padding: 10px; + border: 2px solid gray; + margin: 10px; + background: #ffffcc; + } + #org-div-home-and-up + { text-align: right; font-size: 70%; white-space: nowrap; } + textarea { overflow-x: auto; } + .linenr { font-size: smaller } + .code-highlighted { background-color: #ffff00; } + .org-info-js_info-navigation { border-style: none; } + #org-info-js_console-label + { font-size: 10px; font-weight: bold; white-space: nowrap; } + .org-info-js_search-highlight + { background-color: #ffff00; color: #000000; font-weight: bold; } + .org-svg { } +</style> +<link rel="stylesheet"type="text/css" href="../static/global.css"> +</head> +<body> +<div id="content" class="content"> +<h1 class="title">Blogin sisällys</h1> +<table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides"> + + +<colgroup> +<col class="org-left" /> +</colgroup> +<tbody> +<tr> +<td class="org-left"><a href="./post.html">Test-post-title</a> (2026-06-12) Test subtitle</td> +</tr> + +<tr> +<td class="org-left"><a href="./tekstinsyotto.html">tekstinsyotto</a> (2025-07-28) Alaotsikkoa ei saatavilla</td> +</tr> + +<tr> +<td class="org-left"><a href="./yksinkertaisesti-monipuolinen.txt">yksinkertaisesti-monipuolinen</a> (2024-05-06) Alaotsikkoa ei saatavilla</td> +</tr> +</tbody> +</table> +</div> +</body> +</html> diff --git a/generated/blog/post.html b/generated/blog/post.html index d615cd4..2605de8 100644 --- a/generated/blog/post.html +++ b/generated/blog/post.html @@ -3,10 +3,10 @@ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" lang="fi" xml:lang="fi"> <head> -<!-- 2026-06-12 Fri 01:48 --> +<!-- 2026-06-12 Fri 19:45 --> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <meta name="viewport" content="width=device-width, initial-scale=1" /> -<title>‎</title> +<title>Test-post-title</title> <meta name="author" content="Joel Kronqvist" /> <meta name="generator" content="Org Mode" /> <style type="text/css"> @@ -197,6 +197,10 @@ </head> <body> <div id="content" class="content"> +<h1 class="title">Test-post-title +<br /> +<span class="subtitle">Test subtitle</span> +</h1> <div id="outline-container-orgfa8ca1d" class="outline-2"> <h2 id="orgfa8ca1d">Test post</h2> <div class="outline-text-2" id="text-orgfa8ca1d"> |