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)))
;;;;;;;;;;;;;;;;;;;;;;

-- 
k...@users.osdn.me

_______________________________________________
Howm-eng mailing list
Howm-eng@lists.osdn.me
https://lists.osdn.me/mailman/listinfo/howm-eng

Reply via email to