How to call a local function from a mcron job?

How to call a local function from a mcron job?

[EuAndreh]

Hi Guix!

I wrote a Guile function that works like a script that take no arguments
and interacts with the filesystem, something like:

  (define (my-fn)
    ...)

It is a wrapper over other functions defined in the same file, and calls
them in the right order.

Then I wanted to make this function run as a mcron job, and I tried:

  (define my-fn-job
    #(job "* * * * *"
          my-fn))

But that doesn't work. At reconfigure time, Guix complains about not
knowing the variable 'my-fn':

  Unbound variable: my-fn

I tried wrapping it in a '(with-imported-modules ...)' call, but the
code isn't in a module, but in the same file.

I guess that putting all my code from 'my-fn' and all the functions it
calls inlined in a lambda in the job definition would solve it, but it
feels wrong to me.

Is there a way to reference it from the job, without embedding all the
scheme code in the job definition?

Re: How to call a local function from a mcron job?

[Joshua Branson]

Heyo EuAndreh!

Perhaps you could put your scheme function into a file in the same
directory as your config.scm.  Call said file "my-fn.scm" with the
content:

#+BEGIN_SRC scheme
(define-module (my-fn)
    #:export (my-fn))

(define (my-fn)
   ...)
#+END_SRC

Then the top of your config.scm should look like this:

#+BEGIN_SRC scheme
(add-to-load-path (dirname (current-filename)))

(use-modules
(gnu)
(guix)
(my-fn)
...)
#+END_SRC

That should solve your issue.  :)

--
Joshua Branson
Sent from Emacs and Gnus
  https://gnucode.me
  https://video.hardlimit.com/accounts/joshua_branson/video-channels
  https://propernaming.org
  "You can have whatever you want, as long as you help

enough other people get what they want." - Zig Ziglar

Re: How to call a local function from a mcron job?

[EuAndreh via]

That makes sense. I'll try it later and report back.

Thanks!