khi****@users*****
khi****@users*****
Thu Feb 22 22:49:01 JST 2018
ForkHi.
Do you mean something like this?
;;;;;;;;;;;;;;;;;;;;;;
(defvar my-make-symlink-dir "~/foo/")
(defun my-make-symlink ()
"Make a symbolic link to the current buffer's file under `my-make-symlink-dir'."
(interactive)
(mkdir (expand-file-name my-make-symlink-dir) t)
(let* ((f (buffer-file-name))
(l (expand-file-name (file-name-nondirectory f)
my-make-symlink-dir)))
(make-symbolic-link f l)
(message l)))
;;;;;;;;;;;;;;;;;;;;;;
--
khi****@users*****