mirror of
https://gitlab.com/nonguix/nonguix.git
synced 2025-03-13 13:25:14 +01:00
1a9aaed3c4
* nongnu/packages/productivity.scm (obsidian): New variable. Signed-off-by: John Kehayias <john.kehayias@protonmail.com>
340 lines
15 KiB
Scheme
340 lines
15 KiB
Scheme
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
;;; Copyright © 2023 Giacomo Leidi <goodoldpaul@autistici.org>
|
|
;;; Copyright © 2024, 2025 Raven Hallsby <karl@hallsby.com>
|
|
|
|
(define-module (nongnu packages productivity)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages freedesktop)
|
|
#:use-module (gnu packages gl)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages image)
|
|
#:use-module (gnu packages imagemagick)
|
|
#:use-module (gnu packages inkscape)
|
|
#:use-module (gnu packages linux)
|
|
#:use-module (gnu packages pciutils)
|
|
#:use-module (gnu packages photo)
|
|
#:use-module (gnu packages xiph)
|
|
#:use-module (gnu packages xorg)
|
|
#:use-module (gnu packages video)
|
|
#:use-module (gnu packages wget)
|
|
#:use-module (guix download)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix packages)
|
|
#:use-module (ice-9 match)
|
|
#:use-module (nonguix build-system chromium-binary)
|
|
#:use-module ((nonguix licenses) #:prefix license:)
|
|
#:use-module ((guix licenses) #:prefix free-license:))
|
|
|
|
(define-public anytype
|
|
(package
|
|
(name "anytype")
|
|
(version "0.44.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri
|
|
(string-append "https://anytype-release.fra1.cdn.digitaloceanspaces.com/"
|
|
name "_" version "_amd64.deb"))
|
|
(file-name (string-append "anytype-" version ".deb"))
|
|
(sha256
|
|
(base32
|
|
"0djyvz6y4pk277xa2mc4w6w029i3f7zd2d1pniyrpayhnna6f670"))))
|
|
(build-system chromium-binary-build-system)
|
|
(arguments
|
|
(list
|
|
;; almost 300MB
|
|
#:substitutable? #f
|
|
#:validate-runpath? #f ; TODO: fails on wrapped binary and included other files
|
|
#:wrapper-plan
|
|
#~(map (lambda (file)
|
|
(string-append "opt/Anytype/" file))
|
|
'("anytype"
|
|
"chrome-sandbox"
|
|
"chrome_crashpad_handler"
|
|
"libEGL.so"
|
|
"libffmpeg.so"
|
|
"libGLESv2.so"
|
|
"libvk_swiftshader.so"
|
|
"libvulkan.so.1"
|
|
"resources/app.asar.unpacked/node_modules/keytar/build/Release/keytar.node"
|
|
"resources/app.asar.unpacked/node_modules/keytar/build/Release/obj.target/keytar.node"))
|
|
#:install-plan
|
|
#~'(("opt/" "/share")
|
|
("usr/share/" "/share"))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'binary-unpack 'disable-auto-updates
|
|
(lambda _
|
|
(delete-file "opt/Anytype/resources/app-update.yml")))
|
|
;; We don't need regedit, a node library to interact with Windows
|
|
;; hosts.
|
|
(add-after 'binary-unpack 'strip-regedit
|
|
(lambda _
|
|
(delete-file-recursively
|
|
(string-append "opt/Anytype/resources/app.asar.unpacked/"
|
|
"node_modules/regedit"))))
|
|
(add-after 'binary-unpack 'strip-python
|
|
(lambda _
|
|
(delete-file
|
|
(string-append "opt/Anytype/resources/app.asar.unpacked/"
|
|
"node_modules/keytar/build/node_gyp_bins/python3"))))
|
|
(add-before 'install 'patch-assets
|
|
(lambda _
|
|
(let* ((bin (string-append #$output "/bin"))
|
|
(usr/share "./usr/share")
|
|
(old-exe "/opt/Anytype/anytype")
|
|
(exe (string-append bin "/anytype")))
|
|
(substitute* (string-append usr/share "/applications/anytype.desktop")
|
|
(((string-append "^Exec=" old-exe)) (string-append "Exec=" exe))))))
|
|
(add-before 'install-wrapper 'symlink-entrypoint
|
|
(lambda _
|
|
(let* ((bin (string-append #$output "/bin"))
|
|
(exe (string-append bin "/anytype"))
|
|
(share (string-append #$output "/share/Anytype"))
|
|
(target (string-append share "/anytype")))
|
|
(mkdir-p bin)
|
|
(symlink target exe)
|
|
(wrap-program exe
|
|
`("LD_LIBRARY_PATH" = (,share)))))))))
|
|
(inputs
|
|
(list bzip2
|
|
flac
|
|
gdk-pixbuf
|
|
harfbuzz
|
|
libexif
|
|
libglvnd
|
|
libpng
|
|
libva
|
|
libxscrnsaver
|
|
opus
|
|
pciutils
|
|
snappy
|
|
util-linux
|
|
xdg-utils
|
|
wget))
|
|
(synopsis "Productivity and note-taking app")
|
|
(supported-systems '("x86_64-linux"))
|
|
(description "Anytype is an E2E encrypted, cross-platform, productivity and
|
|
note taking app. It stores all the data locally and allows for peer-to-peer
|
|
synchronization.")
|
|
(home-page "https://anytype.io")
|
|
(license (license:nonfree
|
|
"https://github.com/anyproto/anytype-ts/blob/main/LICENSE.md"))))
|
|
|
|
(define-public zotero
|
|
(package
|
|
(name "zotero")
|
|
(version "6.0.35")
|
|
(source
|
|
(origin
|
|
;; Can switch to git-fetch from Github too!
|
|
(method url-fetch)
|
|
(uri
|
|
(string-append "https://download.zotero.org/client/release/"
|
|
version "/Zotero-" version "_linux-x86_64.tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"17f9an43jwnqpcslbvnhg7hrzkvs2whzwg4ysdgy2gl4m6cln18w"))
|
|
(snippet
|
|
#~(begin
|
|
(use-modules (guix build utils))
|
|
;; Disable Zotero's automatic update feature.
|
|
(substitute* "defaults/preferences/prefs.js"
|
|
(("pref\\(\"app.update.enabled\", true\\)")
|
|
"pref(\"app.update.enabled\", false)")
|
|
(("pref\\(\"app.update.auto\", true\\)")
|
|
"pref(\"app.update.auto\", false)"))))))
|
|
(build-system chromium-binary-build-system)
|
|
(arguments
|
|
(list
|
|
;; ~70 MiB
|
|
#:substitutable? #f
|
|
#:validate-runpath? #t
|
|
#:wrapper-plan
|
|
#~'("zotero-bin")
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-before 'install-wrapper 'install-entrypoint
|
|
(lambda _
|
|
(let* ((bin (string-append #$output "/bin")))
|
|
(mkdir-p bin)
|
|
(symlink (string-append #$output "/zotero")
|
|
(string-append bin "/zotero")))))
|
|
(add-after 'install 'create-desktop-file
|
|
(lambda _
|
|
(make-desktop-entry-file
|
|
(string-append #$output "/share/applications/zotero.desktop")
|
|
#:name "Zotero"
|
|
#:type "Application"
|
|
#:generic-name "Reference Management"
|
|
#:exec (string-append #$output "/bin/zotero -url %U")
|
|
#:icon "zotero"
|
|
#:keywords '("zotero")
|
|
#:categories '("Office" "Database")
|
|
#:terminal #f
|
|
#:startup-notify #t
|
|
#:startup-w-m-class "zotero"
|
|
;; MIME-type list taken from Zotero's shipped .desktop file
|
|
#:mime-type '("x-scheme-handler/zotero" "text/plain"
|
|
"application/x-research-info-systems"
|
|
"text/x-research-info-systems"
|
|
"text/ris"
|
|
"application/x-endnote-refer"
|
|
"application/x-inst-for-Scientific-info"
|
|
"application/mods+xml"
|
|
"application/rdf+xml"
|
|
"application/x-bibtex"
|
|
"text/x-bibtex"
|
|
"application/marc"
|
|
"application/vnd.citationstyles.style+xml")
|
|
#:comment
|
|
'(("en" "Collect, organize, cite, and share your research sources")
|
|
(#f "Collect, organize, cite, and share your research sources")))))
|
|
(add-after 'install 'install-icons
|
|
(lambda _
|
|
(let ((icon-sizes (list 16 32 48 256)))
|
|
(for-each
|
|
(lambda (size)
|
|
(mkdir-p (string-append #$output "/share/icons/hicolor/"
|
|
size "x" size "/apps"))
|
|
(copy-file
|
|
(string-append "chrome/icons/default/default" size ".png")
|
|
(string-append #$output "/share/icons/hicolor/"
|
|
size "x" size "/apps/zotero.png")))
|
|
(map number->string icon-sizes))))))))
|
|
;; The zotero script that we wrap (which produces .zotero-real), has
|
|
;; this open file limit step done for us. If that script ever goes
|
|
;; away, then we can just uncomment this one.
|
|
;; (add-after 'install-wrapper 'raise-open-file-limit
|
|
;; (lambda _
|
|
;; (let ((file (string-append #$output "/bin/zotero")))
|
|
;; (with-output-to-file file
|
|
;; (lambda _
|
|
;; (display
|
|
;; (string-append
|
|
;; "#!/bin/sh\n"
|
|
;; ;; Raise the open files limit because Mozilla file
|
|
;; ;; functions leave files open for a tiny bit longer than
|
|
;; ;; necessary, so an installation with many translators and
|
|
;; ;; styles can exceed the default 1024 file limit. ulimit
|
|
;; ;; is a shell built-in, so we cannot use Guix's
|
|
;; ;; program-file function.
|
|
;; "ulimit -n 4096\n"
|
|
;; #$output "/bin/zotero-bin" " -app " #$output "/application.ini" " \"$@\""))))
|
|
;; (chmod file #o755))))
|
|
(inputs (list dbus-glib libxt))
|
|
(synopsis "Collect, organize, cite, and share your research sources")
|
|
;; If we build from source, then we may be able to support more
|
|
;; architectures. But Zotero is a Firefox/Electron app that uses a lot of
|
|
;; JavaScript, which may be problematic when packaging using Guix.
|
|
(supported-systems '("x86_64-linux"))
|
|
(description "Zotero is a research reference and bibliography tool.
|
|
Zotero helps you organize your research any way you want. You can sort items
|
|
into collections and tag them with keywords. Zotero instantly creates
|
|
references and bibliographies for any text editor, and directly inside Word,
|
|
LibreOffice, and Google Docs for over 10,000 citation styles.")
|
|
(home-page "https://www.zotero.org")
|
|
(license free-license:agpl3)))
|
|
|
|
(define-public obsidian
|
|
(package
|
|
(name "obsidian")
|
|
(version "1.8.7")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri
|
|
(string-append "https://github.com/obsidianmd/obsidian-releases/releases/download/"
|
|
"v" version "/obsidian-" version
|
|
(match (or (%current-target-system) (%current-system))
|
|
("x86_64-linux" "") ; x86_64 does not have any special indication
|
|
("aarch64-linux" "-arm64")
|
|
;; We should provide a default case.
|
|
(_ "unsupported"))
|
|
".tar.gz"))
|
|
(file-name (string-append "obsidian-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
(match (or (%current-target-system) (%current-system))
|
|
("x86_64-linux" "1kwhi5c56l97brp590f4qbi1z45ljm7g03wl3wdbz64mfn8zgqxl")
|
|
("aarch64-linux" "0gk34q3bjbxyihmji9qkpypzby2jy607iz2jdwk14sp9riz31zr5")
|
|
;; We need a valid base case for base32
|
|
(_ "0000000000000000000000000000000000000000000000000000"))))))
|
|
(build-system chromium-binary-build-system)
|
|
(arguments
|
|
(list
|
|
#:validate-runpath? #f ; TODO: fails on wrapped binary (.obsidian-real)
|
|
#:substitutable? #f
|
|
#:wrapper-plan
|
|
#~(list "obsidian")
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-before 'install-wrapper 'install-entrypoint
|
|
(lambda _
|
|
(let* ((bin (string-append #$output "/bin")))
|
|
(mkdir-p bin)
|
|
(symlink (string-append #$output "/obsidian")
|
|
(string-append bin "/obsidian")))))
|
|
;; NOTE: Obsidian's icon SVG does not conform to SVG standards.
|
|
(add-after 'install 'create-desktop-icons
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((convert (search-input-file inputs "/bin/convert"))
|
|
(svg (assoc-ref inputs "obsidian-logo-gradient.svg"))
|
|
(sizes (list "32x32" "48x48" "64x64" "128x128" "256x256"
|
|
"512x512")))
|
|
(for-each
|
|
(lambda (size)
|
|
(mkdir-p (string-append #$output "/share/icons/hicolor/"
|
|
size
|
|
"/apps"))
|
|
(invoke convert
|
|
"-background" "none"
|
|
"-resize" size
|
|
svg
|
|
(string-append #$output "/share/icons/hicolor/"
|
|
size
|
|
"/apps/obsidian.png")))
|
|
sizes))))
|
|
(add-after 'install 'create-desktop-file
|
|
(lambda _
|
|
(make-desktop-entry-file
|
|
(string-append #$output "/share/applications/obsidian.desktop")
|
|
#:name "Obsidian"
|
|
#:type "Application"
|
|
#:generic-name "Markdown Editor"
|
|
#:exec (string-append #$output "/obsidian")
|
|
#:icon "obsidian"
|
|
#:keywords '("obsidian")
|
|
#:categories '("Application" "Office")
|
|
#:terminal #f
|
|
#:startup-notify #t
|
|
#:startup-w-m-class "obsidian"
|
|
#:mime-type "x-scheme-handler/obsidian"
|
|
#:comment
|
|
'(("en" "Knowledge base")
|
|
(#f "Knowledge base"))))))))
|
|
(native-inputs
|
|
;; imagemagick & inkscape needed to create desktop icons. We use the
|
|
;; stable versions because we only need them for generating icons.
|
|
(list imagemagick/stable inkscape/stable))
|
|
(inputs
|
|
(list
|
|
(origin
|
|
(method url-fetch)
|
|
(uri "https://obsidian.md/images/obsidian-logo-gradient.svg")
|
|
(sha256
|
|
(base32 "100j8fcrc5q8zv525siapminffri83s2khs2hw4kdxwrdjwh36qi")))))
|
|
(synopsis "Markdown-based knowledge base")
|
|
(supported-systems '("x86_64-linux" "aarch64-linux"))
|
|
(description "Obsidian is a powerful knowledge base that works on top of a
|
|
local folder of plain text Markdown files. Obsidian makes following
|
|
connections frictionless, and with the connections in place, you can explore
|
|
all of your knowledge in the interactive graph view. Obsidian supports
|
|
CommonMark and GitHub Flavored Markdown (GFM), along with other useful
|
|
notetaking features such as tags, LaTeX mathematical expressions, mermaid
|
|
diagrams, footnotes, internal links and embedding Obsidian notes or external
|
|
files. Obsidian also has a plugin system to expand its capabilities.")
|
|
(home-page "https://obsidian.md")
|
|
(license (license:nonfree "https://obsidian.md/license"))))
|