bugfixes
This commit is contained in:
parent
1a34ad1681
commit
9464b0bbff
|
|
@ -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.
|
||||
|
|
@ -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)
|
||||
|
||||
|
|
|
|||
|
|
@ -62,4 +62,4 @@
|
|||
|
||||
(provide 'module-remotefs)
|
||||
|
||||
;;; module-alioth.el ends here.
|
||||
;;; module-remotefs.el ends here.
|
||||
|
|
|
|||
Loading…
Reference in New Issue