jaggar/gunit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update Vivaldi.scm

Browse Source 
Finishes up patching and wrapping
This commit is contained in:
Jaggar
2025-02-19 21:41:30 -06:00
committed by GigiaJ
parent 1967f61e46
commit 3de78d4ce5
1 changed files with 21 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Vivaldi.scm
View File

@@ -75,47 +75,48 @@
(share (string-append #$output "/share"))
(opt "./opt")
(usr/share "./usr/share")
(old-exe (string-append "/opt/vivaldi/" #$appname "/vivaldi-" #$appname))
(exe (string-append bin "/vivaldi-" #$appname)))
(old-exe (string-append "/opt/vivaldi/" #$appname))
(exe (string-append bin "/vivaldi")))
;; This allows us to override CHROME_WRAPPER later.
(substitute* (string-append opt "/vivaldi/" #$appname "/vivaldi-" #$appname)
(substitute* (string-append opt "/vivaldi/vivaldi")
(("CHROME_WRAPPER") "WRAPPER"))
(substitute* (string-append usr/share "/applications/vivaldi-" #$appname ".desktop")
(substitute* (string-append usr/share "/applications/vivaldi-stable.desktop")
(("^Exec=.*") (string-append "Exec=" exe "\n")))
(substitute* (string-append usr/share "/gnome-control-center/default-apps/vivaldi-" #$appname ".xml")
((old-exe) exe))
(substitute* (string-append usr/share "/menu/vivaldi-" #$appname ".menu")
;;(substitute* (string-append usr/share "/gnome-control-center/default-apps/vivaldi-" #$appname ".xml")
;; ((old-exe) exe))
(substitute* (string-append usr/share "/menu/vivaldi" ".menu")
(("/opt") share)
((old-exe) exe)))))
#!(add-after 'install 'install-icons
(add-after 'install 'install-icons
(lambda _
(define (format-icon-size name)
(car
(string-split
(string-drop-right (string-drop name 13) 4)
#\_)))
(let ((icons (string-append #$output "/usr/share/icons/hicolor"))
(share (string-append #$output "/usr/share/vivaldi/" #$appname)))
(let ((icons (string-append #$output "/share/icons/hicolor"))
(share (string-append #$output "/share/vivaldi")))
(for-each (lambda (icon)
(let* ((icon-name (basename icon))
(icon-size (format-icon-size icon-name))
(target (string-append icons "/" icon-size "x" icon-size "/apps/vivaldi-" #$appname ".png")))
(target (string-append icons "/" icon-size "x" icon-size "/apps/" #$appname ".png")))
(mkdir-p (dirname target))
(rename-file icon target)))
(find-files share "product_logo_.*\\.png")))))
(add-before 'install-wrapper 'install-exe
(lambda _
(let* ((bin (string-append #$output "/usr/bin"))
(exe (string-append bin "/vivaldi-" #$appname "-stable"))
(share (string-append #$output "/usr/share"))
(edge-target (string-append share "/vivaldi/" #$appname "/vivaldi-" #$appname)))
(let* ((bin (string-append #$output "/bin"))
(exe (string-append bin "/" #$appname))
(share (string-append #$output "/share"))
(chromium-target (string-append #$output "/share/vivaldi/" #$appname )))
(mkdir-p bin)
(symlink edge-target exe)
(symlink chromium-target exe)
(wrap-program exe
'("CHROME_WRAPPER" = (#$appname))))))
!#
(delete 'patch-assets)
(delete 'install-wrapper))))
'("CHROME_WRAPPER" = (#$appname))
))))
)))
(inputs
(list bzip2
curl