41 lines
1.1 KiB
EmacsLisp
41 lines
1.1 KiB
EmacsLisp
;;; 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.
|