tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update some file paths

Browse source
This commit is contained in:
mez 2024-08-25 17:15:33 +01:00
parent 46427264ac
commit a025f50d1b
2 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
config.org
View file

@ -2,7 +2,7 @@
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(if (string-equal system-type "android") (if (string-equal system-type "android")
(setq fileroot "/storage/emulated/0/Documents/") (setq fileroot "/storage/emulated/0/Sync/")
(setq fileroot "~/Documents/drive/")) (setq fileroot "~/Documents/drive/"))
#+END_SRC #+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 (use-package calibredb
:defer t :defer t
:config :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-db-dir (expand-file-name "metadata.db" calibredb-root-dir))
(setq calibredb-library-alist '(("~/Documents/drive/calibre/ebooks") (setq calibredb-library-alist '(("~/Documents/calibre/books")
("~/Documents/drive/calibre/ffff") ("~/Documents/calibre/ficrecs")))
("~/Documents/drive/calibre/ovely")))
(setq calibredb-sort-by 'author) (setq calibredb-sort-by 'author)
(setq calibredb-order 'asc))) (setq calibredb-order 'asc)))
#+END_SRC #+END_SRC
@ -710,8 +709,8 @@ Set the files to be included.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(if (string-equal system-type "android") (if (string-equal system-type "android")
(if workhours (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/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/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/personal.org")))
(progn (progn
(add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/music.org") (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/music.org")
(add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/admin.org") (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/admin.org")

3
custom/fic.el
View file

@ -94,6 +94,9 @@
(while (re-search-forward "<hr>\n\n<p>" nil t) (while (re-search-forward "<hr>\n\n<p>" nil t)
(replace-match "</section>\n<section>\n<p class=\"newthought\">")) (replace-match "</section>\n<section>\n<p class=\"newthought\">"))
(goto-char (point-min)) (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) (while (re-search-forward "<div class=\"outline-text-2\" id=\".*\">" nil t)
(replace-match "")) (replace-match ""))
(goto-char (point-min)) (goto-char (point-min))