(define-module (px packages throttled)
  #:use-module ((guix licenses)
                #:prefix license:)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (guix build-system trivial)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages base)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-xyz))

(define-public throttled
  (package
    (name "throttled")
    (version "0.10.0")
    (source
     (origin
       (method url-fetch)
       (uri (string-append
             "https://github.com/erpalma/throttled/archive/refs/tags/v"
             version ".tar.gz"))
       (sha256
        (base32 "1f39rfk6bdx0a0m7krbb7yj0jy1p2a7qqn99y7jb02d84vy45q29"))))
    (build-system trivial-build-system)
    (arguments
     `(#:modules ((guix build utils))
       #:builder (begin
                   (use-modules (guix build utils)
                                (srfi srfi-26))
                   (let* ((source (assoc-ref %build-inputs "source"))
                          (bash (assoc-ref %build-inputs "bash"))
                          (coreutils (assoc-ref %build-inputs "coreutils"))
                          (dbus (assoc-ref %build-inputs "dbus"))
                          (gzip (assoc-ref %build-inputs "gzip"))
                          (python (assoc-ref %build-inputs "python"))
                          (python-dbus (assoc-ref %build-inputs "python-dbus"))
                          (python-pygo (assoc-ref %build-inputs
                                                  "python-pygobject"))
                          (pythonpath (string-append "/lib/python"
                                                     ,(version-major+minor (package-version
                                                                            python))
                                                     "/site-packages:"))
                          (tar (assoc-ref %build-inputs "tar"))
                          (bin-dir (string-append %output "/bin"))
                          (etc-dir (string-append %output "/etc/throttled"))
                          (python-dir (string-append %output "/python"))
                          (root-dir "throttled-0.10.0")
                          (bin-script (string-append root-dir
                                                     "/runit/throttled/run"))
                          (py-script (string-append root-dir "/throttled.py")))
                     (mkdir-p bin-dir)
                     (mkdir-p etc-dir)
                     (mkdir-p python-dir)
                     (setenv "PATH"
                             (string-append (string-append bash "/bin:")
                                            (string-append coreutils "/bin:")
                                            (string-append gzip "/bin:")
                                            (string-append tar "/bin:")))
                     (invoke "tar" "xvf" source)
                     (invoke "cp"
                             (string-append root-dir "/etc/throttled.conf")
                             (string-append etc-dir "/throttled.conf"))
                     (invoke "cp"
                             (string-append root-dir "/mmio.py") python-dir)
                     (substitute* py-script
                       (("/etc/throttled")
                        etc-dir))
                     (invoke "cp" py-script python-dir)
                     (substitute* bin-script
                       (("/opt/throttled/venv")
                        python))
                     (substitute* bin-script
                       (("/opt/throttled/throttled.py")
                        (string-append python-dir "/throttled.py" " $@")))
                     (invoke "mv" bin-script
                             (string-append bin-dir "/throttled"))
                     (wrap-program (string-append bin-dir "/throttled")
                       `("PYTHONPATH" ":" prefix
                         (,(string-append python-dbus pythonpath))))
                     (wrap-program (string-append bin-dir "/throttled")
                       `("PYTHONPATH" ":" prefix
                         (,(string-append python-pygo pythonpath))))
                     #t))))
    (native-inputs `(("coreutils" ,coreutils)
                     ("gzip" ,gzip)
                     ("python" ,python)
                     ("tar" ,tar)))
    (inputs `(("bash" ,bash)
              ("python-dbus" ,python-dbus)
              ("python-pygobject" ,python-pygobject)))
    (home-page "https://github.com/erpalma/throttled")
    (synopsis "Workaround for Intel throttling issues in Linux.")
    (description
     "The CPU package power limit (PL1/2) is forced to a value of 44 W (29 W on battery)
and the temperature trip point to 95 'C (85 'C on battery) by overriding default values
in MSR and MCHBAR every 5 seconds (30 on battery) to block the Embedded Controller from
resetting these values to default.")
    (license license:expat)))