From 745b985effc740962f02101b871491068c624e9e Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Sun, 14 Sep 2025 20:54:39 +0200
Subject: Tune a little my new rde config

---
 src/jd/features/mail.scm | 34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

(limited to 'src/jd/features/mail.scm')

diff --git a/src/jd/features/mail.scm b/src/jd/features/mail.scm
index f5c3536..bf137e9 100644
--- a/src/jd/features/mail.scm
+++ b/src/jd/features/mail.scm
@@ -27,7 +27,7 @@
   #:use-module (guix diagnostics)
   #:use-module (guix i18n)
 
-  #:export (feature-l2md* feature-mail-mcron))
+  #:export (feature-l2md* feature-mail-mcron feature-octave))
 
 (define* (feature-l2md*
           #:key
@@ -113,3 +113,35 @@ features that have been enabled."
   (feature
    (name 'mail-mcron)
    (home-services-getter get-home-services)))
+
+(define* (feature-octave
+          #:key (octave (@ (gnu packages maths) octave-cli)))
+  (define f-name 'octave)
+  (define (get-home-services config)
+    (list
+     (rde-elisp-configuration-service
+      f-name
+      config
+      `((with-eval-after-load 'org
+          (require 'ob-octave)
+          (add-to-list 'org-structure-template-alist
+                       '("octave" . "src octave"))
+          (org-babel-do-load-languages
+           'org-babel-load-languages
+           '((octave . t)))
+          (setq org-babel-default-header-args:octave
+                '((:results . "output")
+                  (:session . "octave")
+                  (:exports . "both")
+                  (:eval . "no-export"))))))
+     (simple-service
+      'octave-packages
+      home-profile-service-type
+      (append (or (and (get-value 'python config)
+                       (list (@ (gnu packages python-xyz) python-sympy)))
+                  '())
+              (list octave)))))
+  (feature
+   (name f-name)
+   (values `((,f-name . #t)))
+   (home-services-getter get-home-services)))
-- 
cgit v1.2.3