radix/radix/packages/text-editors.scm

178 lines
8.2 KiB
Scheme

(define-module (radix packages text-editors)
#:use-module (gnu packages crates-apple)
#:use-module (gnu packages crates-io)
#:use-module (gnu packages crates-windows)
#:use-module (gnu packages text-editors)
#:use-module (guix build-system cargo)
#:use-module (guix build-system trivial)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (radix packages crates-io)
#:use-module ((guix licenses) #:prefix license:)
#:replace (kakoune
kak-lsp
kak-tree-sitter))
(define-public kakoune
(let ((base (@@ (gnu packages text-editors) kakoune)))
(package
(inherit base)
(source #f)
(build-system trivial-build-system)
(native-inputs (list base))
(arguments
(list #:modules '((guix build utils))
#:builder
#~(begin
(use-modules (guix build utils))
(let* ((out #$output)
(applications (string-append out "/share/applications"))
(in (assoc-ref %build-inputs "kakoune"))
(kak-bin (string-append out "/bin/kak")))
(copy-recursively in out)
(chmod kak-bin #o755)
(mkdir-p applications)
(make-desktop-entry-file
(string-append applications "/kak.desktop")
#:type "Application"
#:name "kak"
#:comment "Launches the kakoune text editor"
#:icon "utilities-terminal"
#:terminal #t
#:try-exec (string-append out "/bin/kak")
#:exec (string-append out "/bin/kak %f")
#:categories (list "ConsoleOnly"
"System")
#:mime-type (list "application/x-shellscript"
"text/english"
"text/plain"
"text/troff"
"text/x-c"
"text/x-c++"
"text/x-c++hdr"
"text/x-c++src"
"text/x-chdr"
"text/x-csrc"
"text/x-diff"
"text/x-java"
"text/x-lisp"
"text/x-makefile"
"text/x-moc"
"text/x-pascal"
"text/x-scheme"
"text/x-shellscript"
"text/x-tcl"
"text/x-tex"
"text/x-tex"
"text/xml")))))))))
(define-public kak-lsp
(package
(name "kak-lsp")
(version "17.1.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kakoune-lsp/kakoune-lsp")
(commit (string-append "v" version))))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "18i0gq89pbzcz7dli40fxf96w3nghqm6dbwxjk1kxssyqgvyk41m"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs (("rust-clap" ,rust-clap-4)
("rust-crossbeam-channel" ,rust-crossbeam-channel-0.5)
("rust-daemonize" ,rust-daemonize-0.5)
("rust-diffs" ,rust-diffs-0.5)
("rust-dirs" ,rust-dirs-5)
("rust-enum-primitive" ,rust-enum-primitive-0.1)
("rust-fs4" ,rust-fs4-0.8)
("rust-glob" ,rust-glob-0.3)
("rust-indoc" ,rust-indoc-2)
("rust-itertools" ,rust-itertools-0.13)
("rust-jsonrpc-core" ,rust-jsonrpc-core-18)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-libc" ,rust-libc-0.2)
("rust-lsp-types" ,rust-lsp-types-0.95)
("rust-notify-debouncer-full" ,rust-notify-debouncer-full-0.3)
("rust-pulldown-cmark" ,rust-pulldown-cmark-0.9)
("rust-rand" ,rust-rand-0.8)
("rust-regex" ,rust-regex-1)
("rust-ropey" ,rust-ropey-1)
("rust-serde" ,rust-serde-1)
("rust-serde-derive" ,rust-serde-derive-1)
("rust-serde-json" ,rust-serde-json-1)
("rust-serde-repr" ,rust-serde-repr-0.1)
("rust-slog" ,rust-slog-2)
("rust-slog-scope" ,rust-slog-scope-4)
("rust-sloggers" ,rust-sloggers-2)
("rust-toml" ,rust-toml-0.8)
("rust-unicode-width" ,rust-unicode-width-0.1)
("rust-url" ,rust-url-2)
("rust-whoami" ,rust-whoami-1))))
(home-page "https://github.com/kakoune-lsp/kakoune-lsp")
(synopsis "Kakoune Language Server Protocol Client")
(description
"This package provides Kakoune Language Server Protocol Client.")
(license (list license:unlicense license:expat))))
(define-public kak-tree-sitter
(let ((commit "4a717751ffe599d1d46f70f8a9ad0bd978ef324a")
(revision "0"))
(package
(name "kak-tree-sitter")
(version (git-version "1.1.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~hadronized/kak-tree-sitter")
(commit commit)))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "14qqlxg4qi59njayc6xmgw62s3mnrba9ndz05cprfyxdwvnnqf3q"))))
(build-system cargo-build-system)
(arguments
`(#:install-source? #f
#:imported-modules (,@%cargo-build-system-modules
(guix build cargo-build-system))
#:modules ((guix build utils)
(guix build cargo-build-system)
(ice-9 match))
#:cargo-inputs (("rust-chrono" ,rust-chrono-0.4)
("rust-clap" ,rust-clap-4)
("rust-colored" ,rust-colored-2)
("rust-ctrlc" ,rust-ctrlc-3)
("rust-daemonize" ,rust-daemonize-0.5)
("rust-dirs" ,rust-dirs-5)
("rust-itertools" ,rust-itertools-0.12)
("rust-libc" ,rust-libc-0.2)
("rust-libloading" ,rust-libloading-0.8)
("rust-log" ,rust-log-0.4)
("rust-mio" ,rust-mio-0.8)
("rust-serde" ,rust-serde-1)
("rust-serde-json" ,rust-serde-json-1)
("rust-simple-logger" ,rust-simple-logger-5)
("rust-thiserror" ,rust-thiserror-1)
("rust-toml" ,rust-toml-0.8)
("rust-tree-sitter" ,rust-tree-sitter-0.20)
("rust-tree-sitter-highlight" ,rust-tree-sitter-highlight-0.20)
("rust-tree-sitter-rust" ,rust-tree-sitter-rust-0.20)
("rust-unicode-segmentation" ,rust-unicode-segmentation-1)
("rust-uuid" ,rust-uuid-1))
#:phases ,#~(modify-phases %standard-phases
(replace 'install
(lambda _
(let* ((bin (string-append #$output "/bin")))
(install-file "target/release/ktsctl" bin)
(install-file "target/release/kak-tree-sitter" bin)))))))
(home-page "https://git.sr.ht/~hadronized/kak-tree-sitter/")
(synopsis "Server between Kakoune and tree-sitter")
(description
"This package provides Server between Kakoune and tree-sitter.")
(license license:bsd-3))))