fonts.scm 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108
  1. (define-module (rain fonts)
  2. #:use-module ((guix licenses) #:prefix license:)
  3. #:use-module (guix packages)
  4. #:use-module (guix download)
  5. #:use-module (guix build-system gnu)
  6. #:use-module (guix build-system trivial)
  7. #:use-module (gnu packages base)
  8. #:use-module (gnu packages compression)
  9. #:use-module (gnu packages zip)
  10. #:use-module (gnu packages perl)
  11. #:use-module (gnu packages xorg)
  12. #:use-module (gnu packages pkg-config))
  13. ;http://users.teilar.gr/~g1951d/Aegyptus.zip
  14. (define-public font-symbola
  15. (package
  16. (name "font-symbola")
  17. (version "1.0")
  18. (source (origin
  19. (method url-fetch)
  20. (uri (string-append "http://users.teilar.gr/~g1951d/Symbola.zip"))
  21. (sha256
  22. (base32
  23. "1lfs2j816332ysvpb5ibj2gwpmyqyispqdl7skkshf2gra18hmhd"))))
  24. (build-system trivial-build-system)
  25. (arguments
  26. `(#:modules ((guix build utils))
  27. #:builder (begin
  28. (use-modules (guix build utils))
  29. (let ((unzip (string-append (assoc-ref %build-inputs
  30. "unzip")
  31. "/bin/unzip"))
  32. (font-dir (string-append
  33. %output "/share/fonts/truetype"))
  34. (conf-dir (string-append
  35. %output "/share/fontconfig/conf.avail"))
  36. (doc-dir (string-append
  37. %output "/share/doc/" ,name "-" ,version)))
  38. ;(setenv "PATH" PATH)
  39. (system* unzip (assoc-ref %build-inputs "source"))
  40. (mkdir-p font-dir)
  41. (copy-file "Symbola.ttf" (string-append font-dir "/" "Symbola.ttf"))))))
  42. (native-inputs `(("source" ,source)
  43. ("unzip" ,unzip)))
  44. (home-page "http://users.teilar.gr/~g1951d/")
  45. (synopsis "symbol fonts")
  46. (description "DejaVu provides an expanded version of the Vera font family
  47. aiming for quality and broader Unicode coverage while retaining the original
  48. Vera style. DejaVu currently works towards conformance with the Multilingual
  49. European Standards (MES-1 and MES-2) for Unicode coverage. The DejaVu fonts
  50. provide serif, sans and monospaced variants.")
  51. (license
  52. (license:x11-style
  53. "http://dejavu-fonts.org/"))))
  54. (define-public font-aegyptus
  55. (package
  56. (name "font-aegyptus")
  57. (version "1.0")
  58. (source (origin
  59. (method url-fetch)
  60. (uri (string-append "http://users.teilar.gr/~g1951d/Aegyptus.zip"))
  61. (sha256
  62. (base32
  63. "10mr54ja9b169fhqfkrw510jybghrpjx7a8a7m38k5v39ck8wz6v"))))
  64. (build-system trivial-build-system)
  65. (arguments
  66. `(#:modules ((guix build utils))
  67. #:builder (begin
  68. (use-modules (guix build utils))
  69. (let ((unzip (string-append (assoc-ref %build-inputs
  70. "unzip")
  71. "/bin/unzip"))
  72. (font-dir (string-append
  73. %output "/share/fonts/truetype"))
  74. (conf-dir (string-append
  75. %output "/share/fontconfig/conf.avail"))
  76. (doc-dir (string-append
  77. %output "/share/doc/" ,name "-" ,version)))
  78. ;(setenv "PATH" PATH)
  79. (system* unzip (assoc-ref %build-inputs "source"))
  80. (mkdir-p font-dir)
  81. (copy-file "AegyptusB.ttf" (string-append font-dir "/" "AegyptusB.ttf"))
  82. (copy-file "AegyptusR.ttf" (string-append font-dir "/" "AegyptusR.ttf"))
  83. (copy-file "Gardiner.ttf" (string-append font-dir "/" "Gardiner.ttf"))
  84. (copy-file "Nilus.ttf" (string-append font-dir "/" "Nilus.ttf"))
  85. (copy-file "AegyptusB_hint.ttf" (string-append font-dir "/" "AegyptusB_hint.ttf"))
  86. (copy-file "AegyptusR_hint.ttf" (string-append font-dir "/" "AegyptusR_hint.ttf"))
  87. (copy-file "Gardiner_hint.ttf" (string-append font-dir "/" "Gardiner_hint.ttf"))
  88. (copy-file "Nilus_hint.ttf" (string-append font-dir "/" "Nilus_hint.ttf"))
  89. ))))
  90. (native-inputs `(("source" ,source)
  91. ("unzip" ,unzip)))
  92. (home-page "http://users.teilar.gr/~g1951d/")
  93. (synopsis "ehiroglyh fonts")
  94. (description "DejaVu provides an expanded version of the Vera font family
  95. aiming for quality and broader Unicode coverage while retaining the original
  96. Vera style. DejaVu currently works towards conformance with the Multilingual
  97. European Standards (MES-1 and MES-2) for Unicode coverage. The DejaVu fonts
  98. provide serif, sans and monospaced variants.")
  99. (license
  100. (license:x11-style
  101. "http://dejavu-fonts.org/"))))