nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: guile-wm: Fix up indentation. 

* gnu/packages/guile-wm.scm (guile-wm): Fix up indentation.

Signed-off-by: Kei Kebreau <kkebreau@posteo.net>
master
ng0 2017-12-04 22:18:40 +00:00 committed by Kei Kebreau
parent 17acac5135
commit 5b4e0957ef
No known key found for this signature in database
GPG Key ID: E6A5EE3C19467A0D
1 changed files with 69 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

138
gnu/packages/guile-wm.scm
View File

@ -72,80 +72,80 @@ dependencies.")
(define-public guile-wm (define-public guile-wm
(let ((commit "f3c7b3be719f425ffb87265d34855a73366351be") (let ((commit "f3c7b3be719f425ffb87265d34855a73366351be")
(revision "1")) (revision "1"))
(package (package
(name "guile-wm") (name "guile-wm")
(version (git-version "1.0" revision commit)) (version (git-version "1.0" revision commit))
(synopsis "X11 window manager toolkit in Scheme") (synopsis "X11 window manager toolkit in Scheme")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/mwitmer/guile-wm") (url "https://github.com/mwitmer/guile-wm")
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"086dijnpl5dpglf70d6f9sizyakr313y7blpdjrmbi687j1x3qcl")))) "086dijnpl5dpglf70d6f9sizyakr313y7blpdjrmbi687j1x3qcl"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`( ;; The '.scm' files go to $(datadir), so set that to the `( ;; The '.scm' files go to $(datadir), so set that to the
;; standard value. ;; standard value.
#:configure-flags (list (string-append "--datadir=" #:configure-flags (list (string-append "--datadir="
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"/share/guile/site/2.2")) "/share/guile/site/2.2"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'set-go-directory (add-before 'configure 'set-go-directory
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Install .go files to $out/share/guile/site/2.2. ;; Install .go files to $out/share/guile/site/2.2.
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(substitute* "module/Makefile.in" (substitute* "module/Makefile.in"
(("^wmdir = .*$") (("^wmdir = .*$")
(string-append "wmdir = " out (string-append "wmdir = " out
"/share/guile/site/2.2\n")))) "/share/guile/site/2.2\n"))))
#t)) #t))
(add-after 'install 'set-load-path (add-after 'install 'set-load-path
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; Put Guile-XCB's and Guile-WM's modules in the ;; Put Guile-XCB's and Guile-WM's modules in the
;; search path of PROG. ;; search path of PROG.
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(prog (string-append out "/bin/guile-wm")) (prog (string-append out "/bin/guile-wm"))
(mods (string-append (mods (string-append
out "/share/guile/site/2.2")) out "/share/guile/site/2.2"))
(xcb (string-append (xcb (string-append
(assoc-ref inputs "guile-xcb") (assoc-ref inputs "guile-xcb")
"/share/guile/site/2.2"))) "/share/guile/site/2.2")))
(wrap-program (wrap-program
prog prog
`("GUILE_LOAD_PATH" ":" prefix (,mods ,xcb)) `("GUILE_LOAD_PATH" ":" prefix (,mods ,xcb))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix `("GUILE_LOAD_COMPILED_PATH" ":" prefix
(,mods ,xcb)))) (,mods ,xcb))))
#t)) #t))
(add-after 'install 'install-xsession (add-after 'install 'install-xsession
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; add a .desktop file to xsessions ;; add a .desktop file to xsessions
(let ((xsessions (string-append (let ((xsessions (string-append
%output "/share/xsessions"))) %output "/share/xsessions")))
(mkdir-p xsessions) (mkdir-p xsessions)
(call-with-output-file (string-append (call-with-output-file (string-append
xsessions "/guile-wm.desktop") xsessions "/guile-wm.desktop")
(lambda (port) (lambda (port)
(format port (format port
"[Desktop Entry]~@ "[Desktop Entry]~@
Name=~a~@ Name=~a~@
Comment=~a~@ Comment=~a~@
Exec=~a/bin/guile-wm~@ Exec=~a/bin/guile-wm~@
Type=Application~%" Type=Application~%"
,name ,synopsis %output)))) ,name ,synopsis %output))))
#t))))) #t)))))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(inputs `(("guile" ,guile-2.2) (inputs `(("guile" ,guile-2.2)
("guile-xcb" ,guile-xcb))) ("guile-xcb" ,guile-xcb)))
(home-page "https://github.com/mwitmer/guile-wm/releases") (home-page "https://github.com/mwitmer/guile-wm/releases")
(description (description
"Guile-WM is a simple window manager that's completely customizable—you "Guile-WM is a simple window manager that's completely customizable—you
have total control of what it does by choosing which modules to include. have total control of what it does by choosing which modules to include.
Included with it are a few modules that provide basic TinyWM-like window Included with it are a few modules that provide basic TinyWM-like window
management, some window record-keeping, multi-monitor support, and emacs-like management, some window record-keeping, multi-monitor support, and emacs-like
keymaps and minibuffer. At this point, it's just enough to get you started.") keymaps and minibuffer. At this point, it's just enough to get you started.")
(license gpl3+)))) (license gpl3+))))