(use-modules (gnu packages lisp-xyz))
(use-modules (gnu packages lisp-check))
(use-modules (gnu packages xdisorg))
(use-modules (gnu packages cmake))
(use-modules (gnu packages pkg-config))
(use-modules (gnu packages freedesktop))
(use-modules (gnu packages wm))
(use-modules (guix packages))
(use-modules (guix gexp))
(use-modules (guix git-download))
(use-modules (guix licenses))
(use-modules (guix build-system asdf))
(use-modules (guix build-system meson))

(define-public mahogany
 (let ((commit "3b8c5a1ab2cf55669fd4051cf170e8c8a615b70c")
       ;(commit "4b6b5f8667d8bfa07b889e9298e995f8eebb20bd")
       (revision "0"))
   (package
    (name "mahogany")
    (version (git-version "0.0.0" revision commit))
    (source
     (origin
      (method git-fetch)
      (uri (git-reference
            (url "https://github.com/stumpwm/mahogany")
            (commit commit)))
      (file-name (git-file-name "mahogany" version))
      (sha256
	 (base32 "01whrc6ml3k7nh17c8cm03r9l2y740js7vjp3hyh90ak65spr7vp")
       ;(base32 "11kffkkimfk689r5cc351kxr7dadcj3d8dhm2ffvd5b2lz9jwlqp")
       )))
    (build-system asdf-build-system/sbcl)
    (native-inputs
     (list sbcl-fiasco
           sbcl-prove))
    (inputs
     (list mahogany-heart
           sbcl-xkbcommon
           libxkbcommon
           sbcl-cl-wayland
           sbcl-alexandria
           sbcl-cl-ansi-text
           sbcl-terminfo
           sbcl-snakes
           sbcl-iterate
	   sbcl-adopt
           sbcl-cffi ;; Provides cffi-grovel
           wayland
           wayland-protocols
           wlroots))
    (outputs '("out" "lib"))
    (arguments
     (list
      #:phases
      #~(modify-phases %standard-phases
                       (add-after 'unpack 'delete-submodules
                                  (lambda* (#:key outputs #:allow-other-keys)
                                           (delete-file-recursively "./dependencies")
                                           (delete-file-recursively "./heart")))
                       (add-after 'delete-submodules 'fix-paths
                                  (lambda* (#:key inputs #:allow-other-keys)
                                           (substitute* "lisp/bindings/hrt-libs.lisp"
                                                        (("libheart.so")
                                                         (search-input-file inputs
                                                                            "/lib/libheart.so"))
                                                        (("libwlroots.so")
                                                         (search-input-file inputs
                                                                            "/lib/libwlroots.so")))))
                       (add-after 'create-asdf-configuration 'build-program
                                  (lambda* (#:key outputs #:allow-other-keys)
                                           (build-program
                                            (string-append (assoc-ref outputs "out") "/bin/mahogany")
                                            outputs
                                            #:entry-program '((mahogany::run-server) 0))))
                       (add-after 'build-program 'create-desktop-file
                                  (lambda* (#:key outputs #:allow-other-keys)
                                           (let* ((out (assoc-ref outputs "out"))
                                                  (xsessions (string-append out "/share/xsessions"))
                                                  (wayland-sessions (string-append out "/share/wayland-sessions")))
                                             (define (desktop-file file)
                                                     (format file
                                                             "[Desktop Entry]~@
                      Name=stumpwm~@
                      Comment=The Mahogany Window Manager~@
                      Exec=~a/bin/mahogany~@
                      TryExec=~@*~a/bin/mahogany~@
                      Icon=~@
                      Type=Application~%"
                                                             out))
                                             (mkdir-p xsessions)
                                             (call-with-output-file
                                              (string-append xsessions "/mahogany.desktop")
                                              desktop-file)
                                             (mkdir-p wayland-sessions)
                                             (call-with-output-file
                                              (string-append wayland-sessions "/mahogany.desktop")
                                              desktop-file)))))))
    (synopsis "Window manager for Wayland written in Common Lisp")
    (description
     "Mahogany is a tiling window manager for Wayland modeled after StumpWM.
While it is not a drop-in replacement for stumpwm, stumpwm users should be
very comfortable with Mahogany.")
    (home-page "https://github.com/stumpwm/mahogany")
    (license gpl2+))))

(define-public mahogany-heart
  (package
    (name "mahogany-heart")
    (version (package-version mahogany))
    (source (package-source mahogany))
    (build-system meson-build-system)
    (native-inputs
     (list pkg-config
	   cmake))
    (inputs
     (list wlroots
           libxkbcommon))
    (arguments
     (list
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'unpack 'chdir
            (lambda _ (chdir "heart")))
          ;(add-after 'chdir 'delete-submodules
          ;  (lambda* (#:key outputs #:allow-other-keys)
          ;    (delete-file-recursively "./subprojects")))
	  )))
    (synopsis "An alternative C backend to a Wayland compositor to use with Mahogany")
    (description
     "Mahogany-heart's task is to setup the initial state of the
compositor, render the output, and initially handle new connections to
the compositor. If needed, the backend will also wrap some wlroots
functions so that less foreign code needs to be called from the other
language. is a tiling window manager for Wayland modeled after
StumpWM.")
    (home-page (package-home-page mahogany))
    (license (package-license mahogany))))
 
mahogany