cd homes

guix package -p /var/guix/profiles/per-user/tyreunom/home -L ../modules \

  -f sybil-home.scm

A nice aspect of this however, is that we can now create more modules to

support more software. These modules can be generic enough to be

useful to anyone with a simple configuration, just like services are

useful for system administrators. Home related modules can be found

in `(home)`, that is in `modules/home`.

[user]

	email = julien@lepiller.eu

	name = Julien Lepiller

	signingkey = 43111F4520086A0C

[sendemail]

	smtpencryption = tls

	smtpserver = lepiller.eu

	smtpuser = tyreunom

	smtpserverport = 587

	suppresscc = self

[alias]

    co = checkout

    ci = commit

    st = status

    br = branch

    # type = cat-file -t

    # dump = cat-file -p

    lol =  log --decorate=short --pretty=format:'%C(yellow) %h %C(white) %s %C(reset)(%C(green)%cN %C(bold blue)%cr%C(reset))%C(yellow)%d%C(reset)' --graph

    lolu =  log --decorate=short --pretty=format:'%C(yellow) %h %C(white) %s %C(reset)(%C(green)%cN %C(bold blue)%cr%C(reset))%C(yellow)%d%C(reset)' --graph --all

    lola = log --oneline --graph --decorate --all

    pl = pull --ff-only

    plr = pull --rebase

    rb = rebase --autosquash --autostash -i

    rc = rebase --continue

    clean-remote-branchs = !git remote prune origin && git fetch

    cif = commit --fixup=HEAD

    cf = commit --fixup # commit-id

    blame-follow = log -p -M --follow --stat --

    cp = cherry-pick

    ss = diff --staged

    p = push

    pf = push --force-with-lease

    fetch = fetch --prune

[color]

    branch = auto

    diff = auto

    interactive = auto

    status = auto

	ui = auto

[diff]

    wsErrorHighlight = all

    renameLimit = 20000

    algorithm = patience

[core]

    pager = less -F -X

[commit]

    verbose = yes

[Configuration]

MiscAlwaysShowTabs=FALSE

MiscBell=FALSE

MiscBordersDefault=TRUE

MiscCursorBlinks=FALSE

MiscCursorShape=TERMINAL_CURSOR_SHAPE_BLOCK

MiscDefaultGeometry=80x24

MiscInheritGeometry=FALSE

MiscMenubarDefault=FALSE

MiscMouseAutohide=FALSE

MiscToolbarDefault=FALSE

MiscConfirmClose=TRUE

MiscCycleTabs=TRUE

MiscTabCloseButtons=TRUE

MiscTabCloseMiddleClick=TRUE

MiscTabPosition=GTK_POS_TOP

MiscHighlightUrls=TRUE

ScrollingBar=TERMINAL_SCROLLBAR_NONE

FontName=Nimbus Mono L 14

ScrollingOnOutput=FALSE

ColorBackground=#0b17059e059e

ColorForeground=#fcfcafaf3e3e

ColorCursor=#3f3f4e4e5353

ColorBold=#586e75

ColorPalette=rgb(238,232,213);rgb(232,80,77);rgb(122,136,28);rgb(181,119,0);rgb(103,176,226);rgb(200,65,130);rgb(46,155,162);rgb(7,54,66);rgb(253,246,227);rgb(203,75,22);rgb(133,172,149);rgb(217,218,183);rgb(149,203,222);rgb(108,113,196);rgb(138,184,198);rgb(0,43,54)

TabActivityColor=#dc322f

MiscBellUrgent=FALSE

MiscMouseWheelZoom=TRUE

MiscMiddleClickOpensUri=FALSE

MiscCopyOnSelect=FALSE

MiscDefaultWorkingDir=

MiscRewrapOnResize=TRUE

MiscUseShiftArrowsToScroll=FALSE

MiscSlimTabs=FALSE

ScrollingUnlimited=TRUE

BackgroundMode=TERMINAL_BACKGROUND_TRANSPARENT

BackgroundDarkness=0,420000

(use-modules (home openbox))

(use-modules (home utils))

(use-modules (home))

(use-modules (gnu packages compton))

(use-modules (gnu packages dunst))

(use-modules (gnu packages games))

(use-modules (gnu packages ibus))

(use-modules (gnu packages image-viewers))

(use-modules (gnu packages pulseaudio))

(use-modules (gnu packages xfce))

(use-modules (guix gexp))

(use-modules (guix import utils)); for flatten

(define bashrc

  (computed-file "bashrc"

    #~(with-output-to-file #$output

        (lambda _

          (format #t "export SHELL

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

source /etc/bashrc

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

        PS1='\\u@\\h \\w [env]\\$ '

else

        PS1='\\u@\\h \\w\\$ '

fi

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

alias ll='ls -l'

alias grep='grep --color=auto'

alias vim='nvim'")))))

(define bash_profile

  (plain-file "bash_profile" "if [ -f ~/.bashrc ]; then . ~/.bashrc; fi

"))

(define gtkrc-2

  (plain-file "gtkrc-2.0" "gtk-theme-name=\"Arc-Dark\"

gtk-icon-theme-name=\"Arc\"

"))

(define gtkrc-3

  (plain-file "settings.ini" "[Settings]

gtk-theme-name=Arc-Dark

gtk-icon-theme-name=Arc

"))

(define gitconfig (local-file "files/gitconfig"))

(define openbox-rc (local-file "files/openbox/rc.xml"))

(define openbox-autostart

  (computed-file "autostart"

     #~(with-output-to-file #$output

         (lambda _

           (format #t "HOME=/tmp/pa ~a --start~%" #$(file-append pulseaudio "/bin/pulseaudio"))

           (format #t "~a --bg-fill ~a~%" #$(file-append feh "/bin/feh")

                   #$(local-file "/data/tyreunom/background.png"))

           (format #t "~a -CGb~%" #$(file-append compton "/bin/compton"))

           (format #t "~a -conf ~a &~%" #$(file-append dunst "/bin/dunst")

                   #$(plain-file "dunstrc" ""))

           (format #t "export GTK_IM_MODULE=ibus

export XMODIFIERS=@im=ibus

export QT_IM_MODULE=ibus

export GUIX_GTK2_IM_MODULE_FILE=~~/.guix-profile/lib/gtk-2.0/2.10.0/immodules-gtk2.cache

export GUIX_GTK3_IM_MODULE_FILE=~~/.guix-profile/lib/gtk-3.0/3.0.0/immodules-gtk3.cache

~a -drx~%" #$(file-append ibus "/bin/ibus-daemon"))))))

(define xfce4-terminalrc

  (local-file "files/xfce4-terminal/terminalrc"))

(home

  (flatten

    (list

      (openbox-home (openbox-configuration

                      (autostart openbox-autostart)

                      (menus

			(list

			  (openbox-menu

			    (id "apps-game-menu")

			    (label "Jeux")

			    (elements

			      (list

				(openbox-element-execute

				  (label "MineTest")

				  (command (file-append minetest "/bin/minetest"))))))))

                      (root-elements

			(list

			  (openbox-element-menu (id "apps-game-menu"))

			  (openbox-element-execute

			    (label "Terminal")

			    (command (file-append xfce4-terminal "/bin/xfce4-terminal")))))

                      (rc openbox-rc)))

      (simple-file-home bashrc ".bashrc")

      (simple-file-home bash_profile ".bash_profile")

      (simple-file-home gitconfig ".gitconfig")

      (simple-file-home gtkrc-2 ".gtkrc-2.0")

      (simple-file-home gtkrc-3 ".config/gtk-3.0/settings.ini")

      (simple-file-home xfce4-terminalrc ".config/xfce4/terminal/terminalrc"))))

(specifications->manifest

 '("hicolor-icon-theme" "arc-theme" "arc-icon-theme"

   "font-dejavu" "font-wqy-microhei" "font-linuxlibertine" "font-tamzen"

   "font-google-roboto" "font-terminus" "font-liberation" "font-google-noto"

   "font-fira-code"

   "guile-readline" "guile"

   "gettext" "unzip" "hunspell-dict-fr" "file" "licensecheck" "git:send-email"

   "bind:utils" "keepassxc" "gnupg" "pinentry" "youtube-dl" "git"

   "adb" "icedtea:jdk"

   "poedit"

   "zathura" "zathura-pdf-poppler" "owncloud-client"

   "transmission:gui" "pavucontrol" "ibus" "ibus-anthy"

   "dunst" "compton"

   "icecat" "hexchat" "claws-mail" "wget" "feh" "mpv" "libreoffice"

   "pcmanfm" "inkscape"

   "glibc-locales" "diffoscope"

   "python" "python-neovim" "neovim"))

;;; Tyreunom's system administration and configuration tools.

;;;

;;; Copyright ?? 2019 Julien Lepiller <julien@lepiller.eu>

;;;

;;; 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)

  #:use-module (guix build union)

  #:use-module (guix build utils)

  #:use-module (guix build-system trivial)

  #:use-module (guix gexp)

  #:use-module (guix licenses)

  #:use-module (guix packages)

  #:use-module (home build utils)

  #:export (home))

(define (home inputs)

  (define union

    (computed-file "home"

      #~(begin

          (use-modules (guix build union))

          (union-build #$output '#$inputs))

      #:options

      '(#:local-build? #t

        #:modules ((guix build union)))))

  (package

    (name "tyreunom-home")

    (version "0")

    (source #f)

    (build-system trivial-build-system)

    (arguments

     `(#:modules ((guix build utils) (home build utils))

       #:builder

       (begin

         (use-modules (guix build utils) (home build utils))

	 (mkdir-p (home-file %outputs ".config"))

         ;; TODO: manage profiles, plugins, etc through guix.

         (symlink "/data/tyreunom/.mozilla"

                  (home-file %outputs ".mozilla"))

         ;; For guix

         (symlink "/data/tyreunom/.config/guix"

                  (home-file %outputs ".config/guix"))

         (symlink "/data/tyreunom/.guix-profile"

                  (home-file %outputs ".guix-profile"))

         ;; symlink writeable directories

         (symlink "/data/tyreunom/.local"

                  (home-file %outputs ".local"))

         (symlink "/data/tyreunom/.cache"

                  (home-file %outputs ".cache"))

         ;; rest of the files

	 (with-directory-excursion (assoc-ref %build-inputs "union")

	 (for-each

	   (lambda (f)

	     (mkdir-p (home-file %outputs (dirname f)))

	     (symlink (string-append (assoc-ref %build-inputs "union") "/" f)

		      (home-file %outputs f)))

	   (find-files "." ".*"))))))

    (inputs

     `(("union" ,union)))

    (home-page "")

    (synopsis "")

    (description "")

    (license gpl3+)))

;;; Tyreunom's system administration and configuration tools.

;;;

;;; Copyright ?? 2019 Julien Lepiller <julien@lepiller.eu>

;;;

;;; 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 build utils)

  #:export (home-file))

(define (home-file outputs . path)

  (apply string-append (assoc-ref outputs "out") "/" path))

;;; Tyreunom's system administration and configuration tools.

;;;

;;; Copyright ?? 2019 Julien Lepiller <julien@lepiller.eu>

;;;

;;; 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 openbox)

  #:use-module (guix build utils)

  #:use-module (guix build-system trivial)

  #:use-module (guix gexp)

  #:use-module (guix licenses)

  #:use-module (guix packages)

  #:use-module (guix records)

  #:use-module (gnu packages lxde)

  #:use-module (ice-9 match)

  #:export (openbox-configuration

	    openbox-configuration?

	    openbox-configuration-autostart

	    openbox-configuration-environ

	    openbox-configuration-menu

	    openbox-configuration-rc

	    openbox-menu

            openbox-menu-id

            openbox-menu-label

            opebnox-menu-elements

            openbox-element-menu

            openbox-element-execute

            openbox-home))

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

  openbox-configuration make-openbox-configuration

  openbox-configuration?

  (autostart     openbox-configuration-autostart

		 (default #f))

  (environ       openbox-configuration-environ

		 (default #f))

  (menus         openbox-configuration-menus

		 (default '()))

  (root-elements openbox-configuration-root-elements

		 (default '()))

  (rc            openbox-configuration-rc

		 (default #f)))

(define-record-type* <openbox-menu>

  openbox-menu make-openbox-menu

  openbox-menu?

  (id       openbox-menu-id)

  (label    openbox-menu-label)

  (elements openbox-menu-elements))

(define-record-type* <openbox-element-menu>

  openbox-element-menu make-openbox-element-menu

  openbox-element-menu?

  (id openbox-element-menu-id))

(define-record-type* <openbox-element-execute>

  openbox-element-execute make-openbox-element-execute

  openbox-element-execute?

  (label   openbox-element-execute-label)

  (command openbox-element-execute-command)

  (notify? openbox-element-execute-notify?

           (default #t)))

(define (generate-openbox-menu menus root-menu)

  (define (element->item element)

    (match element

      (($ <openbox-element-menu> id)

       `(menu (@ (id ,id))))

      (($ <openbox-element-execute> label command notify?)

       `(item (@ (label ,label))

          (action (@ (name "Execute"))

            (command ,command)

            ,@(if notify? '(startupnotify (enabled "yes")) '()))))))

  #~(begin

      (use-modules (sxml simple))

      (with-output-to-file #$output

         (lambda _

           (sxml->xml

             `(openbox_menu (@ (xmlns "http://openbox.org/3.4/menu"))

                #$(map

                   (lambda (menu)

                     `(menu (@ (id ,(openbox-menu-id menu)) (label ,(openbox-menu-label menu)))

                        ,(map element->item (openbox-menu-elements menu))))

                   menus)

                (menu (@ (id "root-menu") (label "Openbox 3"))

                  #$(map element->item root-menu))))))))

(define (openbox-autostart autostart)

  (match autostart

    (#f (plain-file "autostart" ""))

    (_ autostart)))

(define (openbox-environment environ)

  (match environ

    (#f (plain-file "environ" ""))

    (_ environ)))

(define (openbox-rc rc)

  (match rc

    (#f (plain-file "rc.xml" ""))

    (_ rc)))

(define (openbox-home config)

  (computed-file "openbox-home"

    (match config

      (($ <openbox-configuration> autostart environ menus root-elements rc)

       #~(let ((menu.xml #$(computed-file "menu.xml" (generate-openbox-menu menus root-elements)))

	       (autostart #$(openbox-autostart autostart))

	       (environ #$(openbox-environment environ))

	       (rc #$(openbox-rc rc))

	       (openbox-dir (string-append #$output "/.config/openbox")))

	   (use-modules (guix build utils))

	   (mkdir-p openbox-dir)

	   (copy-file autostart (string-append openbox-dir "/autostart"))

	   (copy-file environ (string-append openbox-dir "/environment"))

	   (copy-file menu.xml (string-append openbox-dir "/menu.xml"))

	   (copy-file rc (string-append openbox-dir "/rc.xml")))))

    #:options

    '(#:local-build? #t

      #:modules ((guix build utils)))))

;;; Tyreunom's system administration and configuration tools.

;;;

;;; Copyright ?? 2019 Julien Lepiller <julien@lepiller.eu>

;;;

;;; 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/>.

  #:use-module (guix build utils)

  #:use-module (guix gexp)

  #:export (simple-file-home))

(define (simple-file-home file-gexp location)

  (computed-file "simple-file-home"

    #~(begin

	(use-modules (guix build utils))

        (mkdir-p (string-append #$output "/" #$(dirname location)))

        (copy-file #$file-gexp (string-append #$output "/" #$location)))

    #:options

    '(#:local-build? #t

      #:modules ((guix build utils)))))