Re: Of sounds and locales

[Alex Kost <alezost@gmail.com>]

matias_jose_seco@autoproduzioni.net (2015-10-24 18:28 +0300) wrote:

> As always destiny seems to challenge our will to reach the peak!
>
>> Another option to reduce the whistle is to run "powertop --auto-tune"
>> after boot.  Here's a service definition I put into my OS config to
>> do this:
>>
>> --8<---------------cut here---------------start------------->8---
>> (define (powertop-auto-tune-service)
>>   (let ((powertop #~(string-append #$powertop "/sbin/powertop")))
>>     (with-monad %store-monad
>>       (return
>>        (service
>>         (documentation "Run powertop --auto-tune.")
>>         (provision '(powertop-auto-tune))
>>         (requirement '(user-processes))
>>         (start #~(lambda _
>>                    (zero? (system* #$powertop "--auto-tune")))))))))
>> --8<---------------cut here---------------end--------------->8---
>>
>> And then include (powertop-auto-tune-service) in the 'services' field.
>> Note, you'll need to import some extra modules at the top of the file:
>>
>> --8<---------------cut here---------------start------------->8---
>> (use-modules (gnu)
>>              (gnu services)
>>              (guix gexp)
>>              (guix store)
>>              (guix monads))
>> --8<---------------cut here---------------end--------------->8---
>>
>> [...]
>>
>> My workaround was to add another service that disables the
>> second CPU core when it gets too hot.  Here's the service definition I
>> used:
>>
>> --8<---------------cut here---------------start------------->8---
>> (define (temperature-regulation-service)
>>   (with-monad %store-monad
>>     (return
>>      (service
>>       (documentation "Regulate temperature on an overclocked Libreboot
>> X60.")
>>       (provision '(temperature-regulation))
>>       (requirement '(user-processes))
>>       (start #~(lambda _
>>                  (let ((pid (primitive-fork)))
>>                    (if (positive? pid)
>>                        pid
>>                        (let ()
>>                          (define (current-temp)
>>                            (call-with-input-file
>>                                "/sys/class/thermal/thermal_zone0/temp"
>>                              read))
>>                          (define (set-cpu1-online! online?)
>>                            (call-with-output-file
>>                                "/sys/devices/system/cpu/cpu1/online"
>>                              (lambda (port)
>>                                (write (if online? 1 0) port))))
>>                          (let loop ()
>>                            (let ((temp (current-temp)))
>>                              (cond ((< temp 88000) (set-cpu1-online!
>> #t))
>>                                    ((> temp 92000) (set-cpu1-online!
>> #f))))
>>                            (sleep 2)
>>                            (loop)))))))
>>       (stop #~(make-kill-destructor))
>>       (respawn? #t)))))
>> --8<---------------cut here---------------end--------------->8---
>>
>> and as above, you'll need to add (temperature-regulation-service) to
>> the
>> services field, and of course run "guix system reconfigure <OS-CONFIG>"
>> and reboot.
>>
>
> Should i add (define (temperature-regulation-service)...
> and (define (powertop-auto-tune-service)...
> inside (operating-system) definition ?

Nope, these are top-level definition, so it should be done like this:

(define ...)
(operating-system ...)

By the way, recently the service API was changed, so those service
definitions will not work anymore.

-- 
Alex