#!/bin/bash

set -e
_help() {
  SELF=$( basename "$0" )
  echo "Console Clipboard manager

  Note: Copying happens only to a list. If source file is deleted, it
  can not be copied anymore.

  List clipboard names:
  $SELF l/list [clipboard]

  Make a link to clipboard:
  $SELF c/copy filename[s] [clipboard]

  Paste files using clipboard:
  $SELF p/paste [switches] [clipboardname[s]] [folder/]
    Default folder: .
    Switches:
    -s   Use soft link instead of file copying
    -l   Use hardlink instead of file copying
    -k   Keep clipboard link
    -m   Move instead of copy (can not be used with -h, can not -k)

  Delete source files using clipboard links (WARNING):
  $SELF rm/remove clipboardname[s]

  Edit links manually:
  $SELF e/edit clipboardname[s]
  Clear clipboard links:
  $SELF d/del clipboardname[s]
  Clear all clipboard links:
  $SELF D/Del

  Get autocomplete:
  $SELF autocomplete

  Config:
    CCLIP_HOME environment variable sets clipboard storage folder,
    defauls to ~/.cache/cclip
"
  exit
}


_load_config() {
  STORAGE=${CCLIP_HOME:-~/.cache/cclip}
  [[ -d "$STORAGE" ]] || {
    _msg "Creating $STORAGE folder"
    mkdir -p "$STORAGE"
  }
}

_list() {
  if [[ ! $( ls -A "${STORAGE}" ) ]]; then
    _msg "No clipboard entries"
    return
  fi
  if [[ $# -gt 1 ]]; then
    list_only="${2}"
  fi
  # TODO: single clipboard only

  longest=4
  for f in ${STORAGE}/*; do
    n=$( basename "$f" )
    if [[ $longest -lt ${#n} ]]; then
      longest=${#n}
    fi
  done
  hl=$( _qCol W    2>/dev/null || true )
  he=$( _qCol y U  2>/dev/null || true )
  no=$( _qCol z    2>/dev/null || true )
  now=$( date -Idate )
  printf "%s%-${longest}s %-10s %s%s\n" "$he" Name Added/Size Path "$no"
  IFS=$'\n'
  while read name; do
    if [[ -n "$list_only" ]]; then
      if [[ ! "$list_only" = "$name" ]]; then
        continue
      fi
    fi
    date=$( stat --printf "%y" "${STORAGE}/$name" )
    if [[ "$date" = "$now"* ]]; then
      date=${date#* }
      date="${date:0:8}"
    else
      date=${date%% *}
      date="${date:2:8}"
    fi
    printf "%-${longest}s %-10s\n" \
        "$name" \
        "${date}"
    while read f; do
        if [[ ! -e "$f" ]]; then
          size=MISS"!"
        else
          size=$( du -k -h -s --apparent-size "$f" | awk '{ print $1 }' )
        fi

        printf "%-${longest}s %5s %s%s%s\n" \
            " " \
            "$size" \
            "$hl" "${f}" \
            "$no"
    done < "${STORAGE}/$name"
  done < <( ls "${STORAGE}" -t )
}

_simple_list() {
  ls -1 "$STORAGE"
}


_copy() {
  numargs=$#
  if [[ $# -lt 2 ]]; then
    _help
  fi
  for i in $@; do :; done
  if [[ ! -e "$i" ]]; then
    CLIPBOARD=$( echo "$i" | tr -d './' | tr -cd '[[:print:]]' )
    if [[ -z "$CLIPBOARD" ]]; then
      _msg "Invalid clipboard name: '$i'"
      exit 1
    fi
    numargs=$(( numargs - 1 ))
  fi
  for (( i=2; i<=$numargs; i++ )); do
    #~ name=$( basename "${!i}" | tr -c '[:alnum:],_.\n\r' "-" )
    name=$( basename "${!i}" )
    origname="$name"
    path=$( readlink -f "${!i}" )
    if [[ -d "$path" ]]; then
        path="$path/"
    fi
    printf "%s\n" "$path" >> "$STORAGE/${CLIPBOARD}"
  done
  sort -u -o "$STORAGE/${CLIPBOARD}" "$STORAGE/${CLIPBOARD}"
  _list l "$CLIPBOARD"
}


_edit() {
  numargs=$#
  if [[ $# -lt 2 ]]; then
    _help
  fi
  for (( i=2; i<=$numargs; i++ )); do
    CLIPBOARD=$( echo "${!i}" | tr -d './' | tr -cd '[[:print:]]' )
    if [[ ! -f "$STORAGE/${!i}" ]]; then
      echo "No such clipboard: ${!i}"
      continue
    fi
    ${VISUAL:-vim} "$STORAGE/${CLIPBOARD}"
      _list l "$CLIPBOARD"
  done

}


_paste() {
  numargs=$#
  keeplink=1
  for (( i=2; i<=$#; i++ )); do
    case ${!i} in
      -s) softlink=1; ;;
      -l) hardlink=1; ;;
      -d) keeplink=0; ;;
      -m) movelink=1; ;;
      *)
        if [[ ! -f "$STORAGE/${!i}" ]]; then
          # no such clipboard
          if [[ $i -gt 2 ]]; then
          if [[ $i -eq $numargs ]]; then
            # but argument is last (but not only)
            OUTPUT=${!i}
            numargs=$(( numargs - 1 ))
            continue
          fi
          fi
          echo No such clipboard: ${!i}
          return
        fi
        ;;
    esac
  done

  echo "Pasting to folder: $OUTPUT"
  mkdir -p "$OUTPUT"
  for (( i=2; i<=$numargs; i++ )); do
    if [[ "${!i}" =~ ^-.$ ]]; then
      continue
    fi
    single_copied=1
    _paste_clipboard "${!i}"
  done

  if [[ ! "$single_copied" = 1 ]]; then
      _paste_clipboard "$CLIPBOARD"
  fi

}


_paste_clipboard() {
  if [[ ! -f "$STORAGE/$1"  ]];then
    _msg "No such clipboard: '$1'"
    return
  fi
  while read f; do
    _paste_single "$f"
  done < "${STORAGE}/$1"

  if [[ "$movelink" = 1 ]]; then
    keeplink=0
  fi
  if [[ "$softlink" = 1 ]]; then
    keeplink=1
  fi
  if [[ ! "$keeplink" = 1 ]]; then
    echo "Removing link: $1"
    rm "$STORAGE/$1"
  fi

}


_paste_single() {
  if [[ ! -e "$1" ]]; then
    _msg "No such path: $1"
    return
  fi
  target=$( basename "$1" )
  if [[ -d "$1" ]]; then
    extension=""
    basetarget="${target}"
  else
    if [[ "$target" = *.* ]]; then
      basetarget="${target%.*}"
      extension=."${target##*.}"
    else
      extension=""
      basetarget="${target}"
    fi
  fi
  origbase="$basetarget"

  post=0
  while [[ -e "${OUTPUT}/${basetarget}${extension}" ]]; do
      post=$(( post + 1 ))
      basetarget="${origbase}-${post}"
  done
  target="${basetarget}${extension}"

  # -L  dereference symlinks,  -P no-deref  (keep as symlink)
  # -H  follow symlinks
  if [[ "$movelink" = 1 ]]; then
    echo Moving "${1} -> $target"
    mv "$1" "$target"
    return $?
  fi

  if [[ "$softlink$hardlink" = "11" ]]; then
    _msg "Can not do both soft and hard link"
    exit 1
  fi

  if [[ "$softlink" = 1 ]]; then
    echo Symbolic link "${1} -> ${OUTPUT}/$target"
    ln -s "${1}" "${OUTPUT}/$target"
    return $?
  fi

  if [[ "$hardlink" = 1 ]]; then
    echo Hard link "${1} -> ${OUTPUT}/$target"
    cp -aTl "${1}" "${OUTPUT}/$target"
    return $?
  fi

  echo Copying "${1} -> ${OUTPUT}/$target"
  cp -aT "${1}" "${OUTPUT}/$target" || return

}


_remove() {
  # Remove files based on clipboard
  if [[ $# -lt 2 ]]; then
    _help
  fi
  for (( i=2; i<=$#; i++ )); do
    CLIPBOARD=$( echo "${!i}" | tr -d './' | tr -cd '[[:print:]]' )

    if [[ ! -e "$STORAGE/${CLIPBOARD}"  ]];then
      _msg "No such clipboard: '${CLIPBOARD}'"
      continue
    fi
    _list l "$CLIPBOARD"
    echo "Sure to delete? [Enter]"
    read foo
    while read f; do
      if [[ ! -e "$f" ]]; then
        _msg "No such path: '$f'"
        continue
      fi
      echo "Removing SOURCE data: ${f}"
      rm -r "$f" || exit 1
    done < "${STORAGE}/$CLIPBOARD"

    echo "Removing clipboard: ${CLIPBOARD}"
    rm "$STORAGE/${CLIPBOARD}"
  done
}

_delete() { # name
  if [[ $# -lt 2 ]]; then
    _help
  fi
  for (( i=2; i<=$#; i++ )); do
    name=$( basename "${!i}" )
    if [[ ! -e "$STORAGE/$name" ]]; then
      _msg "No such clipboard '$name'"
      EC=1
      continue
    fi
    printf "Clearing %s:\n" "$name"
    cat "$STORAGE/$name"
    rm "$STORAGE/$name"
  done
}

_delete_all() {
  [[ -e "$STORAGE" ]] || {
    exit 0
  }
  _simple_list
  [[ "$FORCE" -ne 1 ]] && {
    read -p "Really clear the whole clipboard? ($STORAGE) Break to cancel. " foo
  }
  rm -vrf "$STORAGE/"
  mkdir "$STORAGE"
}

_msg() {
    echo "$@"
}

_gui() {
# GUI is intended for mc (midnight commander)
# Example menu config
# 5   cclip
#     cclip mc %s

   CLIPBOARD=mc
   fileargs=$(( $# - 1 ))
   while :; do
     _list l $CLIPBOARD

     echo "$fileargs files selected"
     read -s -p "(q)uit/(c)opy/(p)aste/(d)elete/(e)dit/(b)oard" -n 1 key
     echo $'\n'
     if [[ "$key" = "q" ]]; then
       break
     fi
     if [[ "$key" = "c" ]]; then
       _copy c "${@:2}"
       break
     fi
     if [[ "$key" = "p" ]]; then
       _paste
       break
     fi
     if [[ "$key" = "d" ]]; then
       _delete d mc
       break
     fi
     if [[ "$key" = "e" ]]; then
       _edit e mc
     fi
     if [[ "$key" = "b" ]]; then
       echo -n "Populated clipboards: "
       _simple_list | xargs echo
       echo Change board:
       read -e -i "$CLIPBOARD" CLIPBOARD
     fi
   done
}

_get_completer() {
  self=$( basename $( readlink -f "$0" ) )
  echo '_CCLIP_EXEC_complete() {
local curr_arg
curr_arg=${COMP_WORDS[COMP_CWORD]}
if [[ $COMP_CWORD -eq 1 ]]; then
  COMPREPLY=( $(compgen -W "help autocomplete l list c copy p paste delete Delete" -- $curr_arg ) );
fi
if [[ $COMP_CWORD -eq 2 ]]; then
  case ${COMP_WORDS[$(( $COMP_CWORD - 1 ))]} in
    p|paste|d*|e|edit|rm|remove)
      local IFS=$'"'"'\n'"'"'
      local remotelist=( $( eval CCLIP_EXEC simplelist ) )
      COMPREPLY=( $(compgen -W "${remotelist[*]}" -- $curr_arg ) );
    ;;
    c*)
      COMPREPLY=( $(compgen -f -d -X '' -- $curr_arg ) );
    ;;
  esac
fi

}
complete -F _CCLIP_EXEC_complete CCLIP_EXEC
# Run me as: source <( CCLIP_EXEC autocomplete )
' | sed "s,CCLIP_EXEC,$self,g"
  exit 0
}


for (( i=1; i<=$#; i++ )); do
  [[ "${!i}" = "-h" ]] && _help
  [[ "${!i}" = "--help" ]] && _help
done
_load_config
source qolop &>/dev/null || true
CMD="${1:-list}"
CLIPBOARD=0
OUTPUT=.
[[ "$CMD" = help || "$CMD" = h || "$CMD" = "-h" || "$CMD" = "--help" ]] && { _help; }
[[ "$CMD" = "l" || "$CMD" = "list" ]] && { _list "$@"; }
[[ "$CMD" = "c" || "$CMD" = "copy" ]] && { _copy "$@"; }
[[ "$CMD" = "d" || "$CMD" = "delete" || "$CMD" = "del" ]] && { _delete "$@"; }
[[ "$CMD" = "D" || "$CMD" = "Delete" || "$CMD" = "Del" ]] && { _delete_all; }
[[ "$CMD" = "e" || "$CMD" = "edit" ]] && { _edit "$@"; }
[[ "$CMD" = "p" || "$CMD" = "paste" ]] && { _paste "$@"; }
[[ "$CMD" = "rm" || "$CMD" = "remove" ]] && { _remove "$@"; }
[[ "$CMD" = "mc" ]] && { _gui "$@"; }

[[ "$1" = "autocomplete" ]] && { _get_completer; exit; }
[[ "$1" = "simplelist" ]] && { _simple_list; exit; }

exit $EC