init.slosh

(prn (version))

(prn "Using default slshrc written to \"~/.config/slosh/init.slosh\".")
(prn "Edit this file to remove this message and customize your shell")

; load the core lib
(load "core.slosh")

(defn parse-git-branch () (let (branch ($sh "git rev-parse --abbrev-ref HEAD 2>/dev/null"))
	(if (equal? branch "")
		(str "")
		(str "(" branch ")"))))

(defn get-pwd ()
	(str-replace (env 'PWD) (env 'HOME) "~"))

(defn set-prompt-tail (last-status)
    (let (
        debug (if (str-contains (version) "debug") "[DEBUG]" "")
        status (if (= last-status 0) "" (str "\x1b[31m(" last-status ")\x1b[39m"))
        )
    (if (= *euid* 0)
        (str "\x1b[31m" status "\n\x1b[31m" debug "λ #\x1b[39m ")
        (str "\x1b[32m" status "\n\x1b[32m" debug "λ >\x1b[39m "))))

(def *ns* "SLOSH")

(defn __prompt ()
    (str "\x1b[32m[" *ns* "]:" (env "HOST") ":\x1b[34m" (str-trim! (get-pwd)) "/\x1b[37m" (parse-git-branch) (set-prompt-tail *last-status*)))

(sh "alias ls='/bin/ls --color -F'")
(sh "alias ll='/bin/ls --color -Falh'")
(sh "alias vi=nvim")
(sh "alias vim=nvim")

(sh "export PATH=/bin:/usr/local/bin:~/bin:~/.cargo/bin")

(sh "export LC_ALL=en_US.UTF-8")

; load and activate syntax highlighting on the prompt
(load "sh-color.slosh")
(syntax-on)