;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;;
;;; 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/>.

;;; Commentary:
;;
;; User package profile.
;;
;; To install this profile, run:
;;
;;    guix package -m profile.scm

(use-modules (guix packages)
             (guix git-download)
             (gnu packages autotools)
             (gnu packages texinfo))

(use-package-modules admin bittorrent emacs engineering fonts game-development
                     gimp gnome gnupg gnuzilla graphviz guile inkscape
                     less libusb linux mail man mpd music ncurses password-utils
                     pulseaudio screen skribilo ssh version-control video
                     wget xdisorg xorg)

(define geiser-next
  (package
    (inherit geiser)
    (name "geiser-next")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/jaor/geiser.git")
                    (commit "04b0b39")))
              (sha256
               (base32
                "0mcn29ldm01vf7np73mn29j69n6nlc17vb789m65cl59gm4b7lb8"))))
    (arguments
     '(#:phases (modify-phases %standard-phases
                  (add-after 'unpack 'bootstrap
                    (lambda _
                      (zero? (system* "autoreconf" "-vif"))))
                  (add-after 'install 'post-install
                    (lambda* (#:key outputs #:allow-other-keys)
                      (symlink "geiser-install.el"
                               (string-append (assoc-ref outputs "out")
                                              "/share/emacs/site-lisp/"
                                              "geiser-autoloads.el")))))))
    (native-inputs
     (append `(("autoconf" ,autoconf)
               ("automake" ,automake)
               ("texinfo" ,texinfo))
             (package-native-inputs geiser)))))

(packages->manifest
 (list alsa-utils
       aseprite
       emacs
       eog
       evince
       file-roller
       font-adobe-source-han-sans
       font-dejavu
       font-inconsolata
       geda-gaf
       geiser-next
       gimp
       git
       (list git "send-email")
       git-manpages
       gmtp
       gnome-tweak-tool
       gnupg
       guile-2.0
       icecat
       inkscape
       livestreamer
       magit
       milkytracker
       mpd
       mpdscribble
       mpv
       ncmpcpp
       notmuch
       obs
       offlineimap
       paredit
       pavucontrol
       pcb
       pinentry
       pwgen
       screen
       scrot
       shepherd
       skribilo
       sshfs-fuse
       strace
       (list transmission "gui")
       typo
       wget
       xmodmap
       youtube-dl))