Hi,

k...@users.sourceforge.jp writes:

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

Yeah, that is definetely what I am looking for with one exception: 
I want to give a name to that alias and, maybe, I'd want it to be 
included in the *howm* menu buffer.

I will try to modify your snippet.

--
Xavier

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

Reply via email to