Dear Uwe, * Uwe Brauer <o...@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))))))