From mboxrd@z Thu Jan  1 00:00:00 1970
From: khi at users.sourceforge.jp (khi at users.sourceforge.jp)
Date: Thu, 22 Feb 2018 22:49:01 +0900
Subject: [Howm-eng 140] Re: Note file alias
In-Reply-To: <87d11asphu.fsf@smugg>
References: <87eflqsplg.fsf@smugg>
	<87d11asphu.fsf@smugg>
Message-ID: <87vaepdtiq.wl@id.domain>

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

-- 
khi at users.osdn.me