From mboxrd@z Thu Jan  1 00:00:00 1970
From: xavier at maillard.im (Xavier Maillard)
Date: Thu, 22 Feb 2018 21:44:31 +0100
Subject: [Howm-eng 141] Re: Note file alias
In-Reply-To: <87vaepdtiq.wl@id.domain>
References: <87eflqsplg.fsf@smugg> <87d11asphu.fsf@smugg>
	<87vaepdtiq.wl@id.domain>
Message-ID: <87woz4kb4g.fsf@maillard.im>

Hi,

khi at 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