diff --git a/emacs/feature/feature-km.el b/emacs/feature/feature-km.el index 0c00004..c61766b 100644 --- a/emacs/feature/feature-km.el +++ b/emacs/feature/feature-km.el @@ -10,7 +10,7 @@ (require 'module-org-denote) (require 'module-org-drill) (require 'module-denote) -(require 'module-denote-multidir) +;;(require 'module-denote-multidir) (require 'module-denote-index) (require 'module-collect) diff --git a/emacs/module/module-denote-multidir.el b/emacs/module/module-denote-multidir.el index dfc2526..b706f93 100644 --- a/emacs/module/module-denote-multidir.el +++ b/emacs/module/module-denote-multidir.el @@ -15,14 +15,13 @@ (with-eval-after-load 'denote (defvar my/denote-local-notes-directory "~/notes/") - (defvar my/denote-remote-notes-directory "~/eris/notes/") + (defvar my/denote-remote-notes-directory "~/notes/") (setq denote-directory my/denote-local-notes-directory) (defun my/denote-open-or-create () "Ensure remotefs is mounted before creating or opening a note." (interactive) - (ensure-remote-mounted "eris") (let ((target (denote-file-prompt nil nil :no-require-match))) (if (and target (file-exists-p target)) (find-file target) diff --git a/emacs/module/module-denote.el b/emacs/module/module-denote.el index 1fac853..24321f9 100644 --- a/emacs/module/module-denote.el +++ b/emacs/module/module-denote.el @@ -11,7 +11,7 @@ (pkg/require 'denote) -(setq denote-directory "~/eris/notes/") +(setq denote-directory "~/notes/") (with-eval-after-load 'denote diff --git a/emacs/module/module-perspective.el b/emacs/module/module-perspective.el index 4b0ff15..2b6c229 100644 --- a/emacs/module/module-perspective.el +++ b/emacs/module/module-perspective.el @@ -27,7 +27,7 @@ ;; auto-create common perspectives (persp-switch "notes") -(dired "~/eris/notes") +(dired "~/notes") (persp-add-buffer (current-buffer)) (persp-switch "main") diff --git a/emacs/module/module-remotefs.el b/emacs/module/module-remotefs.el index f68cb8d..ce66a3a 100644 --- a/emacs/module/module-remotefs.el +++ b/emacs/module/module-remotefs.el @@ -10,9 +10,6 @@ (defvar remote-mounts nil "Alist of remote mounts. Each entry is (name . (remote-path local-mountpoint)).") -(add-to-list 'remote-mounts '("alioth" . ("lkn@alioth.uberspace.de:/home/lkn/" "~/alioth"))) -(add-to-list 'remote-mounts '("eris" . ("lkn@eris.fritz.box:/home/lkn/" "~/eris"))) - (defun ensure-remote-mounted (name) "Check if the remote mount NAME is mounted, and if not, mount it." (let* ((mount-info (assoc name remote-mounts))