squish.rkt

#lang racket/base

(require racket/string
         racket/system
         racket/list)

(provide squish-run)

(define (squish-error message)
  (printf "\033[31m!\033[30m ~a\033[0m" message)
  (newline))

(define (squish-run command)
  (cond
    ((regexp-match? #px"~> |cd " command)
      (if (directory-exists? (substring command 3))
          (current-directory (substring command 3))
          (squish-error "Directory not found")))
    
    ((string-contains? command "&")
      (define parts (regexp-split #px"&" command))
      (system (first parts))
      (system (last parts)))

    ((string-contains? command "->")
      (define parts (regexp-split #px"->" command))
      (system (string-append "mv " (first parts) " " (last parts))))


    ((equal? command "exit") (exit))
    (else (system command))))