Hi.
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)))
;;;;;;;;;;;;;;;;;;;;;;
--
[email protected]
_______________________________________________
Howm-eng mailing list
[email protected]
https://lists.osdn.me/mailman/listinfo/howm-eng
