;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech>
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; 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 openkinect)
  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages image-processing))

(define-public libfreenect
  (let ((version "0.6.2"))
    (package
      (name "libfreenect")
      (version version)
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url "https://github.com/OpenKinect/libfreenect")
                      (commit (string-append "v" version))))
                (file-name (git-file-name name version))
                (sha256
                 (base32
                  "02pb8mcl62kzdcgbnv3rw4nl0f08iw8pjiqqhfy3ycpkvyppw97w"))))
      (build-system cmake-build-system)
      (arguments
       '(#:tests? #f     <pre>
;; Per-directory local variables for GNU Emacs 23 and later.

((nil
  . ((fill-column . 78)
     (tab-width   .  8)
     (sentence-end-double-space . t)

     ;; For use with &apos;bug-reference-prog-mode&apos;.  Extra bug-reference
     ;; configuration should be done in your Emacs user configuration file;
     ;; refer to (info (guix) The Perfect Setup).
     (bug-reference-bug-regexp
      . &quot;\\(&lt;https?://\\bugs\\.gnu\\.org/\\([0-9]+\\)&gt;\\)&quot;)
     (bug-reference-url-format . &quot;https://issues.guix.gnu.org/%s&quot;)

     (eval . (add-to-list &apos;completion-ignored-extensions &quot;.go&quot;))

     ;; Emacs-Guix
     (eval . (setq-local guix-directory
                         (locate-dominating-file default-directory
                                                 &quot;.dir-locals.el&quot;)))

     ;; YASnippet
     (eval . (with-eval-after-load
                 &apos;yasnippet
               (let ((guix-yasnippets
                      (expand-file-name
                       &quot;etc/snippets/yas&quot;
                       (locate-dominating-file default-directory
                                               &quot;.dir-locals.el&quot;))))
                 (unless (member guix-yasnippets yas-snippet-dirs)
                   (add-to-list &apos;yas-snippet-dirs guix-yasnippets)
                   (yas-reload-all)))))

     ;; Geiser
     ;; This allows automatically setting the `geiser-guile-load-path&apos;
     ;; variable when using various Guix checkouts (e.g., via git worktrees).
     (geiser-repl-per-project-p . t)))

 (c-mode          . ((c-file-style . &quot;gnu&quot;)))
 (scheme-mode
  .
  ((indent-tabs-mode . nil)
   (eval . (put &apos;eval-when &apos;scheme-indent-function 1))
   (eval . (put &apos;call-with-prompt &apos;scheme-indent-function 1))
   (eval . (put &apos;test-assert &apos;scheme-indent-function 1))
   (eval . (put &apos;test-assertm &apos;scheme-indent-function 1))
   (eval . (put &apos;test-equalm &apos;scheme-indent-function 1))
   (eval . (put &apos;test-equal &apos;scheme-indent-function 1))
   (eval . (put &apos;test-eq &apos;scheme-indent-function 1))
   (eval . (put &apos;call-with-input-string &apos;scheme-indent-function 1))
   (eval . (put &apos;call-with-port &apos;scheme-indent-function 1))
   (eval . (put &apos;guard &apos;scheme-indent-function 1))
   (eval . (put &apos;lambda* &apos;scheme-indent-function 1))
   (eval . (put &apos;substitute* &apos;scheme-indent-function 1))
   (eval . (put &apos;match-record &apos;scheme-indent-function 3))
   (eval . (put &apos;match-record-lambda &apos;scheme-indent-function 2))

   ;; TODO: Contribute these to Emacs&apos; scheme-mode.
   (eval . (put &apos;let-keywords &apos;scheme-indent-function 3))

   ;; &apos;modify-inputs&apos; and its keywords.
   (eval . (put &apos;modify-inputs &apos;scheme-indent-function 1))
   (eval . (put &apos;replace &apos;scheme-indent-function 1))

   ;; &apos;modify-phases&apos; and its keywords.
   (eval . (put &apos;modify-phases &apos;scheme-indent-function 1))
   (eval . (put &apos;replace &apos;scheme-indent-function 1))
   (eval . (put &apos;add-before &apos;scheme-indent-function 2))
   (eval . (put &apos;add-after &apos;scheme-indent-function 2))

   (eval . (put &apos;modify-services &apos;scheme-indent-function 1))
   (eval . (put &apos;with-directory-excursion &apos;scheme-indent-function 1))
   (eval . (put &apos;with-file-lock &apos;scheme-indent-function 1))
   (eval . (put &apos;with-file-lock/no-wait &apos;scheme-indent-function 1))
   (eval . (put &apos;with-profile-lock &apos