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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Giacomo Leidi <goodoldpaul@autistici.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix 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.
;;;
;;; GNU Guix 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 GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages scheme-xyz)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bash)
#:use-module (gnu packages guile)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages texinfo)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix build-system gnu))
(define (scheme-json-rpc-origin name version hash)
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/rgherdt/scheme-json-rpc.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
hash))))
(define-public guile-scheme-json-rpc
(package
(name "guile-scheme-json-rpc")
(version "0.2.11")
(source
(scheme-json-rpc-origin
name
version
"0w4m8xx8yyj0rv0q57mjr8ja87l7yikscj33i3ck26wg7230ppa5"))
(build-system gnu-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'move-to-guile-directory
(lambda _
(chdir "./guile"))))))
(native-inputs (list pkg-config))
(inputs (list guile-3.0-latest))
(synopsis "Implementation of the JSON-RPC for Scheme")
(description
"@code{scheme-json-rpc} allows calling procedures
on remote servers by exchanging JSON objects. It implements the
@url{jsonrpc specifications, https://www.jsonrpc.org/specification}.
The low-level API strives to be R7RS compliant, relying on some SRFI's
when needed. So far it was only tested under CHICKEN 5 and Guile 3.
This package delivers Guile's bytecode for @code{scheme-json-rpc}.")
(home-page "https://codeberg.org/rgherdt/scheme-json-rpc")
(license license:expat)))
(define (scheme-lsp-server-origin name version hash)
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/rgherdt/scheme-lsp-server.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
hash))))
(define-public guile-scheme-lsp-server
(package
(name "guile-scheme-lsp-server")
(version "0.2.2")
(source
(scheme-lsp-server-origin
name
version
"0lb359gw00w149h5yq2brfrcpybdwdj6ndbl7k1ms88l653r5l2g"))
(build-system gnu-build-system)
(arguments
(list #:modules `((ice-9 match)
(ice-9 ftw)
,@%gnu-build-system-modules)
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'move-to-guile-directory
(lambda _
(chdir "./guile")))
(add-after 'install 'wrap-entrypoint
(lambda _
(let* ((bin (string-append #$output "/bin"))
(site (string-append #$output
"/share/guile/site"))
(deps (list #$guile-scheme-json-rpc)))
(match (scandir site)
(("." ".." version)
(let ((modules (string-append site "/"
version))
(compiled-modules (string-append #$output
"/lib/guile/"
version
"/site-ccache")))
(wrap-program (string-append bin
"/guile-lsp-server")
`("GUILE_LOAD_PATH" ":"
prefix
(,modules
,@(map (lambda (dep)
(string-append
dep
"/share/guile/site/"
version))
deps)))
`("GUILE_LOAD_COMPILED_PATH"
":" prefix
(,compiled-modules
,@(map (lambda (dep)
(string-append
dep
"/lib/guile/"
version
"/site-ccache"))
deps))))
#t)))))))))
(native-inputs (list pkg-config))
(inputs
;; Depend on the latest Guile to avoid bytecode compatibility issues when
;; using modules built against the latest version.
(list bash-minimal
guile-3.0-latest))
(propagated-inputs (list guile-scheme-json-rpc))
(synopsis "LSP (Language Server Protocol) server for Scheme")
(description
"@code{guile-lsp-server} is an implementation for Guile of the LSP
specification. This software aims to support several Scheme implementations.
To achieve this, the code is designed to contain as much logic as possible in
R7RS Scheme, separating implementation-specific code in different modules.
This package delivers Guile's implementation for @code{scheme-lsp-server}.")
(home-page "https://codeberg.org/rgherdt/scheme-lsp-server")
(license license:expat)))
|