From c16d1b1a4f0cd7a115262c435a61820362ee142d Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Thu, 30 May 2024 08:27:36 +0200
Subject: use the pipewire sound service

---
 suweren/home/bash-profile |  2 ++
 suweren/home/bashrc       | 31 +++++++++++++++++++++++++++++++
 suweren/home/services.scm | 11 +++++++++++
 3 files changed, 44 insertions(+)
 create mode 100644 suweren/home/bash-profile
 create mode 100644 suweren/home/bashrc
 create mode 100644 suweren/home/services.scm

(limited to 'suweren/home')

diff --git a/suweren/home/bash-profile b/suweren/home/bash-profile
new file mode 100644
index 0000000..37ea25c
--- /dev/null
+++ b/suweren/home/bash-profile
@@ -0,0 +1,2 @@
+# Honor per-interactive-shell startup file
+if [ -f ~/.bashrc ]; then . ~/.bashrc; fi
diff --git a/suweren/home/bashrc b/suweren/home/bashrc
new file mode 100644
index 0000000..10589f4
--- /dev/null
+++ b/suweren/home/bashrc
@@ -0,0 +1,31 @@
+# Bash initialization for interactive non-login shells and
+# for remote shells (info "(bash) Bash Startup Files").
+
+# Export 'SHELL' to child processes.  Programs such as 'screen'
+# honor it and otherwise use /bin/sh.
+export SHELL
+
+if [[ $- != *i* ]]
+then
+    # We are being invoked from a non-interactive shell.  If this
+    # is an SSH session (as in "ssh host command"), source
+    # /etc/profile so we get PATH and other essential variables.
+    [[ -n "$SSH_CLIENT" ]] && source /etc/profile
+
+    # Don't do anything else.
+    return
+fi
+
+# Source the system-wide file.
+source /etc/bashrc
+
+# Adjust the prompt depending on whether we're in 'guix environment'.
+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'
diff --git a/suweren/home/services.scm b/suweren/home/services.scm
new file mode 100644
index 0000000..b765820
--- /dev/null
+++ b/suweren/home/services.scm
@@ -0,0 +1,11 @@
+(define-module (suweren home services)
+  #:use-module (gnu home services shells)
+  #:use-module (guix gexp))
+
+(define-public bash-configuration
+  (let ((bashrc (list (local-file "bashrc"
+				  "bashrc")))
+	(bash-profile (list (local-file "bash-profile"
+					"bash-profile"))))
+    (home-bash-configuration (bashrc bashrc)
+			     (bash-profile bash-profile))))
-- 
cgit v1.2.3