Update some file paths

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")

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))