diff options
author | David Thompson <dthompson2@worcester.edu> | 2024-02-17 07:49:33 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2024-02-17 07:49:33 -0500 |
commit | bc4c3c85a8738958a2a1394eac3df8981e6a6eae (patch) | |
tree | be7ddbbc9893ce46b26fefbdce0994262a1ad418 /common-home.scm | |
parent | ad604d3d735e7f44e7e4011f0d6d8e03537e6561 (diff) |
Refactor home stuff into modules, add pipewire.
Diffstat (limited to 'common-home.scm')
-rw-r--r-- | common-home.scm | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/common-home.scm b/common-home.scm deleted file mode 100644 index 8c78f7b..0000000 --- a/common-home.scm +++ /dev/null @@ -1,61 +0,0 @@ -;;; 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/>. - -(use-modules (gnu home) - (gnu packages) - (gnu services) - (guix channels) - (guix gexp) - (gnu home services) - (gnu home services guix) - (gnu home services shells)) - -(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)) - -(define common-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" ".ssh/config")) - (simple-service 'channels - home-channels-service-type - (list - (channel - (name 'nonguix) - (url "https://gitlab.com/nonguix/nonguix") - (introduction - (make-channel-introduction - "897c1a470da759236cc11798f4e0a5f7d4d59fbc" - (openpgp-fingerprint - "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5")))) - (channel - (name 'dthompson) - (url "https://git.dthompson.us/guix-channel.git") - (branch "main") - (introduction - (make-channel-introduction - "df2e993dbfe9e45e8ad66226d3a136e3ffcbebf8" - (openpgp-fingerprint - "8CCB A7F5 52B9 CBEA E1FB 2915 8328 C747 0FF1 D807")))))))) |