;; stash-help.scm --- Help message module for Stash

(define-module (stash-help)
  #:export (display-help))

;;; Function to display help message
(define (display-help)
  "Display help message explaining how to use the program."
  (display "
Usage: stash.scm --source <source-dir> --target <target-dir> [options]
       stash.scm -s <source-dir> -t <target-dir> [options]

Stash is a Guile Scheme utility for moving directories and creating symlinks with conflict resolution.

Options:
  --source, -s    Specify the source directory to be moved.
  --target, -t    Specify the target directory where the symlink should be created.
  --version, -v   Show the current version of the program.
  --help, -h      Display this help message.

Examples:
  Using long options:
    guile -L . stash.scm --source ~/.config/test --target ~/.dotfiles/

  Using short options (without `=`):
    guile -L . stash.scm -s ~/.config/test -t ~/.dotfiles/

This command will move the directory ~/.config/test to ~/.dotfiles/.config/test and create a symlink in ~/.config pointing to the new location.
")
  (exit 0))