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? Thanks Uwe Brauer
[-- Attachment #1: Type: text/plain, Size: 1187 bytes --] >>> "UB" == Uwe Brauer <oub@mat.ucm.es> writes: > 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? It seems that https://github.com/JayDugger/.emacs.d/blob/master/el-get/org-fstree/org-fstree.el Does what I want. That pkg is 8 years old maybe there is a more recent pkg with a similar feature? Regards Uwe Brauer [-- Attachment #2: smime.p7s --] [-- Type: application/pkcs7-signature, Size: 5673 bytes --]
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))))))
[-- Attachment #1: Type: text/plain, Size: 623 bytes --] > Dear Uwe, > * Uwe Brauer <oub@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. [-- Attachment #2: smime.p7s --] [-- Type: application/pkcs7-signature, Size: 5673 bytes --]
On 2020-12-11 03:09, Uwe Brauer wrote:
>> Dear Uwe,
>> * Uwe Brauer <oub@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
* TRS-80 <lists.trs-80@isnotmyreal.name> [2020-12-11 19:21]:
> On 2020-12-11 03:09, Uwe Brauer wrote:
> > > Dear Uwe,
> > > * Uwe Brauer <oub@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... ;)
It is more Org related. In my opinion all built-in Org hyperlink types
should be already integrated in Org, probably also this is integrated.
The org-store-link actually works in Dired.
The org-insert-last-link works to put link into buffer
So it is just iteration missing.