File: dir2org.zsh

package info (click to toggle)
org-mode 9.1.14+dfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 8,884 kB
  • sloc: lisp: 142,310; xml: 1,055; makefile: 197; ansic: 14; sh: 5
file content (54 lines) | stat: -rwxr-xr-x 993 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
# desc:
#
# Output an org compatible structure representing the filesystem from
# the point passed on the command line (or . by default).
#
# options:
#     none
#
# usage:
#     dir2org.zsh [DIR]...
#
# author:
#     Phil Jackson (phil@shellarchive.co.uk)

set -e

function headline {
    local depth="${1}"
    local text="${2}"

    printf "%${depth}s %s" "" | tr ' ' '*'
    echo " ${text}"
}

function scan_and_populate {
    local depth="${1}"
    local dir="${2}"

    headline ${depth} "${dir}"

    # if there is no files in dir then just move on
    [[ $(ls "${dir}" | wc -l) -eq 0 ]] && return

    (( depth += 1 ))

    for f in $(ls -d "${dir}"/*); do
        if [ -d "${f}" ]; then
            scan_and_populate ${depth} "${f}"
        else
            headline ${depth} "[[file://${f}][${${f##*/}%.*}]]"
        fi
    done

    (( depth -= 1 ))
}

function main {
    local scan_dir="${1:-$(pwd)}"
    local depth=0

    scan_and_populate ${depth} "${scan_dir}"
}

main "${@}"