Added non-functional home environment configuration.

5 files changed, 7 insertions, 91 deletions

diff --git a/.config/emacs/bd-mode-and-themes.el b/.config/emacs/bd-mode-and-themes.el
index 7f4104b..098b733 100644
--- a/.config/emacs/bd-mode-and-themes.el
+++ b/.config/emacs/bd-mode-and-themes.el
@@ -108,8 +108,7 @@ only in the selected buffer.")
 (global-hl-line-mode 1)
 
 ;;;; true transparency
-(when (>= emacs-major-version 29)
-  (add-to-list 'default-frame-alist '(alpha-background . 60)))
+(add-to-list 'default-frame-alist '(alpha-background . 60))
 
 (defun set-frame-alpha (value)
   "Sets the transparency of the frame background. 0=transparent/100=opaque"
diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 71d6cdf..348cbc8 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -90,7 +90,7 @@ in-place, the old list reference does not remain valid."
 
 (use-package newsticker
   :demand t
-  :bind (("C-z C-g" . newsticker-show-news)
+  :bind (("C-z C-n" . newsticker-show-news)
          :map newsticker-treeview-item-mode-map
          ("C-j" . rip-video))
   :custom
diff --git a/.config/guix/current b/.config/guix/current
new file mode 120000
index 0000000..4d350ac
--- /dev/null
+++ b/.config/guix/current
@@ -0,0 +1 @@
+/var/guix/profiles/per-user/bdunahu/current-guix
\ No newline at end of file
diff --git a/.config/system_config.scm b/.config/system_config.scm
deleted file mode 100644
index dadf88d..0000000
--- a/.config/system_config.scm
+++ /dev/null
@@ -1,88 +0,0 @@
-;; This is an operating system configuration generated
-;; by the graphical installer.
-;;
-;; Once installation is complete, you can learn and modify
-;; this file to tweak the system configuration, and pass it
-;; to the 'guix system reconfigure' command to effect your
-;; changes.
-
-
-;; Indicate which modules to import to access the variables
-;; used in this configuration.
-(use-modules (gnu))
-(use-service-modules cups desktop networking audio ssh xorg)
-
-(operating-system
- (locale "en_US.utf8")
- (timezone "America/Denver")
- (keyboard-layout (keyboard-layout "us"))
- (host-name "vali")
-
- ;; The list of user accounts ('root' is implicit).
- (users (cons* (user-account
-                (name "bdunahu")
-                (comment "bdunahu")
-                (group "users")
-                (home-directory "/home/bdunahu")
-                (supplementary-groups '("wheel" "netdev" "audio" "video")))
-               %base-user-accounts))
-
- ;; Packages installed system-wide.  Users can also install packages
- ;; under their own account: use 'guix search KEYWORD' to search
- ;; for packages and 'guix install PACKAGE' to install a package.
- (packages (append (list (specification->package "emacs")
-                         (specification->package "emacs-exwm")
-                         (specification->package
-                          "emacs-desktop-environment")
-                         (specification->package "nss-certs"))
-                   %base-packages))
-
- ;; Below is the list of system services.  To search for available
- ;; services, run 'guix system search KEYWORD' in a terminal.
- (services
-  (append (list
-
-           ;; To configure OpenSSH, pass an 'openssh-configuration'
-           ;; record as a second argument to 'service' below.
-           (service openssh-service-type)
-           (service tor-service-type)
-	   ;; can this be moved to home configuration?
-	   (service mpd-service-type
-		    (mpd-configuration
-		     (music-directory "/home/bdunahu/Personal/mpd/music")
-		     (playlist-directory "/home/bdunahu/Personal/mdp/playlist")
-		     (user "bdunahu")
-		     (default-port 6600)))
-           (set-xorg-configuration
-            (xorg-configuration (keyboard-layout keyboard-layout))))
-
-          ;; This is the default list of services we
-          ;; are appending to.
-          %desktop-services))
- (bootloader (bootloader-configuration
-              (bootloader grub-efi-bootloader)
-              (targets (list "/boot/efi"))
-              (keyboard-layout keyboard-layout)))
- (mapped-devices (list (mapped-device
-                        (source (uuid
-                                 "b9ca1e17-4c3e-4f82-a15c-4bb442c042b9"))
-                        (target "A")
-                        (type luks-device-mapping))))
-
- ;; The list of file systems that get "mounted".  The unique
- ;; file system identifiers there ("UUIDs") can be obtained
- ;; by running 'blkid' in a terminal.
- (file-systems (cons* (file-system
-                       (mount-point "/boot/efi")
-                       (device (uuid "4D74-E5F8"
-                                     'fat32))
-                       (type "vfat"))
-		      (file-system
-                       (mount-point "/home/bdunahu/Personal")
-                       (device (uuid "020b73df-3991-4271-9d3f-dba00ad260ec"))
-		       (type "ext4"))
-                      (file-system
-                       (mount-point "/")
-                       (device "/dev/mapper/A")
-                       (type "ext4")
-                      (dependencies mapped-devices)) %base-file-systems)))
diff --git a/.config/xmodmap.config b/.config/xmodmap.config
new file mode 100644
index 0000000..c3a9690
--- /dev/null
+++ b/.config/xmodmap.config
@@ -0,0 +1,4 @@
+clear lock
+clear control
+keycode 66 = Control_L
+add control = Control_L Control_R
\ No newline at end of file