From 9d321a327be384c73c2535a52e947aae4ce8efb5 Mon Sep 17 00:00:00 2001 From: GigiaJ Date: Thu, 7 Aug 2025 17:18:50 -0500 Subject: [PATCH] Remove "patch" --- .../patches/add-font-to-code-server.scm | 31 ------------------- 1 file changed, 31 deletions(-) delete mode 100644 modules/gunit/packages/patches/add-font-to-code-server.scm diff --git a/modules/gunit/packages/patches/add-font-to-code-server.scm b/modules/gunit/packages/patches/add-font-to-code-server.scm deleted file mode 100644 index 48d400b..0000000 --- a/modules/gunit/packages/patches/add-font-to-code-server.scm +++ /dev/null @@ -1,31 +0,0 @@ -;; woff-tools -;; font-nerd-fonts-jetbrains-mono - -(add-after 'wrap 'enable-font-magic - (lambda _ - (let ((font-package "font-nerd-fonts-jetbrains-mono") - (font-path "/share/fonts/truetype/") - (font-prefix "JetBrainsMonoNerdFontMono-")) - (use-modules (ice-9 ftw) - (srfi srfi-1)) ; For list processing - (define (collect-files-with-prefix directory prefix) - (filter (lambda (str) (string-prefix? prefix str)) (cddr (scandir directory)))) - (map (lambda (entry) - (let* ((source (car entry)) (file (cdr entry))) - (symlink (string-append (assoc-ref %build-inputs source) font-path file) - (string-append (assoc-ref %outputs "out") "/src/browser/pages/" (basename file))) - (system* "sfnt2woff" (string-append (assoc-ref %outputs "out") "/src/browser/pages/" (basename file))) - )) - (append - (map (lambda (file) (cons font-package file)) - (collect-files-with-prefix (string-append (assoc-ref %build-inputs font-package) font-path) font-prefix) - ))) - (let ((font-files (string-join - (map - (lambda (x) - (string-append "url('_static/src/browser/pages/" (substring x 0 (- (string-length x) 4)) ".woff') format('woff')" )) - (collect-files-with-prefix (string-append (assoc-ref %build-inputs font-package) font-path) font-prefix)) - "," - ))) - (system* "sed" "-i" (string-append "s|||g") (string-append #$output "/lib/vscode/out/vs/code/browser/workbench/workbench.html")) - )))) \ No newline at end of file