linux-nonfree.scm 3.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586
  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2012, 2013, 2014, 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
  3. ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
  4. ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
  5. ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
  6. ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
  7. ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
  8. ;;; Copyright © 2015, 2017 Andy Wingo <wingo@igalia.com>
  9. ;;;
  10. ;;; This file is NOT part of GNU Guix.
  11. ;;;
  12. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  13. ;;; under the terms of the GNU General Public License as published by
  14. ;;; the Free Software Foundation; either version 3 of the License, or (at
  15. ;;; your option) any later version.
  16. ;;;
  17. ;;; GNU Guix is distributed in the hope that it will be useful, but
  18. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  19. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  20. ;;; GNU General Public License for more details.
  21. ;;;
  22. ;;; You should have received a copy of the GNU General Public License
  23. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  24. (define-module (staging linux-nonfree)
  25. #:use-module ((guix licenses) #:prefix license:)
  26. #:use-module (gnu packages linux)
  27. #:use-module (gnu packages tls)
  28. #:use-module (guix build-system trivial)
  29. #:use-module (guix build-system linux-module)
  30. #:use-module (guix git-download)
  31. #:use-module (guix gexp)
  32. #:use-module (guix utils)
  33. #:use-module (guix packages)
  34. #:use-module (guix download))
  35. (define-public (rtl8812au-module kernel)
  36. (let ((commit "9f09c7627bda0ab5a577c1ad0337666ca2951132")
  37. (revision "1"))
  38. (package
  39. (name "rtl8812au-module")
  40. (version (git-version "4.3.14" revision commit))
  41. (source (origin
  42. (method git-fetch)
  43. (uri
  44. (git-reference
  45. (url "https://github.com/abperiasamy/rtl8812AU_8821AU_linux.git")
  46. (commit commit)))
  47. (file-name (git-file-name name version))
  48. (sha256
  49. (base32
  50. "16wvgq6pq24i5skn87kan9xfyyhg6w62c3wp54dz0v0si4c8k0gw"))))
  51. (build-system linux-module-build-system)
  52. (arguments
  53. `(#:tests? #f
  54. #:linux ,kernel))
  55. (home-page "wtf")
  56. (synopsis "wut")
  57. (description "wut")
  58. (license license:gpl2))))
  59. (define-public (tuxedo-keyboard-module kernel)
  60. (package
  61. (name "tuxedo-keyboard-module")
  62. (version "2.0.2")
  63. (source (origin
  64. (method git-fetch)
  65. (uri
  66. (git-reference
  67. (url "https://github.com/tuxedocomputers/tuxedo-keyboard.git")
  68. (commit (string-append "v" version))))
  69. (file-name (git-file-name name version))
  70. (sha256
  71. (base32
  72. "1qgjbqs9b2agm4aabidhxplwi7x1km554k3wr68fb5n8y0bb7rbm"))))
  73. (build-system linux-module-build-system)
  74. (arguments
  75. `(#:tests? #f
  76. #:linux ,kernel))
  77. (home-page "https://github.com/tuxedocomputers/tuxedo-keyboard")
  78. (synopsis "Tuxedo computers kernel module for keyboard
  79. backlighting")
  80. (description "Tuxedo computer kernel module for keyboard
  81. backlighting.")
  82. (license license:gpl2)))