pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 04:11:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Migrating object-files to syncthing

Browse source
This commit is contained in:
Benson Chu 2023-09-05 09:59:03 +08:00
parent 412671a60e
commit c442c33629
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org-config/my-org-board.el
View file

@ -29,8 +29,8 @@
(when (setq my/is-plaintext-mega-folder t)
(setq org-attach-id-dir
(expand-file-name "org/org-board-data"
my/plaintext-mega-folder)))
(expand-file-name "org-board-data"
my/plaintext-object-folder)))
(use-package org-board :demand t)
(require 'org-board-custom-dispatcher)
@ -39,8 +39,8 @@
(setq org-board-wget-show-buffer nil)
(defun mob/warn-if-no-mega-folder ()
(or my/is-plaintext-mega-folder
(user-error "Hey, you should probably setup megasync before using this")))
(or my/plaintext-object-folder
(user-error "Hey, you should probably setup plaintext-objects folder before using this")))
(advice-add #'org-board-archive
:before-while

8
lisp/org-config/my-plaintext-files.el
View file

@ -24,12 +24,18 @@
;;; Code:
(ec/load-or-ask-pred 'my/is-plaintext-mega-folder "Is there a megasync directory? ")
(ec/load-or-ask-file 'my/plaintext-migration-folder "Where's the migration directory? ")
(ec/load-or-ask-pred 'my/is-plaintext-mega-folder "Is there a megasync directory? ")
(ec/load-or-ask-pred 'my/has-plaintext-object-folder "Have you setup the plaintext-object folder? ")
(when my/is-plaintext-mega-folder
(ec/load-or-ask-file 'my/plaintext-mega-folder "Where's the megasync directory? "))
(defvar my/plaintext-object-folder nil)
(when my/has-plaintext-object-folder
(ec/load-or-ask-file 'my/plaintext-object-folder "Where's the plaintext-object folder? "))
(defun my/plaintext-file (str)
(let ((result (expand-file-name str my/plaintext-migration-folder)))
(if (file-exists-p result)