path: root/home.scm

;; This "home-environment" file can be passed to 'guix home reconfigure'
;; to reproduce the content of your profile.  This is "symbolic": it only
;; specifies package names.  To reproduce the exact same profile, you also
;; need to capture the channels being used, as returned by "guix describe".
;; See the "Replicating Guix" section in the manual.

;;; Good reference
;;; https://git.sr.ht/~efraim/guix-config/tree/9009e110e16a8f153add7fb4d7f1512f6a543802/item/efraim-home.scm

(install-r7rs!)
(add-to-load-path (dirname (current-filename)))

(import (gnu home)
	(gnu home services)
	(gnu home services desktop)
	(gnu home services guix)
	(gnu home services shells)
	(gnu home services shepherd)
	(gnu home services sound)
	(gnu home services ssh)
	(gnu home services symlink-manager)
        (gnu packages)
	(gnu services)

	;(gnu services syncthing)

	(guix packages)
	(gnu packages music)
	(gnu packages guile-xyz)

	(guix channels)
	(guix derivations)
	(guix monads)
	(guix modules)
	(guix store)
        (guix gexp)
	(guix transformations)

	(srfi 1)
	
	(config-generation sexp)
	(config-generation sway)

	(ini))

(define secrets (load "secrets.scm"))

(define rz/terminal-emulator "foot")

;; (load "./gptel.scm")

(define home-packages
  (append
   (specifications->packages
    (list
     ;; essential
     "adb"
     "bind:utils"
     "emacs"
     "emacs-bluetooth"
     "emacs-ellama"
     "emacs-elpher"
     "emacs-emms"
     "emacs-f"
     "emacs-go-mode"
     "emacs-guix"
     "emacs-jabber"
     "emacs-markdown-mode"
     "emacs-nord-theme"
     "emacs-nov-el"
     ;; "emacs-org"
     "emacs-org-download"
     "emacs-org-emms"
     "emacs-org-mime"
     "emacs-org-pandoc-import"
     "emacs-org-roam"
     "emacs-org-transclusion"
     "emacs-pdf-tools"
     "emacs-persist"
     "emacs-pinentry"
     "emacs-request"
     "emacs-restclient"
     "emacs-simple-httpd"
     "emacs-sqlite3-api"
     "emacs-toc-org"
     "emacs-tramp"
     "emacs-typescript-mode"
     "emacs-websocket"
     "emacs-which-key"
     "emacs-wttrin"
     "emacs-yaml-mode"
     "emacs-zig-mode"
     "fd"
     ;; "ffmpeg"
     "file"
     "flatpak"
     "font-fira-mono"
     "font-google-noto-emoji"
     ;; "gajim"
     "gammastep"
     "ghc-tldr"
     "git"
     "git:send-email"
     "grim"
     "gst-libav"
     "gst-plugins-bad"
     "gst-plugins-base"
     "gst-plugins-good"
     "gst-plugins-ugly"
     "guile"
     "htop"
     "imv"
     "keepassxc"
     ;; "libcamera"
     "libreoffice"
     "mumble"
     "ncurses"
     "neofetch"
     "nmap"
     "noisetorch"
     "pinentry"
     "rlwrap"
     "rsync"
     "screen"
     "sicp"
     "slurp"
     "sshfs"
     "strace"
     "syncthing"
     "tesseract-ocr"
     "tree"
     "unzip"
     "waypipe"
     "wl-clipboard"
     "wofi"
     "xdg-user-dirs"
     ;; "xsane"
     "zbar"
     "zip"
     rz/terminal-emulator

     ;; sound
     "pamixer"
     "patchage"
     "pulsemixer"

     ;; web
     "curl"
     ;; "icecat"
     ;; "nyxt"
     ;; "ungoogled-chromium"

     ;; games
     "protonup-ng"
     "steam"
     
     "crispy-doom"
     "freedoom"

     "luanti"
     ;; "minetest-worldedit"
     "luanti-mineclone"

     ;; "openmw"

     "emacs-2048-game"

     ;; email
     "isync"
     "mb2md"
     "mu"

     ;; RSS
     "emacs-elfeed"
     "emacs-elfeed-org"

     ;; media
     "cava"
     "cmus"
     "mpv"
     "pipe-viewer"

     ;; torrent
     "emacs-transmission"
     "transmission"

     ;; programming
     "chibi-scheme"
     ;; "emacs-cape"
     ;; "emacs-corfu"
     "emacs-dumb-jump"
     "emacs-geiser"
     "emacs-geiser-guile"
     "emacs-lsp-mode"
     "emacs-lsp-ui"
     "emacs-origami"
     "emacs-racket-mode"
     "emacs-slime"
     "gcc-toolchain"
     "go"
     "guile-ini"
     "guile-lib"
     "jq"
     "libserialport"
     ;; "mit-scheme"
     ;; "node"
     "racket"
     "sbcl"
     ;; "snd"
     "zig"

     ;; education
     ;; "stellarium"

     ;; photography
     "darktable"
     "gimp"
     ;; "krita"

     ;; recording
     "obs"
     "obs-wlrobs"
     "obs-vkcapture"
     ;; "kdenlive"

     ;; modeling
     "libfive"

     ;; Editing
     "emacs-emojify"
     "emacs-org-bullets"
     "emacs-ox-hugo"
     "ispell"))
   ;; Extra package definitions
   (list
    ;; ((options->transformation '((with-commit . "guile-next=f3ea8f7fa1d84a559c7bf834fe5b675abe0ae7b8")))
    ;;  (specification->package "guile-next"))
    ;; ((options->transformation '((with-commit . "chibi-scheme=29dd1a3b81e297033f687cbbf2b51319856647f4")))
    ;;  (specification->package "chibi-scheme"))
    ;; emacs-gptel
    )))


(define emacs-config
  (string-append
   ";; See /home/robby/.config/guix-home/home-configuration.scm\n"
   (scm->string
    ;; Load the secrets file
    `((when (not (load "/home/robby/.config/emacs/secrets.el"))
	(message "could not load secrets!"))

      ;; Load the Nord theme when launching an emacsclient GUI
      (if (daemonp)
	  (add-hook 'after-make-frame-functions
		    (lambda (frame)
		      (with-selected-frame
		       frame
		       (load-theme 'nord t))))
	  (load-theme 'nord t))

      ;; Safe variables
      (custom-set-variables
       ;; custom-set-variables was added by Custom.
       ;; If you edit it by hand, you could mess it up, so be careful.
       ;; Your init file should contain only one such instance.
       ;; If there is more than one, they won't work right.
       '(safe-local-variable-values
	 '((auto-save-default)
	   (org-download-image-dir . "~/org/pictures")
	   (eval progn
		 (require 'lisp-mode)
		 (defun emacs27-lisp-fill-paragraph
		   (&optional justify)
		   (interactive "P")
		   (or
		    (fill-comment-paragraph justify)
		    (let
			((paragraph-start
			  (concat paragraph-start "\\|\\s-*\\([(;\"]\\|\\s-:\\|`(\\|#'(\\)"))
			 (paragraph-separate
			  (concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
			 (fill-column
			  (if
			   (and
			    (integerp emacs-lisp-docstring-fill-column)
			    (derived-mode-p 'emacs-lisp-mode))
			   emacs-lisp-docstring-fill-column fill-column)))
		      (fill-paragraph justify))
		    t))
		 (setq-local fill-paragraph-function
			     (syntax emacs27-lisp-fill-paragraph)))
	   (eval modify-syntax-entry 43 "'")
	   (eval modify-syntax-entry 36 "'")
	   (eval modify-syntax-entry 126 "'")
	   (eval let
		 ((root-dir-unexpanded
		   (locate-dominating-file default-directory ".dir-locals.el")))
		 (when root-dir-unexpanded
		   (let*
		       ((root-dir
			 (file-local-name
			  (expand-file-name root-dir-unexpanded)))
			(root-dir*
			 (directory-file-name root-dir)))
		     (unless
			 (boundp 'geiser-guile-load-path)
		       (defvar geiser-guile-load-path 'nil))
		     (make-local-variable 'geiser-guile-load-path)
		     (require 'cl-lib)
		     (cl-pushnew root-dir* geiser-guile-load-path :test
				 (syntax string-equal)))))
	   (eval with-eval-after-load 'yasnippet
		 (let
		     ((guix-yasnippets
		       (expand-file-name "etc/snippets/yas"
					 (locate-dominating-file default-directory ".dir-locals.el"))))
		   (unless
		       (member guix-yasnippets yas-snippet-dirs)
		     (add-to-list 'yas-snippet-dirs guix-yasnippets)
		     (yas-reload-all))))
	   (eval setq-local guix-directory
		 (locate-dominating-file default-directory ".dir-locals.el"))
	   (eval add-to-list 'completion-ignored-extensions ".go"))))

      ;; Do not open windows in the same Emacs frame.
      ;; (setq pop-up-frames 'graphic-only)
      
      (setq inferior-lisp-program "/home/robby/.guix-home/profile/bin/sbcl")

      ;; Enable which-key mode
      (which-key-mode)

      ;; Automatically create closing pairs
      (electric-pair-mode 1)

      ;; Show matching parenthesis
      (show-paren-mode 1)
      (setq show-paren-delay 0)

      ;; Hide the tool bar
      (tool-bar-mode -1)
      
      ;; Hide the menu bar
      (menu-bar-mode -1)

      ;; Hide the scroll bar
      (scroll-bar-mode -1)

      ;; Highlight the current line
      (global-hl-line-mode 1)

      ;; Enable line numbers
      (global-display-line-numbers-mode)
      (setq display-line-numbers-type 'relative)

      ;; Disable line numbers for certain modes
      (add-hook 'eshell-mode-hook (lambda () (display-line-numbers-mode -1)))

      ;; Show the column number
      (setq column-number-mode t)

      ;; Add e as an alias for find-file. Useful for eshell.
      (defalias 'e (function find-file))

      ;; Eshell visual commands
      (setq eshell-visual-subcommands '(("guix" "search")
					("pipe-viewer")
					("keepassxc-cli" "open")))

      ;; Open init file
      (defun open-init-file ()
	"Open the init file."
	(interactive)
	(find-file "~/.config/guix-home/home-configuration.scm"))

      (global-set-key (kbd "C-x i") 'open-init-file)

      ;; Function to create a new eshell. Used for Sway binding.
      (defvar next-eshell -1)
      (defun new-eshell ()
	(setq next-eshell (+ 1 next-eshell))
	(eshell next-eshell))

      ;; Power
      (defun eshell/poweroff ()
	"Shutdown the computer."
	(call-process "loginctl" null-device nil nil "poweroff"))

      (defun eshell/reboot ()
	"Reboot the computer."
	(call-process "loginctl" null-device nil nil "reboot"))

      ;; For using tramp guix->guix
      (require 'tramp)
      ;; (setq tramp-remote-path
      ;;       (append tramp-remote-path
      ;;               '(tramp-own-remote-path)))
      
      ;; Scheme extra file extensions
      (setq auto-mode-alist (append '(("\\.sld\\'" . scheme-mode)) auto-mode-alist))

      ;; Code folding
      ;; (require 'origami)
      ;; Add mode hooks
      ;; (dolist (mode '(nxml-mode-hook csharp-mode-hook c-mode-hook scheme-mode-hook emacs-lisp-mode-hook))
      ;; 	      (add-hook mode 'origami-mode))
      ;; Specify extra parsers
      ;; (dolist (parser-pair '((scheme-mode . origami-elisp-parser) (csharp-mode . origami-c-style-parser)))
      ;; 	      (add-to-list 'origami-parser-alist parser-pair))
      ;; (define-key origami-mode-map (kbd "<C-tab>") 'origami-recursively-toggle-node)

   ;;; Org mode config
      (require 'org-download)
      (setq org-startup-with-inline-images t)
      (add-hook 'org-mode-hook 'org-indent-mode)
      (add-hook 'org-mode-hook 'toc-org-mode)
      
      ;; Org bullets
      (require 'org-bullets)
      (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))

      ;; Org babel language support
      (org-babel-do-load-languages
       'org-babel-load-languages
       '((emacs-lisp . t)
	 (eshell . t)
	 (C . t)
	 (scheme . t)))

      ;; Org link abbreviations
      (setq org-link-abbrev-alist
	    '(("wikipedia" . "https://en.wikipedia.org/wiki/")
	      ("wiki" . "https://wiki.zambito.xyz/index.php?title=")
	      ("gh" . "https://github.com/")
	      ("guix" . "elisp:(guix-packages-by-name \"%s\")")
	      ("isbn" . "https://www.bookfinder.com/isbn/")
	      ("man" . "elisp:(man \"%s\")")))

      ;; Org roam
      (require 'org-roam)
      (setq org-roam-directory "~/org"
	    org-roam-capture-templates '(("d" "default" plain
					  "%?"
					  :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}")
					  :unnarrowed t)
					 ("p" "person" plain
					  (file "~/org/templates/person.org") 
					  :target (file "%<%Y%m%d%H%M%S>-${slug}.org")
					  :unnarrowed t)
					 ("b" "book" plain
					  (file "~/org/templates/book.org") 
					  :target (file "%<%Y%m%d%H%M%S>-${slug}.org")
					  :unnarrowed t))
	    org-roam-dailies-capture-templates '(("d" "default" entry "* %?"
						  :target (file+head "%<%Y-%m-%d>.org"
								     "#+title: %<%Y-%m-%d>\n"))
						 ("v" "Value" entry "* %?"
						  :target (file+head+olp "%<%Y-%m-%d>.org"
									 "#+title: %<%Y-%m-%d>\n"
									 ("What do I value?")))
						 ("t" "Trajectory" entry "* %?"
						  :target (file+head+olp "%<%Y-%m-%d>.org"
									 "#+title: %<%Y-%m-%d>\n"
									 ("What is my trajectory today?")))))
      (add-to-list 'org-roam-file-exclude-regexp "par/")
      (org-roam-db-autosync-enable)
      (global-set-key (kbd "C-c n i") 'org-roam-node-insert)
      (global-set-key (kbd "C-c n f") 'org-roam-node-find)
      (global-set-key (kbd "C-c n r") 'org-roam-node-random)
      (global-set-key (kbd "C-c n t") 'org-roam-buffer-toggle)
      (global-set-key (kbd "C-c d c t") 'org-roam-dailies-capture-today)
      (global-set-key (kbd "C-c d c n") 'org-roam-dailies-capture-tomorrow)
      (global-set-key (kbd "C-c d c p") 'org-roam-dailies-capture-yesterday)
      (global-set-key (kbd "C-c d c d") 'org-roam-dailies-capture-date)
      (global-set-key (kbd "C-c d f t") 'org-roam-dailies-goto-today)
      (global-set-key (kbd "C-c d f n") 'org-roam-dailies-goto-next-note)
      (global-set-key (kbd "C-c d f p") 'org-roam-dailies-goto-previous-note)
      (global-set-key (kbd "C-c d f d") 'org-roam-dailies-goto-date)

      (add-to-list 'load-path "~/src/org-roam-ui/")
      (require 'org-roam-ui)
      (setq org-roam-ui-sync-theme t
            org-roam-ui-follow t
            org-roam-ui-update-on-save t
            org-roam-ui-open-on-start nil)
      (org-roam-ui-mode 1)

      ;; Emojify
      (global-emojify-mode 1)
      
      ;; ERC
      ;; See: https://gist.github.com/chumpage/1243771
      (require 'erc-services)
      (erc-services-mode 1)

      (setq erc-server "irc.libera.chat"
	    erc-nick "Zambyte"
	    erc-port 6697
	    erc-prompt-for-nickserv-passwork nil
	    erc-prompt-for-passwork t
	    erc-nickserv-passwords (list (list 'Libera.Chat (list (cons "Zambyte" (cdr (assoc 'libera secrets))))))
	    erc-autojoin-channels-alist '((Libera.Chat "#archlinux"
						       "#c"
						       "#emacs"
						       "#fsf"
						       "#gnu"
						       "#guile"
						       "#guix"
						       "#hurd"
						       "#lisp"
						       "#mastodon"
						       "#pleroma"
						       "#pleroma-dev"
						       "#scheme"
						       "#sway"
						       "#minetest"
						       "#lojban"
						       "#ckule"
						       "#jbosnu"
						       "#proga"
						       "#lowellmakes")))
      
      ;; Email
      (require 'mu4e)
      (setq mu4e-get-mail-command "SSL_CERT_DIR=/home/robby/.guix-profile/etc/ssl/certs mbsync personal")
      (setq user-full-name "Robby Zambito"
	    user-mail-address "contact@robbyzambito.me"
	    send-mail-function (function smtpmail-send-it)
	    smtpmail-smtp-server "mail.gandi.net"
	    smtpmail-stream-type 'starttls
	    smtpmail-smtp-service 587)
      (global-set-key (kbd "C-x C-m") 'mu4e)

      ;; Music
      (emms-all)
      (setq emms-player-list '(emms-player-mpv)
	    emms-info-functions '(emms-info-native)
	    ;; emms-player-mpv-parameters '("--ao=pipewire")
	    )

      ;; RSS
      (require 'elfeed)
      (require 'elfeed-show)
      (require 'elfeed-org)
      (elfeed-org)
      (setq rmh-elfeed-org-files (list "~/org/20230517231456-elfeed.org")
	    elfeed-search-filter "@6-months-ago +unread -reddit -hn -politics")

      ;; TODO: this doesn't work
      (add-hook 'elfeed-mode-hook
		(lambda ()
		  (define-key elfeed-mode-map "\\C-c\\C-u"
		    'elfeed-update)))

      ;; Source  https://github.com/skeeto/elfeed/issues/267
      (defun elfeed-play-with-mpv ()
	"Play entry link with mpv."
	(interactive)
	(let ((entry (if (eq major-mode 'elfeed-show-mode) elfeed-show-entry (elfeed-search-selected :single)))
              (quality-arg "")
              (quality-val (completing-read "Max height resolution (0 for unlimited): " '("0" "480" "720") nil nil)))
	  (setq quality-val (string-to-number quality-val))
	  (message "Opening %s with height≤%s with mpv..." (elfeed-entry-link entry) quality-val)
	  (when (< 0 quality-val)
	    (setq quality-arg (format "--ytdl-format=[height<=?%s]" quality-val)))
	  (start-process "elfeed-mpv" nil "mpv" quality-arg (elfeed-entry-link entry))))

      (defun elfeed-open-with-eww ()
	"Open in eww with `eww-readable'."
	(interactive)
	(let ((entry (if (eq major-mode 'elfeed-show-mode) elfeed-show-entry (elfeed-search-selected :single))))
	  (eww (elfeed-entry-link entry))
	  (add-hook 'eww-after-render-hook 'eww-readable nil t)))

      (defvar elfeed-visit-patterns
	'(("youtu\\.?be" . elfeed-play-with-mpv)
	  ("v\\.redd\\.it" . elfeed-play-with-mpv)
	  ("reddit" . elfeed-play-with-mpv)
	  ("phoronix" . elfeed-open-with-eww)
	  ("jcs\\.org" . elfeed-play-with-mpv))
	"List of (regexps . function) to match against elfeed entry link to know
whether how to visit the link.")
      
      (defun elfeed-visit-maybe-external ()
	"Visit with external function if entry link matches `elfeed-visit-patterns',
visit otherwise."
	(interactive)
	(let ((entry (if (eq major-mode 'elfeed-show-mode)
			 elfeed-show-entry
			 (elfeed-search-selected :single)))
              (patterns elfeed-visit-patterns))
	  (while (and patterns (not (string-match (caar patterns) (elfeed-entry-link entry))))
	    (setq patterns (cdr patterns)))
	  (cond
	   (patterns
	    (elfeed-untag entry 'unread)
	    (elfeed-search-update-entry entry)
	    (funcall (cdar patterns)))
	   ((eq major-mode 'elfeed-search-mode)
	    (call-interactively 'elfeed-search-show-entry))
	   (t (elfeed-show-visit)))))

      ;; https://github.com/skeeto/elfeed/issues/317 and
      ;; https://github.com/skeeto/elfeed/pull/448#issuecomment-1120336279
      ;; Speeds up getting elfeed feeds
      (setq flycheck-global-modes '(not . (elfeed-search-mode)))

      (define-key elfeed-show-mode-map (kbd "<C-return>") 'elfeed-visit-maybe-external)
      (define-key elfeed-search-mode-map (kbd "<C-return>") 'elfeed-visit-maybe-external)
      (global-set-key (kbd "C-x w") 'elfeed)

      ;; Pleroma
      (add-to-list 'load-path "/home/robby/src/mastodon.el/lisp/")
      (require 'mastodon)
      (setq mastodon-instance-url "https://zoinks.one"
            mastodon-active-user "robby")

      ;; Programming

      ;; https://www.youtube.com/watch?v=Vx0bSKF4y78
      ;; https://github.com/minad/corfu
      ;; (require 'corfu)
      ;; (setq corfu-cycle t
      ;; 	    corfu-auto t
      ;; 	    corfu-auto-delay 0
      ;; 	    corfu-quit-no-match 'separator
      ;; 	    corfu-echo-documentation 0.25
      ;; 	    corfu-preselect-first nil)
      ;; (global-corfu-mode)
      ;; (corfu-history-mode)

      ;; ;; https://github.com/minad/cape
      ;; (require 'cape)
      ;; (add-to-list 'completion-at-point-functions (function cape-dabbrev))
      ;; (add-to-list 'completion-at-point-functions (function cape-file))
    
    ;; (("C-c p p" . completion-at-point) ;; capf
    ;;   ("C-c p t" . complete-tag)        ;; etags
    ;;   ("C-c p d" . cape-dabbrev)        ;; or dabbrev-completion
    ;;   ("C-c p h" . cape-history)
    ;;   ("C-c p f" . cape-file)
    ;;   ("C-c p k" . cape-keyword)
    ;;   ("C-c p s" . cape-symbol)
    ;;   ("C-c p a" . cape-abbrev)
    ;;   ("C-c p i" . cape-ispell)
    ;;   ("C-c p l" . cape-line)
    ;;   ("C-c p w" . cape-dict)
    ;;   ("C-c p \\" . cape-tex)
    ;;   ("C-c p _" . cape-tex)
    ;;   ("C-c p ^" . cape-tex)
    ;;   ("C-c p &" . cape-sgml)
    ;;   ("C-c p r" . cape-rfc1345))

      ;; (require 'gptel)
      ;; (setq gptel-default-mode 'org-mode)
      ;; (setq gptel-default-mode 'text-mode) ; I cannot use org-mode, as there is a bug: https://github.com/karthink/gptel/issues/81
      ;; (define-key gptel-mode-map (kbd "C-c RET") 'gptel-send)
      ;; (define-key gptel-mode-map (kbd "C-c C-<return>") 'gptel-send)
      ;; (define-key gptel-mode-map (kbd "C-c C-m") 'gptel-menu)

    ))))

(define screenshot-menu "guile --r7rs -L ~/src/wofi-guile/lib/ ~/src/screenshot-menu.scm")

(define rz/sway-config
  (scm->sway-config 
   ;;; Variables
   `((set $mod Mod4			; Logo key. Use Mod1 for Alt.
	  $hyper Mod1+Mod4+Shift+Control
	  $meh Mod1+Shift+Control
	  
	  ;; Home row directions keys, like vim.	
	  $left h
	  $down j
	  $up k
	  $right l
	  
	  ;; Prefered terminal emulator
	  $term ,rz/terminal-emulator

	  ;; Preferred editor
	  $editor "emacsclient -c -a emacs"

	  ;; Preferred application launcher
	  $menu "wofi -c ~/.config/wofi/config -I"

	  ;; Preferred music player
	  $music ,(string-append rz/terminal-emulator " cmus"))

     
     ;; Output configuration
     (output ((* bg "#2E3440" solid_color)
	      (HDMI-A-1 mode 1920x1080@144Hz)))

     ;; Input configuration
     ;; (input "9580:110:HUION_Huion_Tablet_Pen" map_to_output HDMI-A-1)

     ;; Hide cursor after 3 seconds
     (seat * hide_cursor 3000)

     (input "1133:50504:Logitech_USB_Receiver_Mouse"
	    ((accel_profile flat)
	     (pointer_accel -0.4)))

;;; Key bindings
     (bindsyms
      ;; Kill focused window
      (($mod+Shift+q $meh+q) kill)
      ;; Start launcher
      (($hyper+d $mod+d) exec $menu)
      ;; Reload the config file
      ($mod+Shift+c reload)
      ;; Lock sway
      (($meh+l $mod+Semicolon) exec swaylock -c "#000000")
      ;; Exit sway
      ($mod+Shift+e exec swaynag -t warning -m "You pressed the exit shortcut. Do you really want to exit sway? This will end your Wayland session." -b "Yes, exit sway" "herd stop sway")
      ;; Screenshot menu
      ($meh+a exec ,screenshot-menu))

     ;; Drag floating windows by holding down $mod and left mouse button.
     ;; Resize them with right mouse button + $mod.
     ;; Also works for non-floating windows.
     ;; Change normal to inverse to use left mouse buttor for resizing and right
     ;; mouse button for dragging.
     (floating_modifier $mod normal)

     ;; Moving around
     (bindsyms
      ;; Moving focus around
      (($mod+$left $mod+Left) focus left)
      (($mod+$down $mod+Down) focus down)
      (($mod+$up $mod+Up) focus up)
      (($mod+$right $mod+Right) focus right)
      
      ;; Move the focused window by adding Shift
      (($mod+Shift+$left $mod+Shift+Left) move left)
      (($mod+Shift+$down $mod+Shift+Down) move down)
      (($mod+Shift+$up $mod+Shift+Up) move up)
      (($mod+Shift+$right $mod+Shift+Right) move right))

     ;; Workspaces
     (bindsyms
      ;; Switch to workspace
      ($mod+1 workspace number 1)
      ($mod+2 workspace number 2)
      ($mod+3 workspace number 3)
      ($mod+4 workspace number 4)
      ($mod+5 workspace number 5)
      ($mod+6 workspace number 6)
      ($mod+7 workspace number 7)
      ($mod+8 workspace number 8)
      ($mod+9 workspace number 9)
      ($mod+0 workspace number 10)
      
      ;; Move focused container to workspace
      ($mod+Shift+1 move container to workspace number 1)
      ($mod+Shift+2 move container to workspace number 2)
      ($mod+Shift+3 move container to workspace number 3)
      ($mod+Shift+4 move container to workspace number 4)
      ($mod+Shift+5 move container to workspace number 5)
      ($mod+Shift+6 move container to workspace number 6)
      ($mod+Shift+7 move container to workspace number 7)
      ($mod+Shift+8 move container to workspace number 8)
      ($mod+Shift+9 move container to workspace number 9)
      ($mod+Shift+0 move container to workspace number 10)
      
      ;; Split the current object
      ($mod+b splith)
      ($mod+v splitv)
      
      ;; Switch the current container layout style
      ($mod+s layout stacking)
      ($mod+w layout tabbed)
      ($mod+e layout toggle split)

      ;; Make the current focus fullscreen
      ($mod+f fullscreen)

      ;; Toggle focus between tiling and floating mode
      ($mod+Shift+space floating toggle)
      
      ;; Swap focus between the tiling area and the floating area
      ($mod+space focus mode_toggle)

      ;; Move focus to the parent container
      ($mod+a focus parent))

   ;;; Scratchpad
     (bindsyms
      ;; Move the currently focused window to the scratchpad
      ($mod+Shift+minus move scratchpad)
      ;; Show the next scratchpad window or hide the focused scratchpad window.
      ;; If there are multiple scratchpad windows, this command cycles through them.
      ($mod+minus scratchpad show))

   ;;; Resizing
     (mode "resize"
       ((bindsyms
	 (($left Left) resize shrink width 10px)
	 (($down Down) resize grow height 10px)
	 (($up Up) resize shrink height 10px)
	 (($right Right) resize grow width 10px)
	 
	 ;; Return to default mode
	 (Return mode "default")
	 (Escape mode "default"))))
     (bindsym $mod+r mode "resize")

   ;;; Media
     (bindsyms
      (XF86AudioRaiseVolume exec pamixer --increase 5)
      (XF86AudioLowerVolume exec pamixer --decrease 5)
      (XF86AudioMute exec pamixer --toggle-mute)
      (XF86AudioPlay exec emacsclient -e "(emms-pause)")
      (XF86AudioNext exec emacsclient -e "(emms-next)")
      (XF86AudioPrev exec emacsclient -e "(emms-previous)")
      (XF86Search exec $menu))

     ;; Applications
     (bindsyms
      ;; Start music player on workspace 5
      ($hyper+m (workspace 5) (exec $music) (workspace back_and_forth))
      ;; Start terminal
      (($mod+Return $mod+Shift+t) exec emacsclient -c -e "(new-eshell)")
      ;; Start editor
      (($mod+t $hyper+t) exec $editor))

     (exec "hash dbus-update-activation-environment 2>/dev/null")
     (exec "dbus-update-activation-environment DISPLAY WAYLAND_DISPLAY SWAYSOCK XDG_CURRENT_DESKTOP")

   ;;; Styling

     (font "pango:Noto Sans Mono" 8)
     (titlebar_padding 7 1)
     
     ;; Remove titlebar by default
     (for-window (title ".*") border pixel 2)

     ;; Class                 border    backgr.   text      indicator   child_border
     (client.focused          "#bf616a" "#bf616a" "#ffffff" "#bf616a"   "#bf616a")
     (client.focused_inactive "#333333" "#5f676a" "#ffffff" "#484e50"   "#5f676a")
     (client.unfocused        "#333333" "#222222" "#888888" "#292d2e"   "#222222")
     (client.urgent           "#2f343a" "#900000" "#ffffff" "#900000"   "#900000")
     (client.placeholder      "#000000" "#0c0c0c" "#ffffff" "#000000"   "#0c0c0c"))))

(define foot-config
  (with-output-to-string
    (lambda ()
      (scm->ini
       '((#f
	  ("font" . "monospace:size=12"))

	 ;; Nord theme
	 (colors
	  ("background" . "2e3440")
	  ("foreground" . "d8dee9")
	  ("cursor" . "2e3440 d8dee9")

	  ("regular0" . "3b4252")
	  ("regular1" . "bf616a")
	  ("regular2" . "a3be8c")
	  ("regular3" . "ebcb8b")
	  ("regular4" . "81a1c1")
	  ("regular5" . "b48ead")
	  ("regular6" . "88c0d0")
	  ("regular7" . "e5e9f0")

	  ("bright0" . "4c566a")
	  ("bright1" . "bf616a")
	  ("bright2" . "a3be8c")
	  ("bright3" . "ebcb8b")
	  ("bright4" . "81a1c1")
	  ("bright5" . "b48ead")
	  ("bright6" . "8fbcbb")
	  ("bright7" . "eceff4")

	  ("dim0" . "373e4d")
	  ("dim1" . "94545d")
	  ("dim2" . "809575")
	  ("dim3" . "b29e75")
	  ("dim4" . "68809a")
	  ("dim5" . "8c738c")
	  ("dim6" . "6d96a5")
	  ("dim7" . "aeb3bb")))))))

(define wofi-config
  (with-extensions
   (list guile-ini guile-smc guile-lib)
   #~(begin
       (import (ini))
       (with-output-to-file #$output
	 (lambda ()
	   (scm->ini
	    '((#f
	       ("stylesheet" . #$(local-file "wofi/style.css"))
	       ("xoffset" . 0)
	       ("yoffset" . 0)
	       ("hide_scroll" . "true")
	       ("show" . "drun")
	       ("width" . "600px")
	       ("lines" . 10)
	       ("line_wrap" . "word")
	       ("term" . #$rz/terminal-emulator)
	       ("allow_markup" . "true")
	       ("always_parse_args" . "true")
	       ("show_all" . "true")
	       ("print_command" . "true")
	       ("layer" . "overlay")
	       ("allow_images" . "true")
	       ("insensitivity" . "true")
	       ("prompt" . "Hey, you should type something!")
	       ("image_size" . 25)
	       ("display_generic" . "true")
	       ("key_expand" . "Tab")))))))))

(define git-config
  (with-output-to-string
    (lambda ()
      (scm->ini
       `((init
	  ("defaultBranch" . "master"))
	 (core
	  ("editor" . "emacsclient -c"))
	 (user
	  ("email" . "contact@robbyzambito.me")
	  ("name" . "Robby Zambito"))
	 ;; see push.autoSetupRemote in git help config
	 (push
	  ("autoSetupRemote" . "true"))
	 ("url \"rad://\""
	  ("insteadOf" . "https://rad.go/")))))))

(define guix-gaming-config (cdr (assq 'guix-gaming-config secrets)))

(define rz/user-dirs
  (string-append "XDG_DESKTOP_DIR=\"$HOME/desktop\"\n"
		 "XDG_DOWNLOAD_DIR=\"$HOME/downloads\"\n"
		 "XDG_TEMPLATES_DIR=\"$HOME/templates\"\n"
		 "XDG_PUBLICSHARE_DIR=\"$HOME/public\"\n"
		 "XDG_DOCUMENTS_DIR=\"$HOME/documents\"\n"
		 "XDG_MUSIC_DIR=\"$HOME/music\"\n"
		 "XDG_PICTURES_DIR=\"$HOME/pictures\"\n"
		 "XDG_VIDEOS_DIR=\"$HOME/videos\"\n"))

(define log-dir (or (getenv "XDG_LOG_HOME") "/home/robby/.local/var/log"))

(define (generate-openssh-hosts num-vces num-vms-per-vce)
  ;; Generate all VCE numbers from 1 to num-vces
  (let ((vce-numbers (iota num-vces 1))
        (vm-numbers (iota num-vms-per-vce 1)))
    ;; For each VCE, generate configurations for all VMs
    (append-map
     (lambda (vce-num)
       ;; For each VM number, create a configuration
       (map
        (lambda (vm-num)
          (openssh-host (name (string-append "rt-vce" (number->string vce-num) 
                                             "-kali" (number->string vm-num)))
                        (user "redteam")
                        (host-name (string-append "172.18.6." (number->string (+ 60 vm-num))))
                        (identity-file "/home/robby/.ssh/redteam_key")
                        (proxy (list
                                (proxy-jump (host-name (string-append "vce" (number->string vce-num))))))
                        (extra-content
                         (string-append "  DynamicForward 8888\n"
                                        "  StrictHostKeyChecking no\n"
                                        "  UserKnownHostsFile=/dev/null"))))
        vm-numbers))
     vce-numbers)))

(define redteam-kali-vms (generate-openssh-hosts 2 10))

(home-environment
 ;; Below is the list of packages that will show up in your
 ;; Home profile, under ~/.guix-home/profile.
 (packages home-packages)

 ;; Below is the list of Home services.  To search for available
 ;; services, run 'guix home search KEYWORD' in a terminal.
 (services
  (list (service home-bash-service-type
                 (home-bash-configuration
                  (aliases '(("grep" . "grep --color=auto")
			     ("ll" . "ls -l")
                             ("ls" . "ls -p --color=auto")
			     ("cp" . "cp --preserve=timestamps")
			     ("reboot" . "loginctl reboot")
			     ("poweroff" . "loginctl poweroff")
			     ("hibernate" . "loginctl hibernate")
			     ("p1" . "ping 1.1.1.1")
			     ("p8" . "ping 8.8.8.8")))
                  (bashrc (list (local-file "home.bashrc"
					    "bashrc")))
                  (bash-profile (list (local-file
                                       "home.bash_profile"
                                       "bash_profile")))))
	(service home-dbus-service-type)
	(service home-xdg-configuration-files-service-type
		 `(("user-dirs.dirs" ,(plain-file "user-dirs" rz/user-dirs))
		   ("sway/config" ,(plain-file "sway-config" rz/sway-config))
		   ("emacs/init.el" ,(plain-file "init.el" emacs-config))
		   ("foot/foot.ini" ,(plain-file "foot.ini" foot-config))
		   ("wofi/config" ,(computed-file "wofi-config" wofi-config))
		   ("git/config" ,(plain-file "git-config" git-config))
		   ("guix-gaming-channels/games.scm" ,(plain-file "guix-gaming-config" guix-gaming-config))))
	(service home-files-service-type
		 `((".mbsyncrc" ,(local-file "mbsyncrc"))
		   (".nmprc" ,(plain-file "npmrc" "prefix=/home/robby/.vnode"))))
	(service home-shepherd-service-type
		 (home-shepherd-configuration
		  (services
		   (list
		    (shepherd-service
		     (documentation "SwayWM")
		     (provision '(sway))
		     (requirement '(dbus))
		     (respawn? #f)
		     (auto-start? #f)
		     (start #~(make-forkexec-constructor
			       (list #$(file-append (specification->package "dbus") "/bin/dbus-run-session") "sway")
			       #:log-file (string-append #$log-dir "/swaywm.log")))
		     (stop #~(make-system-destructor
			      (string-join (list #$(file-append (specification->package "sway") "/bin/swaymsg")
						 "exit")))))
		    (shepherd-service
		     (documentation "Emacs Server")
		     (provision '(emacs))
		     (start #~(make-system-constructor "emacs --daemon"))
		     (stop #~(make-system-destructor "emacsclient --eval \"(kill-emacs)\"")))
		    ;(shepherd-service
		     ;(documentation "Run `syncthing' without calling the browser")
		     ;(provision '(syncthing))
		     ;(start #~(make-forkexec-constructor
			       ;(list #$(file-append (specification->package "syncthing") "/bin/syncthing")
				     ;"-no-browser")
			       ;#:log-file (string-append #$log-dir "/syncthing.log")))
		     ;(stop #~(make-kill-destructor))
		     ;(respawn? #t))
		    (shepherd-service
		     (documentation "Run a Radicle node")
		     (provision '(rad))
		     (start #~(make-forkexec-constructor
			       (list "/home/robby/.cargo/bin/rad" "node" "start" "--path" "/home/robby/.cargo/bin/radicle-node" "--foreground")
			       #:log-file (string-append #$log-dir "/rad-node.log")))
		     (stop #~(make-system-destructor "/home/robby/.cargo/bin/rad node stop"))
		     (respawn? #t))
		    (shepherd-service
		     (documentation "Run the Radicle web API")
		     (provision '(rad-web))
		     (start #~(make-forkexec-constructor
			       (list "/home/robby/.cargo/bin/rad-web" "--no-open")
			       #:log-file (string-append #$log-dir "/rad-web.log")))
		     (stop #~(make-kill-destructor))
		     (respawn? #t))))))
	(service home-pipewire-service-type)
	(simple-service 'some-useful-env-vars-service
          		home-environment-variables-service-type
          		`(("LESSHISTFILE" . "$XDG_CACHE_HOME/.lesshst")
			  ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:/var/lib/flatpak/exports/share:/home/robby/.local/share/flatpak/exports/share")
			  ("EDITOR" . "emacsclient -n -a emacs")
			  ("EMACSLOADPATH" . "$HOME/.guix-home/profile/share/emacs/site-lisp/")))
	(service home-openssh-service-type
		 (home-openssh-configuration
		  (hosts
		   (append (list (openssh-host (name "not-a-pi")
					       (host-name "10.69.0.1"))
				 (openssh-host (name "zoinks")
					       (host-name "zoinks.one"))
				 (openssh-host (name "lowell-makes")
					       (host-name "96.81.79.90")
					       (port 1122))
				 (openssh-host (name "lowell-makes-cameo2")
					       (host-name "cameo2")
					       (port 22)
					       (proxy (list
						       (proxy-jump (host-name "lowell-makes")))))
				 (openssh-host (name "lowell-makes-cameo")
					       (host-name "cameo")
					       (port 22)
					       (proxy (list
						       (proxy-jump (host-name "lowell-makes")))))
				 (openssh-host (name "lowell-makes-mogan")
					       (host-name "mogan")
					       (port 22)
					       (proxy (list
						       (proxy-jump (host-name "lowell-makes")))))
				 (openssh-host (name "bustelo")
					       (host-name "10.5.10.187")
					       (port 22)
					       (proxy (list
						       (proxy-jump (host-name "lowell-makes")))))
				 (openssh-host (name "moja")
					       (host-name "45.77.97.44"))
				 (openssh-host (name "babel")
					       (host-name "10.80.80.162"))
				 (openssh-host (name "alpha.apex")
					       (host-name "149.28.47.99"))
				 (openssh-host (name "vce1")
					       (host-name "vce1.ncaecybergames.org")
					       (user "rz")
					       (port 2210)
					       (extra-content
						(string-append "  DynamicForward 8888\n")))
				 (openssh-host (name "vce2")
					       (host-name "vce2.ncaecybergames.org")
					       (user "rz")
					       (port 2210)
					       (extra-content
						(string-append "  DynamicForward 8888\n"))))
			   redteam-kali-vms))
		  (authorized-keys (cdr (assq 'ssh-authorized-keys secrets)))))
	(simple-service 'variant-packages-service
			home-channels-service-type
			(cons*
		  ;; (channel
		  ;;  (name 'nonguix)
		  ;;  (url "https://git.robbyzambito.me/mirror/nonguix.git")
		  ;;  (branch "steam-no-pulse"))
		  (channel
		   (name 'nonguix)
		   (url "https://gitlab.com/nonguix/nonguix")
		   ;; Enable signature verification:
		   (introduction
		    (make-channel-introduction
		     "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
		     (openpgp-fingerprint
		      "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))
		  (channel
		   (name 'guix-gaming-games)
		   (url "https://gitlab.com/guix-gaming-channels/games.git")
		   ;; Enable signature verification:
		   (introduction
		    (make-channel-introduction
		     "c23d64f1b8cc086659f8781b27ab6c7314c5cca5"
		     (openpgp-fingerprint
		      "50F3 3E2E 5B0C 3D90 0424  ABE8 9BDC F497 A4BB CC7F"))))
		  (channel
		    (name 'guix)
		    (url "https://codeberg.org/guix/guix.git"))
		  '()
		  ;; %default-channels
		  )))))