[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: from dired to an org file with list of files with links
From: |
Jean Louis |
Subject: |
Re: from dired to an org file with list of files with links |
Date: |
Fri, 11 Dec 2020 00:04:17 +0300 |
User-agent: |
Mutt/2.0 (3d08634) (2020-11-07) |
Dear Uwe,
* Uwe Brauer <oub@mat.ucm.es> [2020-12-10 22:45]:
>
> Hi
>
> Suppose via dired I see
>
> -rw-rw-r-- 1 oub oub 1003 dic 10 18:17 auto-org-md-autoloads.el
> -rw-rw-r-- 1 oub oub 2,0K dic 10 18:17 auto-org-md.el
> -rw-rw-r-- 1 oub oub 2,3K dic 10 18:17 auto-org-md.elc
> -rw-rw-r-- 1 oub oub 486 dic 10 18:17 auto-org-md-pkg.el
>
> I'd like to create a org file
> with lists these files and there links to it
>
> Like this
>
>
> [[file:.emacs.d/elpa/auto-org-md-20180213.2343/auto-org-md-autoloads.el][outo-org-md-autoloads.el]]
> [[file:.emacs.d/elpa/auto-org-md-20180213.2343/auto-org-md.el][outo-org-md.el]]
> [[file:.emacs.d/elpa/auto-org-md-20180213.2343/auto-org-md.el][outo-org-md.el]]
> [[file:.emacs.d/elpa/auto-org-md-20180213.2343/auto-org-md.elc][outo-org-md.elc]]
> [[file:.emacs.d/elpa/auto-org-md-20180213.2343/auto-org-md-pkg.elc][outo-org-md-pkg.elc]]
>
> Anybody know whether such a functionality/package exist?
(require 'dired-x)
(defun dired-to-org-links ()
"Generates Org links for Dired files and stores in memory. Yank
it in other buffer"
(interactive)
(let* ((files (dired-get-marked-files)))
(when files
(kill-new
(with-temp-buffer
(dolist (file files)
(let* ((base (file-name-nondirectory file))
(link (format "[[file:%s][%s]]\n" file base)))
(insert link)))
(buffer-string))))))