From a025f50d1b40ec9fcfc1985b4cd654d2db271ed7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?tr=C3=A9meur?= <git@praze.net>
Date: Sun, 25 Aug 2024 17:15:33 +0100
Subject: [PATCH] Update some file paths

---
 config.org    | 13 ++++++-------
 custom/fic.el |  3 +++
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/config.org b/config.org
index 25c212d..8d48913 100644
--- a/config.org
+++ b/config.org
@@ -2,7 +2,7 @@
 
 #+BEGIN_SRC emacs-lisp
   (if (string-equal system-type "android")
-      (setq fileroot "/storage/emulated/0/Documents/")
+      (setq fileroot "/storage/emulated/0/Sync/")
     (setq fileroot "~/Documents/drive/"))
 #+END_SRC
 
@@ -236,11 +236,10 @@ This may work only on Linux (it uses SQL???), but my ebooks are only on Linux so
     (use-package calibredb
       :defer t
       :config
-      (setq calibredb-root-dir "~/Documents/drive/calibre/ebooks")
+      (setq calibredb-root-dir "~/Documents/calibre/books")
       (setq calibredb-db-dir (expand-file-name "metadata.db" calibredb-root-dir))
-      (setq calibredb-library-alist '(("~/Documents/drive/calibre/ebooks")
-                                      ("~/Documents/drive/calibre/ffff")
-                                      ("~/Documents/drive/calibre/ovely")))
+      (setq calibredb-library-alist '(("~/Documents/calibre/books")
+                                      ("~/Documents/calibre/ficrecs")))
       (setq calibredb-sort-by 'author)
       (setq calibredb-order 'asc)))
 #+END_SRC
@@ -710,8 +709,8 @@ Set the files to be included.
 #+BEGIN_SRC emacs-lisp
   (if (string-equal system-type "android")
       (if workhours
-          (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/work.org" "/storage/emulated/0/Documents/org/calendar/acwri.org"))
-        (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/personal.org")))
+          (setq org-agenda-files '("/storage/emulated/0/Sync/org/calendar/admin.org" "/storage/emulated/0/Sync/org/calendar/music.org" "/storage/emulated/0/Sync/org/calendar/work.org" "/storage/emulated/0/Sync/org/calendar/acwri.org"))
+        (setq org-agenda-files '("/storage/emulated/0/Sync/org/calendar/admin.org" "/storage/emulated/0/Sync/org/calendar/music.org" "/storage/emulated/0/Sync/org/calendar/personal.org")))
     (progn
       (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/music.org")
       (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/admin.org")
diff --git a/custom/fic.el b/custom/fic.el
index 7be37c2..628ae0c 100644
--- a/custom/fic.el
+++ b/custom/fic.el
@@ -94,6 +94,9 @@
       (while (re-search-forward "<hr>\n\n<p>" nil t)
 	(replace-match "</section>\n<section>\n<p class=\"newthought\">"))
       (goto-char (point-min))
+      (while (re-search-forward "<hr>\n<p>" nil t)
+	(replace-match "</section>\n<section>\n<p class=\"newthought\">"))
+      (goto-char (point-min))
       (while (re-search-forward "<div class=\"outline-text-2\" id=\".*\">" nil t)
 	(replace-match ""))
       (goto-char (point-min))