Move all code into new directory structure

1 files changed, 0 insertions, 224 deletions

diff --git a/home-configuration.scm b/home-configuration.scm
deleted file mode 100644
index f785e41..0000000
--- a/home-configuration.scm
+++ /dev/null
@@ -1,224 +0,0 @@
-(define-module (aisaka-home-configuration)
-  #:use-module (gnu home)
-  #:use-module (gnu home services)
-  #:use-module (gnu home services shells)
-  #:use-module (gnu packages)
-  #:use-module (gnu services)
-  #:use-module (guix gexp))
-
-(define allow-downgrades
-  "--allow-downgrades ")
-
-(define config-prefix
-  "/home/marek/Publiczny/src/guix-config/")
-
-(define pull-guix
-  "guix pull ")
-
-(define pull-guix-
-  (string-append pull-guix
-                 allow-downgrades
-                 "--disable-authentication "))
-
-(define guix-home
-  "guix home reconfigure ")
-
-(define home-configuration
-  "home-configuration.scm ")
-
-(define reconfigure-home
-  (string-append guix-home
-                 config-prefix
-                 home-configuration))
-
-(define reconfigure-home-
-  (string-append reconfigure-home
-                 allow-downgrades))
-
-(define guix-system
-  "sudo guix system reconfigure ")
-
-(define system-configuration
-  "system-configuration.scm ")
-
-(define reconfigure-system
-  (string-append guix-system
-                 config-prefix
-                 system-configuration))
-
-(define reconfigure-system-
-  (string-append reconfigure-system
-                 allow-downgrades))
-
-(define and
-  "&& ")
-
-(define system-update
-  (string-append pull-guix
-                 and
-                 reconfigure-system
-                 and
-                 reconfigure-home
-                 and
-                 "sudo guix gc -d 7d"))
-
-(define system-update-
-  (string-append pull-guix-
-                 and
-                 reconfigure-system-
-                 and
-                 reconfigure-home-
-                 and
-                 "sudo guix gc -d 7d"))
-
-(home-environment
- (packages
-  (map
-   (compose list
-            specification->package+output)
-   '("adwaita-icon-theme"
-     "alacritty"
-     "clamav"
-     "cpupower"
-     "dconf-editor"
-     "emacs-next"
-     "emacs-aggressive-indent"
-     "emacs-eldoc"
-     "emacs-geiser"
-     "emacs-geiser-guile"
-     "emacs-nix-mode"
-     "emacs-nov-el"
-     "emacs-org-contacts"
-     "emacs-org-contrib"
-     "emacs-paredit"
-     "font-google-noto"
-     "git"
-     "git-lfs"
-     "gnome-tweaks"
-     "gnupg"
-     "hicolor-icon-theme"
-     "icecat"
-     "jami"
-     "libadwaita"
-     "libreoffice"
-     "nm-tray"
-     "pwgen"
-     "seahorse"
-     "sicp"
-     "strace"
-     "unzip"
-     "zip")))
- (services
-  (list
-   (service
-    (service-type
-     (name 'flashrom-package)
-     (extensions
-      `(,(service-extension home-profile-service-type
-                            (lambda (_)
-                              (map specification->package
-                                   '("flashrom"))))))
-     (description "Flashrom installation.")
-     (default-value #f)))
-   (service
-    (service-type
-     (name 'git-sendemail-packages)
-     (extensions
-      (list
-       (service-extension home-profile-service-type
-                          (lambda (_)
-                            (map
-                             (compose list
-                                      specification->package+output)
-                             (list
-                              "git"
-                              "git:send-email"))))))
-     (description "Git Send Email")
-     (default-value #f)))
-   (service
-    (service-type
-     (name 'org-fc-tn-package)
-     (extensions
-      (list
-       (service-extension home-profile-service-type
-                          (lambda (_)
-                            (map specification->package
-                                 (list
-                                  "emacs-org-fc-tn"))))))
-     (description "Custom version of ORG-FC.")
-     (default-value #f)))
-   (simple-service 'ssh-configuration* home-files-service-type
-                   `((".ssh/config" ,(plain-file "ssh-config" "\
-   Host *.onion
-   ProxyCommand nc -x localhost:9050 -X5 %h %p
-   
-   Host kynio.onion
-   User kynio
-   Hostname prnpi5oblk35gzcihbgu3227xvanisouxgbejri57bnzjawcksq4l7yd.onion
-   Port 22\n"))))
-   ;; (service
-   ;;  (service-type
-   ;;   (name 'trezor-user-packages)
-   ;;   (extensions
-   ;;    (list
-   ;;     (service-extension home-profile-service-type
-   ;;                        (lambda (_)
-   ;;                          (map specification->package
-   ;;                               (list
-   ;;                                "trezor-agent"))))))
-   ;;   (description "Trezor packages for the user.")
-   ;;   (default-value #f)))
-   (service home-bash-service-type
-            (home-bash-configuration
-             (environment-variables '(("EDITOR" . "emacs -nw")
-                                      ("GUILE_AUTO_COMPILE" . "0")
-                                      ("PATH" . "$PATH:/home/marek/.nix-profile/bin")))
-             (aliases `(("grep" . "grep --color=auto ")
-                        ("ll" . "ls -l ")
-                        ("ls" . "ls -p --color=auto ")
-                        ("nix" . "nix --extra-experimental-features flakes --extra-experimental-features nix-command")
-                        ("pull-guix" . ,pull-guix)
-                        ("pull-guix-" . ,pull-guix-)
-                        ("reconfigure-home" . ,reconfigure-home)
-                        ("reconfigure-home-" . ,reconfigure-home-)
-                        ("reconfigure-system" . ,reconfigure-system)
-                        ("reconfigure-system-" . ,reconfigure-system-)
-                        ("system-update" . ,system-update)
-                        ("system-update-" . ,system-update-)))
-             (bashrc (list
-                      (local-file "data/bashrc")))))
-   ;; (service
-   ;;  home-channels-service-type
-   ;;  (list
-   ;;   (channel
-   ;;    (name 'guix)                                                     
-   ;;    (url "https://git.savannah.gnu.org/git/guix.git"))                 
-   ;;   (channel
-   ;;    (name 'jeko)                                                                                                                                   
-   ;;    (url "https://framagit.org/Jeko/guix-jeko-channel.git"))                                                                                       
-   ;;   (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 'org-fc-tn)                                                                                                                              
-   ;;            (url "file:///home/marek/src/org-fc")                                                                                                          
-   ;;            (branch "repository"))                                                                                                                         
-   ;;   (channel (name 'packages)                                                                                                                               
-   ;;            (url "file:///home/marek/src/packages")                                                                                                        
-   ;;            (branch "master"))                                                                                                                             
-   ;;   (channel (name 'channel)                                                                                                                                
-   ;;            (url "https://git.marekpasnikowski.pl/git/channel.git")                                                                                        
-   ;;            (branch "wip-channel")                                                                                                                         
-   ;;            ( introduction                                                                                                                                
-   ;;              ( make-channel-introduction                                                                                                                  
-   ;;                "f8ccfe8f3e5c8bafe06665cbd4b0c9301e1a64b6"                                                                                                 
-   ;;                ( openpgp-fingerprint                                                                                                                      
-   ;;                  "590E 500F E39D 26B3 E60B 743B 6D81 B120 7711 899F" ) ) ))))
-   (simple-service 'configuration-files
-                   home-files-service-type
-                   `((".config/git/config" ,(local-file "data/git-config"))
-                     (".emacs" ,(local-file "data/emacs-config")))))))