Changeset d69a858 in dotfiles for guix

Timestamp:

Mar 22, 2022, 5:50:28 AM (3 years ago)

Author:

Mikhail Kirillov <w96k@…>

Branches:

master

Children:

9555e82

Parents:

2f98dbb

Message:

Add thinkfan

File:

• guix/config.scm (modified) (7 diffs)

guix/config.scm

@@ -12 +12 @@
  dbus
  docker
+ linux
  pm
+ vpn
  nix)
 
@@ -21 +23 @@
  linux
  python
+ gnome
  gawk
  xdisorg)
@@ -39 +42 @@
 ;;                   "--governor"
 ;;                   "schedutil"))))
+
+(define thinkfan-config
+  (plain-file "thinkpad_acpi.conf"
+              "options thinkpad_acpi fan_control=1"))
 
 (operating-system
@@ -88 +95 @@
       "font-gnu-unifont"
       "font-gnu-freefont"
+      "thinkfan"
+      "lm-sensors"
       "git"
       "stow"
@@ -109 +118 @@
              (device "/dev/ttyS4")
              (device-type "wacom")))
+
+   (service kernel-module-loader-service-type
+            '("thinkpad_acpi"))
+
+   (simple-service 'thinkfan-config etc-service-type
+                   (list `("modprobe.d/thinkpad_acpi.conf"
+                         ,thinkfan-config)))
+
+   (service openvpn-client-service-type
+            (openvpn-client-configuration
+             (persist-tun? #t)
+             (remote
+              (list
+               (openvpn-remote-configuration
+                (name "nyc.vpn.riseup.net")
+                (port 1196))))))
    
    (service special-files-service-type
@@ -119 +144 @@
                              "/lib/ld-linux-x86-64.so.2"))))
 
-   (service nix-service-type)
+   ;; (service nix-service-type)
 
    ;;%cpupower-service
@@ -130 +155 @@
    (modify-services %desktop-services
                     (delete gdm-service-type)
+                    (network-manager-service-type config =>
+                                       (network-manager-configuration
+                                       (inherit config)
+                                       (vpn-plugins (list network-manager-openvpn))))
                     (guix-service-type
-                     config => (guix-configuration
-                                (inherit config)
-                                (substitute-urls
-                                 '("https://bordeaux.guix.gnu.org")))))))
+                     config =>
+                     (guix-configuration
+                      (inherit config)
+                       (substitute-urls
+                        '("https://4zwzi66wwdaalbhgnix55ea3ab4pvvw66ll2ow53kjub6se4q2bclcyd.onion"
+                          "https://bordeaux.guix.gnu.org"))
+                       (http-proxy "http://localhost:9250"))))))
 
  (bootloader