add elisp versions of fschl-org, fschl-publish
Signed-off-by: Frieder Schlesier <frieder@fschl.de>
This commit is contained in:
parent
b164801f7f
commit
078dd7805b
|
|
@ -0,0 +1,101 @@
|
|||
(setq org-roam-directory (file-truename "~/org-roam"))
|
||||
(org-roam-db-autosync-mode)
|
||||
|
||||
(require 'org-projectile)
|
||||
|
||||
(eval-after-load 'ox '(require 'ox-koma-letter))
|
||||
(eval-after-load 'ox-koma-letter
|
||||
'(progn
|
||||
(add-to-list 'org-latex-classes
|
||||
'("Brief-de-modern"
|
||||
"\\documentclass\[Brief-de-modern\]\{scrlttr2\}
|
||||
\[DEFAULT-PACKAGES]
|
||||
\[PACKAGES]
|
||||
\[EXTRA]"))
|
||||
|
||||
;; \\usepackage[english]{babel}
|
||||
;; \\setkomavar{frombank}{(1234)\\,567\\,890}
|
||||
|
||||
(setq org-koma-letter-default-class "Brief-de-modern")))
|
||||
|
||||
(setq org-default-notes-file "~/Documents/Org/tasks.org")
|
||||
(setq org-agenda-files
|
||||
(quote ("~/Documents/Org/tasks.org"
|
||||
"~/Documents/Org/journal.org"
|
||||
"~/Documents/Org/private.org"
|
||||
"~/Documents/Org/projects.org"
|
||||
"~/Documents/Org/birthdays.org")))
|
||||
|
||||
(defun fschl/create-org-letter ()
|
||||
"Create a new letter in ~/Documents/letters/ with filename and date"
|
||||
(interactive)
|
||||
(let ((name (read-string "Filename: ")))
|
||||
(expand-file-name (format "%s.org" name) "~/Documents/letters/") ))
|
||||
|
||||
;; https://orgmode.org/manual/Template-elements.html
|
||||
;; https://orgmode.org/manual/Template-expansion.html
|
||||
(setq org-capture-templates
|
||||
'(("t" "todo list item" entry
|
||||
(file+olp+datetree "~/Documents/Org/tasks.org")
|
||||
"* TODO %?\n SCHEDULED: %^T"
|
||||
:tree-type month
|
||||
)
|
||||
("T" "todo list item with source" entry
|
||||
(file+olp+datetree "~/Documents/Org/tasks.org")
|
||||
"* TODO %?\n %a \n SCHEDULED: %^T \n %^G \n"
|
||||
:tree-type month
|
||||
)
|
||||
|
||||
("r" "Todo research some website/software" entry
|
||||
(file+olp+datetree "~/Documents/Org/tasks.org")
|
||||
"* TODO %?\n SCHEDULED: %^T \n %^L \n"
|
||||
:tree-type month
|
||||
)
|
||||
("l" "letter to Documents/letters/<datetime.org>"
|
||||
entry (file fschl/create-org-letter)
|
||||
"* Preamble :noexport:
|
||||
# #+TITLE: ?
|
||||
# #+DATE:
|
||||
|
||||
#+SUBJECT: Betreff des Briefs
|
||||
|
||||
#+LCO: Absender-Frieder
|
||||
# #+LCO: Absender-Marcelle
|
||||
# #+LCO: Absender-FamilieSchlesier
|
||||
#+LCO: Brief-de-modern
|
||||
#+STARTUP: showall
|
||||
|
||||
* To-address :to:
|
||||
|
||||
# * From :from:
|
||||
|
||||
* Sehr geehrte Damen und Herren,
|
||||
?
|
||||
|
||||
* Mit freundlichen Grüßen, :closing:
|
||||
|
||||
Frieder Schlesier"
|
||||
)
|
||||
("m" "Schedule a meeting" entry
|
||||
(file+headline "~/Documents/Org/tasks.org")
|
||||
"* MEETING %?\n SCHEDULED: %^T\n %a"
|
||||
)
|
||||
|
||||
("p" "Schedule a phone call" entry
|
||||
(file+headline "~/Documents/Org/tasks.org")
|
||||
"* PHONE %?\n SCHEDULED: %^T\\n %a"
|
||||
)
|
||||
|
||||
("a" "Articles: keep notes of online articles"
|
||||
entry
|
||||
(file+datetree "~/Documents/Org/journal.org")
|
||||
"* %? \n%x \n %u\n- $?"
|
||||
:tree-type month
|
||||
:kill-buffer t
|
||||
:empty-lines-before 1)
|
||||
)
|
||||
)
|
||||
|
||||
(setq org-ref-default-bibliography '("~/Documents/references/references.bib")
|
||||
org-ref-pdf-directory "~/Documents/references/"
|
||||
org-ref-bibliography-notes "~/Documents/references/notes.org")
|
||||
|
|
@ -0,0 +1,117 @@
|
|||
(add-to-list 'package-selected-packages 'org-roam)
|
||||
(add-to-list 'package-selected-packages 'org-roam-ui)
|
||||
(add-to-list 'package-selected-packages 'simple-httpd)
|
||||
(add-to-list 'package-selected-packages 'htmlize)
|
||||
(add-to-list 'package-selected-packages 'websocket)
|
||||
(add-to-list 'package-selected-packages 'f)
|
||||
(package-install-selected-packages :noconfirm)
|
||||
|
||||
(require 'htmlize)
|
||||
(require 'org-roam)
|
||||
(require 'org-roam-ui)
|
||||
(require 'ox-publish)
|
||||
|
||||
(setq org-export-with-broken-links 'mark)
|
||||
(setq org-export-html-coding-system 'utf-8-unix)
|
||||
(setq org-html-doctype "html5")
|
||||
(defvar fschlde-html-head "<link type='text/css' rel='stylesheet' href='../css/plain.css'>")
|
||||
(setq fschlde-html-footer " <footer>\nfschl.de 2018-2023\n</footer>")
|
||||
|
||||
;; following two funcs are taken from
|
||||
;; https://www.orgroam.com/manual.html#How-do-I-publish-my-notes-with-an-Internet_002dfriendly-graph_003f
|
||||
;; sitemap function for my roam-publish
|
||||
(defun roam-sitemap (title list)
|
||||
(concat "#+OPTIONS: ^:nil author:nil html-postamble:nil\n"
|
||||
"#+SETUPFILE: ./simple_inline.theme\n"
|
||||
"#+HTML_HEAD_EXTRA: <link rel=\"stylesheet\" type=\"text/css\" href=\"../css/plain.css\" />\n"
|
||||
"#+TITLE: " title "\n\n"
|
||||
(org-list-to-org list) "\nfile:sitemap.svg"))
|
||||
|
||||
(setq my-publish-time 0) ; see the next section for context
|
||||
|
||||
;;
|
||||
(defun roam-publication-wrapper (plist filename pubdir)
|
||||
(org-roam-graph)
|
||||
(org-html-publish-to-html plist filename pubdir)
|
||||
(setq my-publish-time (cadr (current-time))))
|
||||
|
||||
(defun org-roam-custom-link-builder (node)
|
||||
(let ((file (org-roam-node-file node)))
|
||||
(concat (file-name-base file) ".html")))
|
||||
|
||||
(setq org-roam-graph-link-builder 'org-roam-custom-link-builder)
|
||||
|
||||
(add-hook 'org-roam-graph-generation-hook
|
||||
(lambda (dot svg) (if (< (- (cadr (current-time)) my-publish-time) 5)
|
||||
(progn (copy-file svg "~/projects/blog-fschlde/pkb/sitemap.svg" 't)
|
||||
(kill-buffer (file-name-nondirectory svg))
|
||||
(setq my-publish-time 0)))))
|
||||
|
||||
|
||||
(setq org-publish-project-alist
|
||||
'(("website"
|
||||
:components ("org-journal", "project-notes", "org-sites", "blog-rss", "blog-images"))
|
||||
("org-journal"
|
||||
:base-directory "~/Documents/Org/"
|
||||
:base-extension "org"
|
||||
:publishing-directory "~/projects/blog-fschlde/reads/"
|
||||
:recursive nil
|
||||
:publishing-function org-html-publish-to-html
|
||||
|
||||
:headline-levels 4
|
||||
:with-author t
|
||||
:with-creator nil
|
||||
:with-date t
|
||||
|
||||
:with-toc t
|
||||
:with-drawers nil
|
||||
|
||||
:html-link-home "/"
|
||||
:html-head nil ;; cleans up anything that would have been in there.
|
||||
;; :html-head-extra ,my-blog-extra-head
|
||||
:html-head-include-default-style nil
|
||||
:html-head-include-scripts nil
|
||||
|
||||
;; :html-preamble my-blog-header
|
||||
;; :html-postamble ,my-blog-footer
|
||||
)
|
||||
("project-notes"
|
||||
:base-directory "~/projects/"
|
||||
:base-extension "org"
|
||||
:publishing-directory "~/projects/blog-fschlde/projects/"
|
||||
:recursive nil
|
||||
:publishing-function org-html-publish-to-html
|
||||
:headline-levels 4)
|
||||
("org-sites"
|
||||
:base-directory "~/projects/fschlde-static/"
|
||||
:base-extension "org\\|css\\|js\\|ico\\|png\\|html"
|
||||
:publishing-directory "~/projects/blog-fschlde/"
|
||||
:recursive t
|
||||
:publishing-function org-publish-attachment
|
||||
|
||||
:html-link-home "/"
|
||||
;; :html-head ,fschlde-html-head ;; cleans up anything that would have been in there.
|
||||
:html-head-include-default-style nil
|
||||
:html-head-include-scripts nil
|
||||
:with-drawers nil
|
||||
:with-creator nil
|
||||
|
||||
;; :html-head-extra fschlde-html-head
|
||||
;; :html-postamble fschlde-html-footer
|
||||
:headline-levels 4)
|
||||
("roam"
|
||||
:base-directory "~/org-roam/"
|
||||
:auto-sitemap t
|
||||
:recursive nil
|
||||
:base-extension "org"
|
||||
:exclude ".stversions/\\|.stfolder"
|
||||
:sitemap-function roam-sitemap
|
||||
:sitemap-title "Roam Notes"
|
||||
:style "<link rel=\"stylesheet\" href=\"../css/plain.css\" type=\"text/css\">"
|
||||
:publishing-function roam-publication-wrapper
|
||||
:publishing-directory "~/projects/fschlde-static/pkb/"
|
||||
:section-number nil
|
||||
:table-of-contents t
|
||||
)
|
||||
)
|
||||
)
|
||||
Loading…
Reference in New Issue