From bc591dcedf45b80f70661f33c42c68dbd581e901 Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Mon, 11 Aug 2025 17:36:57 +0200
Subject: Migrate to RDE

---
 guix/jd/utils.scm | 75 -------------------------------------------------------
 1 file changed, 75 deletions(-)
 delete mode 100644 guix/jd/utils.scm

(limited to 'guix/jd/utils.scm')

diff --git a/guix/jd/utils.scm b/guix/jd/utils.scm
deleted file mode 100644
index 72be6fc..0000000
--- a/guix/jd/utils.scm
+++ /dev/null
@@ -1,75 +0,0 @@
-(define-module (jd utils)
-  #:use-module (gnu system)
-  #:use-module (ice-9 match)
-  #:export (jd-search-patches
-	    current-operating-system
-	    current-home))
-
-(define primitive-host-operating-system
-  "/etc/config.scm")
-
-(define-macro (define-combine-operating-systems name fields)
-  `(define (,name os-to-inherit-from os)
-     (operating-system
-      (inherit os-to-inherit-from)
-      ,@(map (lambda (field)
-	       `(,field
-		 (,(string->symbol
-		    (string-append
-		     "operating-system-"
-		     (symbol->string field)))
-		  os)))
-	     fields))))
-
-(define-combine-operating-systems combine-install-dest-informations
-  (bootloader mapped-devices file-systems))
-
-(define (make-reconfigureable-os os)
-  (combine-install-dest-informations
-   os
-   (load primitive-host-operating-system)))
-
-(define (current-operating-system)
-  (make-reconfigureable-os
-   (module-ref
-    (resolve-module
-     `(jd desktops ,(string->symbol (gethostname))))
-    'system)))
-
-(define (current-home)
-  (module-ref
-   (resolve-module
-    `(jd desktops ,(string->symbol (gethostname))))
-   'home))
-
-;; This code is copied and modified from (gnu packages) module. 
-
-(define (make-custom-load-path dir-path)
-  (make-parameter
-   (map (lambda (directory)
-	  (let ((custom-dir (string-append directory dir-path)))
-            (if (and (file-exists? custom-dir)
-		     (file-is-directory? custom-dir))
-		custom-dir
-		directory)))
-        %load-path)))
-
-(define (make-custom-searcher load-path)
-  (lambda (file-name)
-    (or (search-path (load-path) file-name)
-	(raise (string-append file-name
-			      ": not found")))))
-
-(define %jd-patch-path (make-custom-load-path "/jd/packages/patches"))
-(define %jd-dot-files-path (make-custom-load-path "/jd/home/services/dotfiles"))
-
-(define (jd-search-patch file-name)
-  "Search the patch FILE-NAME.  Raise an error if not found."
-  (or (search-path (%jd-patch-path) file-name)
-      (raise (string-append file-name
-			    ": patch not found"))))
-
-(define-syntax-rule (jd-search-patches file-name ...)
-  "Return the list of absolute file names corresponding to each
-FILE-NAME found in %JD-PATCH-PATH."
-  (list (jd-search-patch file-name) ...))
-- 
cgit v1.2.3