Hi, [email protected] 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 [email protected] https://lists.osdn.me/mailman/listinfo/howm-eng
