* [Zsh](doc/zsh.md)

Zsh

====

The Z shell (zsh) is a Unix shell that can be used as an interactive

login shell and as a powerful command interpreter for shell scripting.

Main Configuration

------------------

Zsh is configured by using the `zsh-home-type` service type.

**Scheme Procedure**: zsh-home-type

The type of service that generates configuration files for zsh.  Its value

is a zsh-configuration object.

**Data Type**: zsh-configuration

Data type that represents the Zsh configuration.  This data type has the

following fields:

* **rc** (default *default-zshrc*): the content of the `.zshrc` file.  This is

  a list of strings and

* **env** (default *default-zshenv*): the content of the `.zshenv`

  file.

* **login** (default *default-zlogin*): the content of the `.zlogin`

  file.

* **logout** (default *default-zlogout*): the content of the `.zlogout`

  file.

* **profile** (default *default-zprofile*): the content of the `.zprofile`

  file.

* **history** (default #f): the location of the `.zsh_history` file for saving

  history.  The location must be read-write accessible to your user.

Example Configuration

---------------------

```scheme

(user-home

  zsh-home-type

  (zsh-configuration

    (rc (append default-zshrc

                '("alias vim=nvim")))

    (profile (append default-zprofile

                     `("EDITOR=nvim\n"

               ;; Minetest would not work without this :/

                       "export MINETEST_SUBGAME_PATH="

               ,(@@ (gnu packages games) minetest-data)

               "/share/minetest/games/")))

    (history "/data/alice/.zsh_history")))

```

;;; Guix Home Manager.

;;;

;;; Copyright ?? 2020 Z572 <873216071@qq.com>

;;;

;;; This program is free software: you can redistribute it and/or modify

;;; it under the terms of the GNU General Public License as published by

;;; the Free Software Foundation, either version 3 of the License, or

;;; (at your option) any later version.

;;;

;;; This program is distributed in the hope that it will be useful,

;;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;;; GNU General Public License for more details.

;;;

;;; You should have received a copy of the GNU General Public License

;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

(define-module (home zsh)

  #:use-module (guix build utils)

  #:use-module (guix gexp)

  #:use-module (guix records)

  #:use-module (ice-9 match)

  #:use-module (home)

  #:export (zsh-configuration

            zsh-configuration-env

            zsh-configuration-history

            zsh-configuration-login

            zsh-configuration-logout

            zsh-configuration-profile

            zsh-configuration-rc

            default-zshrc

            default-zshenv

            default-zlogin

            default-zlogout

            default-zprofile

            zsh-home-type))

(define default-zshrc

  `("

if [[ $- != *i* ]]; then

  # Non interative shell. For SSH session, load /etc/profile to get

  # PATH and other variables set up.

    [[ -n \"$SSH_CLIENT\" ]] && source /etc/profile

  return

fi

if [ -n \"$GUIX_ENVIRONMENT\" ]; then

        PS1='%n@%m %~ [env]$ '

else

        PS1='%n@%m %~$ '

fi

fpath=(~/.config/guix/current/share/zsh/site-functions $fpath)

autoload -Uz compinit && compinit -u

alias ls='ls -p --color=auto'

alias ll='ls -l'

alias grep='grep --color=auto'

"))

(define default-zshenv

  `(""))

(define default-zlogin

  `(""))

(define default-zlogout

  `(""))

(define default-zprofile

  `("if [ -f ~/.zshrc ]; then . ~/.zshrc; fi

# Workaround guix bug (not adding load path before processing the command name)

export GUILE_LOAD_PATH=~/.config/guix/current/share/guile/site/3.0:$GUILE_LOAD_PATH

export GUILE_LOAD_COMPILED_PATH=~/.config/guix/current/lib/guile/3.0/site-ccache:\

$GUILE_LOAD_COMPILED_PATH

"))

(define-record-type* <zsh-configuration>

  zsh-configuration make-zsh-configuration

  zsh-configuration?

  (rc      zsh-configuration-rc

           (default default-zshrc))

  (env     zsh-configuration-env

           (default default-zshenv))

  (login   zsh-configuration-login

           (default default-zlogin))

  (logout  zsh-configuration-logout

           (default default-zlogout))

  (profile zsh-configuration-profile

           (default default-zprofile))

  (history zsh-configuration-history))

(define zsh-home-type

  (home-type

   (name 'zsh)

   (extensions

    (list

     (home-extension

      (target root-home-type)

      (compute

       (lambda (config)

         (match config

           (($ <zsh-configuration> rc env login logout profile history)

            (let ((zshenv (apply mixed-text-file "zshenv" env))

                  (zlogin (apply mixed-text-file "zlogin" login))

                  (zlogout (apply mixed-text-file "zlogout" logout))

                  (zshrc (apply mixed-text-file "zshrc" rc))

                  (zprofile (apply mixed-text-file "zprofile" profile)))

              `((".zsh_history" ,history)

                (".zshrc" ,zshrc)

                (".zlogin" ,zlogin)

                (".zlogout" ,zlogout)

                (".zshenv" ,zshenv)

                (".zprofile" ,zprofile))))))))))))