emacs-orgmode
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]