From bc4c3c85a8738958a2a1394eac3df8981e6a6eae Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 17 Feb 2024 07:49:33 -0500 Subject: Refactor home stuff into modules, add pipewire. --- common-home.scm | 61 --------------------------------------------------------- 1 file changed, 61 deletions(-) delete mode 100644 common-home.scm (limited to 'common-home.scm') 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 -;;; -;;; 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 -;;; . - -(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")))))))) -- cgit v1.2.3