27 lines
677 B
EmacsLisp
27 lines
677 B
EmacsLisp
;;; feature-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 'feature-alioth)
|
|
|
|
;;; feature-alioth.el ends here.
|