[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Re: create links for all marked files in dired
From: |
Phil Jackson |
Subject: |
Re: [Orgmode] Re: create links for all marked files in dired |
Date: |
Mon, 26 Nov 2007 12:29:01 +0000 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.1 (gnu/linux) |
Fabian Braennstroem <address@hidden> writes:
> Hi Carsten,
>
> Carsten Dominik schrieb am 11/25/2007 02:22 PM:
>> On 11/25/07, Fabian Braennstroem <address@hidden> wrote:
>>> Hi,
>>> me again :-)
>>>
>>> is there a chance to create links from the marked files in a
>>> dired buffer using org-mode internal functions?
>>> It would help, when you have a bunch of e.g. images in one
>>> directory...
>>
>> Can you be more specific? How you like the output in Org-mode to
>> work? A link back to dired visiting this directory, or many links to
>> each individual file?
>
> Many links to each individual file would be great.
> Fabian
Off topic, I know, but you could use this as a temporary measure. I've
only just knocked it up and not really tested it so I'm sure there is
bugs. I might re-factor it soon and give it some options/features.
#!/usr/bin/env zsh
set -e
function headline {
depth="${1}"
text="${2}"
printf "%${depth}s %s" "" | tr ' ' '*'
echo " ${text}"
}
function scan_and_populate {
depth="${1}"
dir="${2}"
headline ${depth} "${dir}"
let "depth += 1"
for f in $(ls -d "${dir}"/* 2>/dev/null); do
if [ -d "${f}" ]; then
scan_and_populate ${depth} "${f}"
else
headline ${depth} "[[file://${f}][${${f##*/}%.*}]]"
fi
done
let "depth -= 1"
}
function main {
scan_dir="${1:-$(pwd)}"
depth=0
scan_and_populate ${depth} "${scan_dir}"
}
main "address@hidden"
Cheers,
Phil