me/guix
Archived
1
0
Fork 0
Code Activity

gnu: neovim: Use new style.

Browse source 
* gnu/packages/vim.scm (neovim): Use new style.
[source]: Rewrite using gexps.
[arguments]: Rewrite using gexps.
[inputs and native-inputs]: Remove input labels.
[description]: Run `guix style`.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Luis Henrique Gomes Higino 2022-05-18 10:32:25 -03:00 • committed by Ludovic Courtès
parent e49a2d03bb
commit 182b25fbf5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 81 additions and 75 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

90
gnu/packages/vim.scm
View file

@ -659,46 +659,54 @@ are detected, the user is notified.")))
(package (package
(name "neovim") (name "neovim")
(version "0.7.0") (version "0.7.0")
(source (source (origin
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/neovim/neovim") (url "https://github.com/neovim/neovim")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1m7xmry66pn27gvk7qj9di83xa1h7zjp4c6ygnf218pqhr08x06g")))) (base32
"1m7xmry66pn27gvk7qj9di83xa1h7zjp4c6ygnf218pqhr08x06g"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:modules ((srfi srfi-26) (list #:modules
(guix build cmake-build-system) '((srfi srfi-26) (guix build cmake-build-system)
(guix build utils)) (guix build utils))
#:configure-flags #:configure-flags
(list ,@(if (member (if (%current-target-system) #~(list #$@(if (member (if (%current-target-system)
(gnu-triplet->nix-system (%current-target-system)) (gnu-triplet->nix-system (%current-target-system))
(%current-system)) (%current-system))
(package-supported-systems luajit)) (package-supported-systems luajit))
'() '()
'("-DPREFER_LUA:BOOL=YES"))) '("-DPREFER_LUA:BOOL=YES")))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'set-lua-paths (add-after 'unpack 'set-lua-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* _
(let* ((lua-version "5.1") (let* ((lua-version "5.1")
(lua-cpath-spec (lua-cpath-spec (lambda (prefix)
(lambda (prefix) (let ((path (string-append
(let ((path (string-append prefix "/lib/lua/" lua-version))) prefix
(string-append path "/?.so;" path "/?/?.so")))) "/lib/lua/"
(lua-path-spec lua-version)))
(lambda (prefix) (string-append
(let ((path (string-append prefix "/share/lua/" lua-version))) path
(string-append path "/?.lua;" path "/?/?.lua")))) "/?.so;"
(lua-inputs (map (cute assoc-ref inputs <>) path
'("lua" "/?/?.so"))))
"lua-luv" (lua-path-spec (lambda (prefix)
"lua-lpeg" (let ((path (string-append prefix
"lua-bitop" "/share/lua/"
"lua-libmpack")))) lua-version)))
(string-append path "/?.lua;"
path "/?/?.lua"))))
(lua-inputs (list (or #$(this-package-input "lua")
#$(this-package-input "luajit"))
#$lua5.1-luv
#$lua5.1-lpeg
#$lua5.1-bitop
#$lua5.1-libmpack)))
(setenv "LUA_PATH" (setenv "LUA_PATH"
(string-join (map lua-path-spec lua-inputs) ";")) (string-join (map lua-path-spec lua-inputs) ";"))
(setenv "LUA_CPATH" (setenv "LUA_CPATH"
@ -712,31 +720,28 @@ are detected, the user is notified.")))
(substitute* "cmake/GetCompileFlags.cmake" (substitute* "cmake/GetCompileFlags.cmake"
(("\\$\\{CMAKE_C_COMPILER\\}") "/gnu/store/.../bin/gcc")) (("\\$\\{CMAKE_C_COMPILER\\}") "/gnu/store/.../bin/gcc"))
#t))))) #t)))))
(inputs (inputs (list libuv-for-luv
`(("libuv" ,libuv-for-luv) msgpack
("msgpack" ,msgpack) libtermkey
("libtermkey" ,libtermkey) libvterm
("libvterm" ,libvterm) unibilium
("unibilium" ,unibilium) jemalloc
("jemalloc" ,jemalloc) (if (member (if (%current-target-system)
("lua" ,(if (member (if (%current-target-system)
(gnu-triplet->nix-system (%current-target-system)) (gnu-triplet->nix-system (%current-target-system))
(%current-system)) (%current-system))
(package-supported-systems luajit)) (package-supported-systems luajit))
luajit luajit
lua-5.1)) lua-5.1)
("lua-luv" ,lua5.1-luv) lua5.1-luv
("lua-lpeg" ,lua5.1-lpeg) lua5.1-lpeg
("lua-bitop" ,lua5.1-bitop) lua5.1-bitop
("lua-libmpack" ,lua5.1-libmpack) lua5.1-libmpack
("tree-sitter" ,tree-sitter))) tree-sitter))
(native-inputs (native-inputs (list pkg-config gettext-minimal gperf))
`(("pkg-config" ,pkg-config)
("gettext" ,gettext-minimal)
("gperf" ,gperf)))
(home-page "https://neovim.io") (home-page "https://neovim.io")
(synopsis "Fork of vim focused on extensibility and agility") (synopsis "Fork of vim focused on extensibility and agility")
(description "Neovim is a project that seeks to aggressively (description
"Neovim is a project that seeks to aggressively
refactor Vim in order to: refactor Vim in order to:
@itemize @itemize
@ -744,7 +749,8 @@ refactor Vim in order to:
@item Split the work between multiple developers @item Split the work between multiple developers
@item Enable advanced external UIs without modifications to the core @item Enable advanced external UIs without modifications to the core
@item Improve extensibility with a new plugin architecture @item Improve extensibility with a new plugin architecture
@end itemize\n") @end itemize
")
;; Neovim is licensed under the terms of the Apache 2.0 license, ;; Neovim is licensed under the terms of the Apache 2.0 license,
;; except for parts that were contributed under the Vim license. ;; except for parts that were contributed under the Vim license.
(license (list license:asl2.0 license:vim)))) (license (list license:asl2.0 license:vim))))