;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
;;;
;;; 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 rdesktop)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages cups)
  #:use-module (gnu packages docbook)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gstreamer)
  #:use-module (gnu packages image)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages nettle)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages video)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu;; 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;scheme-indent-function 1