diff options
Diffstat (limited to 'rise-home.scm')
| -rw-r--r-- | rise-home.scm | 38 |
1 files changed, 17 insertions, 21 deletions
diff --git a/rise-home.scm b/rise-home.scm index ae5051c..bc1dd47 100644 --- a/rise-home.scm +++ b/rise-home.scm @@ -1,17 +1,20 @@ -(use-modules (gnu home) - (gnu packages) - (gnu services) - (guix gexp) - (gnu home services) - (gnu home services shells)) +;;; Copyright © 2023 David Thompson <dthompson2@worcester.edu> +;;; +;;; 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 (dotfiles . file-names) - (define dir (dirname (current-filename))) - (map (lambda (file-name) - (list file-name - (local-file (string-append dir "/dotfiles/" file-name) - (string-append "dotfile-" (basename file-name))))) - file-names)) +(include "common-home.scm") (home-environment (packages (specifications->packages @@ -52,11 +55,4 @@ "qjackctl" "sfxr" "x42-plugins"))) - (services - (list (service home-bash-service-type - (home-bash-configuration - (aliases '(("grep" . "grep --color=auto") - ("ls" . "ls -ahlp --color=auto"))))) - (simple-service 'dotfiles - home-files-service-type - (dotfiles ".emacs.d/init.el" ".guile"))))) + (services common-services)) |