From a7caed4ecb2327c4fc1a490f00aa5751469cad54 Mon Sep 17 00:00:00 2001
From: Ariane Troche <ariane@familie-troche.de>
Date: Mon, 1 Feb 2021 20:59:38 +0100
Subject: [PATCH] Emacs: Org-Download und Org-Journal

---
 config.org | 36 +++++++++++++++++++++++++++++++-----
 1 file changed, 31 insertions(+), 5 deletions(-)

diff --git a/config.org b/config.org
index 4d286ad..91d95a1 100644
--- a/config.org
+++ b/config.org
@@ -969,7 +969,8 @@
           (find-file-at-point artr/file-grocery)
           (outline-next-heading)
           (flush-lines "CLOSED:.*")
-          (flush-lines "^$")))
+          (flush-lines "^$")
+          (org-map-entries '(org-todo "") "/+DONE" 'file)))
     #+END_SRC
 
 ** Erweiterungen
@@ -1013,6 +1014,28 @@
         :bind ("C-x c i" . org-cliplink))
     #+END_SRC
 
+*** Org-Download
+    Org-Download vereinfacht das Arbeiten mit von Bildern. Ich nutze hier die Möglichkeit Screenshots in meine Notizen einzufügen (C-c n s). 
+    Die Bilder werden im /Notes/-Ordner in einem Unterverzeichnis gespeichert, welches den
+    Namen der Level-0 Überschrift hat.
+    Als Screenshot-Tool wird das Programm maim verwendet
+    Das Bild wird auf eine Breite von 600px skaliert dargestellt.
+    #+BEGIN_SRC emacs-lisp
+      (use-package org-download
+        :ensure t
+        :config
+        (add-hook 'dired-mode-hook 'org-download-enable)
+        :bind
+        ("C-c n s" . 'org-download-screenshot))
+
+      (setq-default org-download-image-dir (concat artr/dir-notes "img/"))
+      (setq-default org-download-heading-lvl 0)
+
+      (setq org-download-screenshot-method "maim -s %s")
+
+      (setq org-image-actual-width 600)
+    #+END_SRC
+
 *** Org-Notmuch
     Schnittstelle zu Notmuch. So lassen sich Links zu Emails erstellen.
     *Achtung:* Das Paket heißt jetzt /ol-notmuch/ und nicht /org-notmuch/
@@ -1022,7 +1045,8 @@
         :after org)
     #+END_SRC
 
-*** Org-CalDav
+*** Org-
+    CalDav
     Ich übertrage meine Termine aus der Datei /kalender.org/ in meinen Nextcloud-Klalender.
     Es gibt einen Familienkalender und jedes Familienmitglied hat seinen eigenen Kalender.
     Für den Tennisverein und die IGP gibt es jeweils einen eigenen Kalender.
@@ -1109,9 +1133,6 @@
         (defun iso-end-of-week (year week)
           "Gibt den internen Zeitwert zurück zum 1. Tag der angegebenen Woche und dem angegegbenen Jahr"
           (iso-week-to-time year week 7))
-
-        (defun iso-next-month ()
-          (org-read-date nil t "+1m"))
       #+END_SRC
 
 ***** Hilfsfunktionen zum Erzeugen der Titel
@@ -1144,6 +1165,11 @@
       #+END_SRC
 
 ***** Jornal für nächsten Monat
+      #+BEGIN_SRC emacs-lisp
+        (defun artr/create-journal-for-next-month ()
+          (interactive)
+          (org-journal-new-entry nil (org-read-date nil t "1 +1m")))
+      #+END_SRC
 
 **** Konfiguration
      Org-Journal zum führen eines Tagebuchs.