contrib/scripts/dir2org.zsh

   1 #!/usr/bin/env zsh
   2
   3 # desc:
   4 #
   5 # Output an org compatible structure representing the filesystem from
   6 # the point passed on the command line (or . by default).
   7 #
   8 # options:
   9 #     none
  10 #
  11 # usage:
  12 #     dir2org.zsh [DIR]...
  13 #
  14 # author:
  15 #     Phil Jackson (phil@shellarchive.co.uk)
  16
  17 set -e
  18
  19 function headline {
  20     local depth="${1}"
  21     local text="${2}"
  22
  23     printf "%${depth}s %s" "" | tr ' ' '*'
  24     echo " ${text}"
  25 }
  26
  27 function scan_and_populate {
  28     local depth="${1}"
  29     local dir="${2}"
  30
  31     headline ${depth} "${dir}"
  32
  33     # if there is no files in dir then just move on
  34     [[ $(ls "${dir}" | wc -l) -eq 0 ]] && return
  35
  36     (( depth += 1 ))
  37
  38     for f in $(ls -d "${dir}"/*); do
  39         if [ -d "${f}" ]; then
  40             scan_and_populate ${depth} "${f}"
  41         else
  42             headline ${depth} "[[file://${f}][${${f##*/}%.*}]]"
  43         fi
  44     done
  45
  46     (( depth -= 1 ))
  47 }
  48
  49 function main {
  50     local scan_dir="${1:-$(pwd)}"
  51     local depth=0
  52
  53     scan_and_populate ${depth} "${scan_dir}"
  54 }
  55
  56 main "${@}"