Re: from dired to an org file with list of files with links
* TRS-80 [2020-12-11 19:21]: > On 2020-12-11 03:09, Uwe Brauer wrote: > > > Dear Uwe, > > > * Uwe Brauer [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.
Re: from dired to an org file with list of files with links
On 2020-12-11 03:09, Uwe Brauer wrote: Dear Uwe, * Uwe Brauer [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
Re: from dired to an org file with list of files with links
> Dear Uwe, > * Uwe Brauer [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. smime.p7s Description: S/MIME cryptographic signature
Re: from dired to an org file with list of files with links
Dear Uwe, * Uwe Brauer [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))
[one pkf found] (was: from dired to an org file with list of files with links)
>>> "UB" == Uwe Brauer 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 smime.p7s Description: S/MIME cryptographic signature
from dired to an org file with list of files with links
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