1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
;;; kaakaa --- Tiny, security-focused AI agent in Guile
;;; Copyright © 2026 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of kaakaa.
;;;
;;; kaakaa is free software: you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation, either version 3 of the License, or
;;; (at your option) any later version.
;;;
;;; kaakaa is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with kaakaa. If not, see <https://www.gnu.org/licenses/>.
(define-module (kaakaa-package)
#:use-module ((gnu packages guile)
#:select (guile-3.0 guile-json-4))
#:use-module ((gnu packages guile-xyz)
#:select (guile-lens guile-run64))
#:use-module ((gnu packages package-management)
#:select (guix))
#:use-module (guix build-system gnu)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils))
(define-public kaakaa
(package
(name "kaakaa")
(version "0.1.0")
(source (local-file ".."
"kaakaa-checkout"
#:recursive? #t
#:select? (or (git-predicate (dirname (current-source-directory)))
(const #t))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
#~(list (string-append "prefix=" #$output))
#:modules `(((guix build guile-build-system)
#:select (target-guile-effective-version))
,@%default-gnu-imported-modules)
#:phases
(with-imported-modules `((guix build guile-build-system)
,@%default-gnu-imported-modules)
#~(modify-phases %standard-phases
(replace 'patch-source-shebangs
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "bin/kaakaa"
(("^exec guile")
(string-append "exec "
(search-input-file inputs "/bin/guile"))))))
(delete 'configure)
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(effective-version (target-guile-effective-version)))
(wrap-program (string-append out "/bin/kaakaa")
`("GUILE_LOAD_PATH" prefix
(,(string-append out "/share/guile/site/" effective-version)
,(getenv "GUILE_LOAD_PATH")))
`("GUILE_LOAD_COMPILED_PATH" prefix
(,(string-append out "/lib/guile/"
effective-version "/site-ccache")
,(getenv "GUILE_LOAD_COMPILED_PATH")))))))))))
(inputs
(list guile-3.0 guile-json-4 guile-lens guix))
(native-inputs
(list guile-run64))
(home-page "https://forge.systemreboot.net/kaakaa")
(synopsis "Tiny, security-focused AI agent in Guile")
(description
"kaakaa is a tiny, security-focused AI agent written in Guile with
minimal dependencies. Kaakaa works with any LLM that provides an
OpenAI-compatible API.
kaakaa runs tool calls securely using containers and capability-based
access. Tool calls have limited or no access to the filesystem and to
the network. Capabilities allow network access to be controlled with
fine granularity. Containers are implemented using Guix's container
API.
kaakaa offers no user interface on its own. Instead, it speaks
the @acronym{ACP, Agent Client Protocol} and allows you to use any
compatible user interface of your choice.")
(license license:gpl3+)))
kaakaa
|
