Fix functional decomposition of the package file

1 files changed, 27 insertions, 39 deletions

diff --git a/guix/ruby-nano-bots.scm b/guix/ruby-nano-bots.scm
index 78863bc..567cbab 100644
--- a/guix/ruby-nano-bots.scm
+++ b/guix/ruby-nano-bots.scm
@@ -6,46 +6,34 @@
   #:use-module (ruby-babosa))
 
 (define ruby-nano-bots-git-reference
-  (let ((git-reference-url "https://github.com/icebaker/ruby-nano-bots.git")
-	(git-reference-commit "v3.0.1"))
-    (git-reference (url git-reference-url)
-		   (commit git-reference-commit))))
+  (git-reference (url "https://github.com/icebaker/ruby-nano-bots.git")
+		 (commit "v3.0.1")))
+
+(define ruby-nano-bots-content-hash
+  (content-hash "079qi3zqhs34pqhjy4vi38ra5fixrrbdd4kqsi9b3dh7pbz65s4h"))
 
 (define ruby-nano-bots-origin
-  (let ((origin-method git-fetch)
-	(origin-hash "079qi3zqhs34pqhjy4vi38ra5fixrrbdd4kqsi9b3dh7pbz65s4h"))
-    (origin (uri ruby-nano-bots-git-reference)
-	    (method origin-method)
-	    (hash (content-hash origin-hash)))))
+  (origin (uri ruby-nano-bots-git-reference)
+	  (method git-fetch)
+	  (hash ruby-nano-bots-content-hash)))
 
 (define-public ruby-nano-bots
-  (let ((delete-check '(delete 'check)))
-    (let ((package-name "ruby-nano-bots")
-	  (package-version "3.0.1")
-	  (package-source ruby-nano-bots-origin)
-	  (package-build-system ruby-build-system)
-	  ;; (package-arguments `(#:phases (modify-phases %standard-phases
-	  ;; 					       ,delete-check)))
-	  (package-inputs (list ruby-babosa))
-	  (package-synopsis "Ruby Nano Bots")
-	  (package-description
-	   (string-append "Ruby Implementation of Nano Bots: "
-			  "small, AI-powered bots that can be easily "
-			  "shared as a single file, designed to support "
-			  "multiple providers such as Cohere Command, "
-			  "Google Gemini, Maritaca AI MariTalk, "
-			  "Mistral AI, Ollama, OpenAI ChatGPT, "
-			  "and others, with support for "
-			  "calling tools (functions)."))
-	  (package-license expat)
-	  (package-home-page "https://rubygems.org/gems/nano-bots"))
-      (package (name package-name)
-	       (version package-version)
-	       (source package-source)
-	       (build-system package-build-system)
-	       (arguments package-arguments)
-	       (inputs package-inputs)
-	       (synopsis package-synopsis)
-	       (description package-description)
-	       (license package-license)
-	       (home-page package-home-page)))))
+  (package (name "ruby-nano-bots")
+	   (version "3.0.1")
+	   (source ruby-nano-bots-origin)
+	   (build-system ruby-build-system)
+	   (arguments '(#:phases (modify-phases %standard-phases
+						(delete 'check))))
+	   (inputs (list ruby-babosa))
+	   (synopsis "Ruby Nano Bots")
+	   (description (string-append "Ruby Implementation of Nano Bots:"
+				       " small, AI-powered bots that can be"
+				       " easily shared as a single file,"
+				       " designed to support multiple providers"
+				       " such as Cohere Command, Google Gemini,"
+				       " Maritaca AI MariTalk, Mistral AI,"
+				       " Ollama, OpenAI ChatGPT, and others,"
+				       " with support for calling tools"
+				       " (functions)."))
+	   (license expat)
+	   (home-page "https://rubygems.org/gems/nano-bots")))