diff options
Diffstat (limited to 'nongnu/packages/fonts.scm')
| -rw-r--r-- | nongnu/packages/fonts.scm | 176 |
1 files changed, 0 insertions, 176 deletions
diff --git a/nongnu/packages/fonts.scm b/nongnu/packages/fonts.scm deleted file mode 100644 index 7120fef..0000000 --- a/nongnu/packages/fonts.scm +++ /dev/null @@ -1,176 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2021 Korytov Pavel <thexcloud@gmail.com> -;;; Copyright © 2021 Jonathan Brielmaier <jonathan.brielmaier@web.de> -;;; -;;; This file is not 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 (nongnu packages fonts) - #:use-module (ice-9 string-fun) - #:use-module (gnu packages compression) - #:use-module (guix download) - #:use-module (guix packages) - #:use-module (guix build-system font) - #:use-module (guix build-system copy) - #:use-module (nonguix licenses)) - -(define mscorefont - (lambda* (file #:key version font-name hash) - (package - ;; Downcase and replace " " with - to get "font-microsoft-times-new-roman" - ;; from "Times New Roman" - (name (string-append - "font-microsoft-" - (string-replace-substring (string-downcase font-name) " " "-"))) - (version version) - (source - (origin - (method url-fetch) - (uri (string-append "https://deac-ams.dl.sourceforge.net/project/corefonts/the%20fonts/final/" file ".exe")) - (sha256 (base32 hash)))) - (build-system font-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - ;; Unpack EXE and replace .TTF with .ttf - (replace 'unpack - (lambda* (#:key inputs #:allow-other-keys) - (use-modules (ice-9 string-fun)) - (let ((source (assoc-ref inputs "source"))) - (system (format #f "7z e ~a -ofont" source)) - (map (lambda (oldname) - (rename-file oldname - (string-replace-substring oldname "TTF" "ttf"))) - (find-files "./font" "\\.TTF$")))))))) - (native-inputs - `(("p7zip" ,p7zip))) - (home-page "http://corefonts.sourceforge.net/") - (synopsis (string-append font-name " font")) - (description (string-append "This package provides " font-name " -font from the pack of Microsoft core fonts for the web.")) - (license (nonfree "http://corefonts.sourceforge.net/eula.htm"))))) - -(define-public font-microsoft-andale-mono - (mscorefont - "andale32" - #:version "2.00" - #:font-name "Andale Mono" - #:hash "0w7927hlwayqf3vvanf8f3qp2g1i404jzqvhp1z3mp0sjm1gw905")) - -(define-public font-microsoft-arial - (mscorefont - "arial32" - #:version "2.82" - #:font-name "Arial" - #:hash "1xkqyivbyb3z9dcalzidf8m4npzfpls2g0kldyn8g73f2i6plac5")) - -(define-public font-microsoft-arial-black - (mscorefont - "arialb32" - #:version "2.35" - #:font-name "Arial Black" - #:hash "1a60zqrg63kjnykh5hz7dbpzvx7lyivn3vbrp7jyv9d1nvzz09d4")) - -(define-public font-microsoft-comic-sans-ms - (mscorefont - "comic32" - #:version "2.10" - #:font-name "Comic Sans MS" - #:hash "0ki0rljjc1pxkbsxg515fwx15yc95bdyaksa3pjd89nyxzzg6vcw")) - -(define-public font-microsoft-couirer-new - (mscorefont - "courie32" - #:version "2.82" - #:font-name "Courier New" - #:hash "111k3waxki9yyxpjwl2qrdkswvsd2dmvhbjmmrwyipam2s31sldv")) - -(define-public font-microsoft-georgia - (mscorefont - "georgi32" - #:version "2.05" - #:font-name "Georgia" - #:hash "0083jcpd837j2c06kp1q8glfjn9k7z6vg3wi137savk0lv6psb1c")) - -(define-public font-microsoft-impact - (mscorefont - "impact32" - #:version "2.35" - #:font-name "Impact" - #:hash "1yyc5z7zmm3s418hmrkmc8znc55afsrz5dgxblpn9n81fhxyyqb0")) - -(define-public font-microsoft-trebuchet-ms - (mscorefont - "trebuc32" - #:version "1.22" - #:font-name "Trebuchet MS" - #:hash "1jfsgz80pvyqvpfpaiz5pd8zwlcn67rg2jgynjwf22sip2dhssas")) - -(define-public font-microsoft-times-new-roman - (mscorefont - "times32" - #:version "2.82" - #:font-name "Times New Roman" - #:hash "1aq7z3l46vwgqljvq9zfgkii6aivy00z1529qbjkspggqrg5jmnv")) - -(define-public font-microsoft-verdana - (mscorefont - "verdan32" - #:version "2.35" - #:font-name "Verdana" - #:hash "15mdbbfqbyp25a6ynik3rck3m3mg44plwrj79rwncc9nbqjn3jy1")) - -(define-public font-microsoft-webdings - (mscorefont - "webdin32" - #:version "1.03" - #:font-name "Webdings" - #:hash "0nnp2znmnmx87ijq9zma0vl0hd46npx38p0cc6lgp00hpid5nnb4")) - -(define-public font-microsoft-web-core-fonts - (package - (inherit font-microsoft-times-new-roman) - (name "font-microsoft-web-core-fonts") - (version "1.0.0") - (synopsis "Collection of widely spread Microsoft TrueType fonts") - (description "This package provides fonts from the collection of Microsoft -True Type Core Fonts for the Web. - -Included fonts: -@itemize -@item Andale Mono -@item Arial Black -@item Arial (Bold, Italic, Bold Italic) -@item Comic Sans MS (Bold) -@item Courier New (Bold, Italic, Bold Italic) -@item Georgia (Bold, Italic, Bold Italic) -@item Impact -@item Times New Roman (Bold, Italic, Bold Italic) -@item Trebuchet (Bold, Italic, Bold Italic) -@item Verdana (Bold, Italic, Bold Italic) -@item Webdings -@end itemize") - (propagated-inputs - `(("font-microsoft-andale-mono" ,font-microsoft-andale-mono) - ("font-microsoft-arial" ,font-microsoft-arial) - ("font-microsoft-arial-black" ,font-microsoft-arial-black) - ("font-microsoft-comic-sans-ms" ,font-microsoft-comic-sans-ms) - ("font-microsoft-couirer-new" ,font-microsoft-couirer-new) - ("font-microsoft-georgia" ,font-microsoft-georgia) - ("font-microsoft-impact" ,font-microsoft-impact) - ("font-microsoft-times-new-roman" ,font-microsoft-times-new-roman) - ("font-microsoft-trebuchet-ms" ,font-microsoft-trebuchet-ms) - ("font-microsoft-verdana" ,font-microsoft-verdana) - ("font-microsoft-webdings" ,font-microsoft-webdings))))) |