On 2020-12-11 03:09, Uwe Brauer wrote:
Dear Uwe,
* Uwe Brauer <o...@mat.ucm.es> [2020-12-10 22:45]:

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

Thanks, that is very nice.
I played a bit around with org-fstree, that is also useful.

Indeed, nice function!

And what great and fast service!  :)

If I may be permitted to pick a nit; Uwe, you may want to prefix the
function with `my-` or `uwe-` or your initials, etc. for namespace
reasons.  Unless of course this is something Jean Louis is planning on
submitting as a patch to dired itself... ;)

Cheers,
TRS-80

Reply via email to