From: Steven Arntson <steven@stevenarntson.com>
To: emacs-orgmode@gnu.org
Subject: Re: open file link in dired?
Date: Tue, 09 Dec 2014 19:05:10 -0800 [thread overview]
Message-ID: <87a92w8as9.fsf@stevenarntson.com> (raw)
In-Reply-To: m2r416c63f.fsf@polytechnique.org
Alan Schmitt <alan.schmitt@polytechnique.org> writes:
> Hi Bastien,
>
> On 2013-01-04 17:33, Bastien <bzg@altern.org> writes:
>
>> Hi Alan,
>>
>> Alan Schmitt <alan.schmitt@polytechnique.org> writes:
>>
>>> Thank you, this would work nicely. However I don't know how to specify,
>>> when I open the file, which link-type to use. Would I need to modify the
>>> link itself from "file" to "file+emacs+dired" before opening it?
>>
>> Trying loading the attached .el file to get a new "dired" type.
>> Very crude but should work.
>
> I finally got around to test this, and here is a slightly improved
> version that handles filenames with spaces.
>
> #+begin_src emacs-lisp
> (org-add-link-type "file+emacs+dired" 'org-open-file-with-emacs-dired)
> (add-hook 'org-store-link-functions 'org-dired-store-link)
>
> (defun org-open-file-with-emacs-dired (path)
> "Open in dired."
> (let ((d (file-name-directory path))
> (f (file-name-nondirectory path)))
> (dired d)
> (goto-char (point-min))
> (search-forward f nil t)))
>
> (defun org-dired-store-link ()
> "Store link to files/directories from dired."
> (require 'dired+)
> (when (eq major-mode 'dired-mode)
> (let ((f (dired-get-filename)))
> (setq link (concat "file+emacs+dired" ":" f)
> desc (concat f " (dired)"))
> (org-add-link-props :link link :description desc)
> link)))
> #+end_src
>
> Thanks again (and thanks to Org for letting me remember this 18 months
> old task),
>
> Alan
I've been searching many moons for this exact functionality! I'm very
glad to run across this, but as a fairly new emacser, I'm not sure what
to do with this code. I copied it into my init.el, marked it and ran
'eval-region', but what do I call to use the functions? If I can get this
working, I will be using it every day.
Thank you!
steven arntson
next prev parent reply other threads:[~2014-12-10 3:05 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-01-04 14:36 open file link in dired? Alan Schmitt
2013-01-04 15:55 ` Bastien
2013-01-04 16:12 ` Alan Schmitt
2013-01-04 16:33 ` Bastien
2014-07-28 7:09 ` Alan Schmitt
2014-07-28 13:57 ` Bastien
2014-12-10 3:05 ` Steven Arntson [this message]
2014-12-10 7:48 ` Alan Schmitt
2014-12-10 9:51 ` Marcin Borkowski
2014-12-10 10:25 ` Alan Schmitt
2014-12-10 19:07 ` Steven Arntson
2014-12-11 7:36 ` Alan Schmitt
2014-12-11 20:22 ` Haider Rizvi
2014-12-12 8:02 ` Alan Schmitt
2014-12-12 15:22 ` Haider Rizvi
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87a92w8as9.fsf@stevenarntson.com \
--to=steven@stevenarntson.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).