This commit is contained in:
Levi 2024-09-19 11:38:28 +02:00
parent 1a34ad1681
commit 9464b0bbff
3 changed files with 2 additions and 28 deletions

View File

@ -1,26 +0,0 @@
;;; module-alioth.el --- alioth automounts -*- lexical-binding: t; -*-
;;; Commentary:
;;; 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")))
(provide 'module-alioth)
;;; module-alioth.el ends here.

View File

@ -8,7 +8,7 @@
(require 'module-denote)
(require 'module-denote-index)
(require 'module-alioth) ;; depends on alioth for some functions
(require 'module-remotefs) ;; depends on alioth for some functions
(autoload 'my/denote-create-note "denote" nil t)

View File

@ -62,4 +62,4 @@
(provide 'module-remotefs)
;;; module-alioth.el ends here.
;;; module-remotefs.el ends here.