From 1a34ad1681ced4c2310c06f23dc4e919a3105783 Mon Sep 17 00:00:00 2001
From: Levi <lneely@pascom.net>
Date: Thu, 19 Sep 2024 09:17:08 +0200
Subject: [PATCH] generic remotefs mount/umount

---
 emacs/feature/feature-base.el   |  2 +-
 emacs/module/module-alioth.el   | 41 ---------------------
 emacs/module/module-remotefs.el | 65 +++++++++++++++++++++++++++++++++
 3 files changed, 66 insertions(+), 42 deletions(-)
 delete mode 100644 emacs/module/module-alioth.el
 create mode 100644 emacs/module/module-remotefs.el

diff --git a/emacs/feature/feature-base.el b/emacs/feature/feature-base.el
index edd96b3..e99535f 100644
--- a/emacs/feature/feature-base.el
+++ b/emacs/feature/feature-base.el
@@ -11,7 +11,7 @@
 (require 'module-detached)
 (require 'module-dired)
 (require 'module-async)
-(require 'module-alioth)
+(require 'module-remotefs)
 (require 'module-which-key)
 (require 'module-multi-cursor)
 (require 'module-eshell)
diff --git a/emacs/module/module-alioth.el b/emacs/module/module-alioth.el
deleted file mode 100644
index de752c3..0000000
--- a/emacs/module/module-alioth.el
+++ /dev/null
@@ -1,41 +0,0 @@
-;;; module-alioth.el --- alioth automount -*- lexical-binding: t; -*-
-;;;
-;;; Commentary:
-;;;
-;;; Automount alioth on demand.
-;;;
-;;; Code:
-
-
-(defun ensure-alioth-mounted ()
-  "Check if ~/alioth is mounted, and if not, mount it."
-  (unless (file-exists-p "~/alioth/.exists")
-    (mount-alioth-sshfs)))
-
-(defun umount-alioth-sshfs ()
-  "Unmount Alioth Uberspace using SSHFS."
-  (interactive)
-  (let ((default-directory "~"))
-    (shell-command "umount ~/alioth")))
-
-(defun mount-alioth-sshfs ()
-  "Mount Alioth Uberspace using SSHFS."
-  (interactive)
-  (let ((default-directory "~"))
-    (shell-command "sshfs lkn@alioth.uberspace.de:/home/lkn/ ~/alioth")))
-
-(add-hook 'find-file-hook
-          (lambda ()
-            (when (string-prefix-p (expand-file-name "~/alioth/")
-                                   (expand-file-name (buffer-file-name)))
-              (ensure-alioth-mounted))))
-
-(add-hook 'dired-mode-hook
-          (lambda ()
-            (when (string-prefix-p (expand-file-name "~/alioth/")
-                                   (expand-file-name default-directory))
-              (ensure-alioth-mounted))))
-
-(provide 'module-alioth)
-
-;;; module-alioth.el ends here.
diff --git a/emacs/module/module-remotefs.el b/emacs/module/module-remotefs.el
new file mode 100644
index 0000000..9418aac
--- /dev/null
+++ b/emacs/module/module-remotefs.el
@@ -0,0 +1,65 @@
+;;; module-remotefs.el --- remotefs automount -*- lexical-binding: t; -*-
+;;;
+;;; Commentary:
+;;;
+;;; Automount remotefs on demand.
+;;;
+;;; Code:
+
+
+(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))
+         (local-path (cadr (cdr mount-info))))
+    (unless (file-exists-p (expand-file-name ".exists" local-path))
+      (mount-remote-sshfs name))))
+
+(defun umount-remote-sshfs (name)
+  "Unmount the remote mount NAME using SSHFS."
+  (interactive
+   (list (completing-read "Unmount remote: " remote-mounts nil t)))
+  (let* ((mount-info (assoc name remote-mounts))
+         (local-path (cadr (cdr mount-info)))
+         (default-directory "~"))
+    (shell-command (format "umount %s" local-path))))
+
+(defun mount-remote-sshfs (name)
+  "Mount the remote mount NAME using SSHFS."
+  (interactive
+   (list (completing-read "Mount remote: " remote-mounts nil t)))
+  (let* ((mount-info (assoc name remote-mounts))
+         (remote-path (cadr mount-info))
+         (local-path (cadr (cdr mount-info)))
+         (default-directory "~"))
+    (shell-command (format "sshfs %s %s" remote-path local-path))))
+
+(defun check-and-mount-remote (path)
+  "Check if PATH is under a remote mount, and ensure it's mounted if so."
+  (let ((matching-mount
+         (cl-find-if
+          (lambda (mount)
+            (string-prefix-p
+             (expand-file-name (cadr (cdr mount)))
+             (expand-file-name path)))
+          remote-mounts)))
+    (when matching-mount
+      (ensure-remote-mounted (car matching-mount)))))
+
+(add-hook 'find-file-hook
+          (lambda ()
+            (when buffer-file-name
+              (check-and-mount-remote buffer-file-name))))
+
+(add-hook 'dired-mode-hook
+          (lambda ()
+            (check-and-mount-remote default-directory)))
+
+(provide 'module-remotefs)
+
+;;; module-alioth.el ends here.