Re: Re: create links for all marked files in dired

From: Phil Jackson <phil@shellarchive.co.uk>
To: Fabian Braennstroem <f.braennstroem@gmx.de>
Cc: emacs-orgmode@gnu.org
Subject: Re: Re: create links for all marked files in dired
Date: Mon, 26 Nov 2007 12:29:01 +0000	[thread overview]
Message-ID: <87y7cli41e.fsf@shellarchive.co.uk> (raw)
In-Reply-To: <fic6vf$bm5$1@ger.gmane.org> (Fabian Braennstroem's message of "Sun\, 25 Nov 2007 17\:17\:17 +0000")

[-- Attachment #1: Type: text/plain, Size: 857 bytes --]

Fabian Braennstroem <f.braennstroem@gmx.de> writes:

> Hi Carsten,
>
> Carsten Dominik schrieb am 11/25/2007 02:22 PM:
>> On 11/25/07, Fabian Braennstroem <f.braennstroem@gmx.de> 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.

[-- Attachment #2: Zsh shell script --]
[-- Type: text/plain, Size: 629 bytes --]

#!/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 "${@}"

[-- Attachment #3: Type: text/plain, Size: 14 bytes --]

Cheers,
Phil

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode