fschl
/
emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add org-cv, fix capturing letter 

Signed-off-by: Frieder Schlesier <frieder@fschl.de>
This commit is contained in:
Frieder Schlesier 2023-07-19 22:29:03 +02:00
parent fc9a69a894
commit b3baf67eb4
2 changed files with 90 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
fschl-org.el
View File

@ -5,7 +5,6 @@
;;(add-to-list 'package-selected-packages 'org-roam) ;;(add-to-list 'package-selected-packages 'org-roam)
(add-to-list 'package-selected-packages 'ox-latex) (add-to-list 'package-selected-packages 'ox-latex)
(add-to-list 'package-selected-packages 'ox-koma-letter) (add-to-list 'package-selected-packages 'ox-koma-letter)
(add-to-list 'package-selected-packages 'ox-moderncv)
(package-install-selected-packages :noconfirm) (package-install-selected-packages :noconfirm)
;;(setq org-roam-directory (file-truename "~/org-roam")) ;;(setq org-roam-directory (file-truename "~/org-roam"))
@ -51,22 +50,48 @@
("PHONE" :foreground "forest green" :weight bold)))) ("PHONE" :foreground "forest green" :weight bold))))
(eval-after-load 'ox '(require 'ox-koma-letter)) (eval-after-load 'ox '(require 'ox-koma-letter))
(eval-after-load 'ox '(require 'ox-moderncv)) (eval-after-load 'ox '(require 'ox-moderncv))
(eval-after-load 'ox-koma-letter (eval-after-load 'ox '(require 'ox-awesomecv))
'(progn (eval-after-load 'ox-koma-letter
(add-to-list 'org-latex-classes '(progn
'("Brief-de-modern" (add-to-list 'org-latex-classes
"\\documentclass\[Brief-de-modern\]\{scrlttr2\} '("Brief-de-modern"
\[DEFAULT-PACKAGES] "\\documentclass\[Brief-de-modern\]\{scrlttr2\}
\[PACKAGES] \[DEFAULT-PACKAGES]
\[EXTRA]")) \[PACKAGES]
\[EXTRA]"))
;; \\usepackage[english]{babel} ;; \\usepackage[english]{babel}
;; \\setkomavar{frombank}{(1234)\\,567\\,890} ;; \\setkomavar{frombank}{(1234)\\,567\\,890}
(setq org-koma-letter-default-class "Brief-de-modern"))) (setq org-koma-letter-default-class "Brief-de-modern")))
(defvar letter-template
"* Preamble :noexport: (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/") ))
(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: ? \# #+TITLE: ?
\# #+DATE: \# #+DATE:
\ \
@ -88,28 +113,6 @@
\* Mit freundlichen Grüßen, :closing: \* Mit freundlichen Grüßen, :closing:
\ \
Frieder Schlesier") Frieder Schlesier")
(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)
letter-template
)
("m" "Schedule a meeting" entry ("m" "Schedule a meeting" entry
(file+headline "~/Documents/Org/tasks.org") (file+headline "~/Documents/Org/tasks.org")
"* MEETING %?\n SCHEDULED: %^T\n %a" "* MEETING %?\n SCHEDULED: %^T\n %a"
@ -128,6 +131,9 @@ Frieder Schlesier")
) )
) )
(use-package ox-awesomecv
:load-path "~/src/org-cv/"
:init (require 'ox-awesomecv))
(use-package ox-moderncv (use-package ox-moderncv
:load-path "~/src/org-cv/" :load-path "~/src/org-cv/"
:init (require 'ox-moderncv)) :init (require 'ox-moderncv))

86
fschl-org.org
View File

@ -11,7 +11,6 @@
;;(add-to-list 'package-selected-packages 'org-roam) ;;(add-to-list 'package-selected-packages 'org-roam)
(add-to-list 'package-selected-packages 'ox-latex) (add-to-list 'package-selected-packages 'ox-latex)
(add-to-list 'package-selected-packages 'ox-koma-letter) (add-to-list 'package-selected-packages 'ox-koma-letter)
(add-to-list 'package-selected-packages 'ox-moderncv)
(package-install-selected-packages :noconfirm) (package-install-selected-packages :noconfirm)
#+end_src #+end_src
@ -80,44 +79,28 @@
*** Export Letter *** Export Letter
#+begin_src emacs-lisp #+begin_src emacs-lisp
(eval-after-load 'ox '(require 'ox-koma-letter)) (eval-after-load 'ox '(require 'ox-koma-letter))
(eval-after-load 'ox '(require 'ox-moderncv)) (eval-after-load 'ox '(require 'ox-moderncv))
(eval-after-load 'ox-koma-letter (eval-after-load 'ox '(require 'ox-awesomecv))
'(progn (eval-after-load 'ox-koma-letter
(add-to-list 'org-latex-classes '(progn
'("Brief-de-modern" (add-to-list 'org-latex-classes
"\\documentclass\[Brief-de-modern\]\{scrlttr2\} '("Brief-de-modern"
\[DEFAULT-PACKAGES] "\\documentclass\[Brief-de-modern\]\{scrlttr2\}
\[PACKAGES] \[DEFAULT-PACKAGES]
\[EXTRA]")) \[PACKAGES]
\[EXTRA]"))
;; \\usepackage[english]{babel} ;; \\usepackage[english]{babel}
;; \\setkomavar{frombank}{(1234)\\,567\\,890} ;; \\setkomavar{frombank}{(1234)\\,567\\,890}
(setq org-koma-letter-default-class "Brief-de-modern"))) (setq org-koma-letter-default-class "Brief-de-modern")))
(defvar letter-template
"* Preamble :noexport: (defun fschl/create-org-letter ()
\# #+TITLE: ? "Create a new letter in ~/Documents/letters/ with filename and date"
\# #+DATE: (interactive)
\ (let ((name (read-string "Filename: ")))
\#+SUBJECT: Betreff des Briefs (expand-file-name (format "%s.org" name) "~/Documents/letters/") ))
\
\#+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")
#+end_src #+end_src
*** Capture Templates *** Capture Templates
@ -141,8 +124,28 @@
) )
("l" "letter to Documents/letters/<datetime.org>" ("l" "letter to Documents/letters/<datetime.org>"
entry (file fschl/create-org-letter) entry (file fschl/create-org-letter)
letter-template "* 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 ("m" "Schedule a meeting" entry
(file+headline "~/Documents/Org/tasks.org") (file+headline "~/Documents/Org/tasks.org")
"* MEETING %?\n SCHEDULED: %^T\n %a" "* MEETING %?\n SCHEDULED: %^T\n %a"
@ -165,8 +168,13 @@
** TeX and research ** TeX and research
- Write a CV in org-mode: https://titan-c.gitlab.io/org-cv/ - Write a CV in org-mode: https://titan-c.gitlab.io/org-cv/
cloned to Path =~/src/org-cv=
- requires: ~texlive-latex-extra texlive-xetex~ - requires: ~texlive-latex-extra texlive-xetex~
- =git clone https://github.com/posquit0/Awesome-CV ~/texmf/tex/latex/awesome-cv=
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package ox-awesomecv
:load-path "~/src/org-cv/"
:init (require 'ox-awesomecv))
(use-package ox-moderncv (use-package ox-moderncv
:load-path "~/src/org-cv/" :load-path "~/src/org-cv/"
:init (require 'ox-moderncv)) :init (require 'ox-moderncv))