amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-org-fc: Update to 0.4.0.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-org-fc): Update to 0.4.0.
[arguments]<#:phases>: Fix build error by adding missing (require 'eieio).
<#:test-command>: Load more tests.
[native-inputs]: Add EMACS-EL-MOCK.

Change-Id: Ibdaf38f3dd8f3018bf2b7b53cd94626b983fc953
This commit is contained in:
Nicolas Goaziou 2024-01-21 23:54:52 +01:00
parent a9d5628f5b
commit 9e9c1613dd
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 49 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

91
gnu/packages/emacs-xyz.scm
View file

@ -4843,52 +4843,59 @@ that the binary uses instead of the actual binary contents.")
(define-public emacs-org-fc (define-public emacs-org-fc
(package (package
(name "emacs-org-fc") (name "emacs-org-fc")
(version "0.3.0") (version "0.4.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://git.sr.ht/~l3kn/org-fc") (url "https://git.sr.ht/~l3kn/org-fc")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "17cdn4sdyb9fs9w725l155lb74inzdn86m8y62m6hn4dgb5l4spm")))) (base32 "09s493p2ccvc1zd297kldwinhn6imnmyik98qc56ndb7dp0dwa0x"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
(list (list
#:include #~(cons* "\\.awk$" "\\.org$" %default-include) #:include #~(cons* "\\.awk$" "\\.org$" %default-include)
#:exclude #~(cons "^tests/" %default-exclude) #:exclude #~(cons "^tests/" %default-exclude)
#:tests? #t #:tests? #t
#:test-command #~(list "emacs" "--batch" #:test-command #~(list "emacs" "--batch"
"-L" "." "-L" "."
"-L" "tests/" "-L" "tests/"
"-l" "tests/org-fc-filter-test.el" "-l" "tests/org-fc-card-test.el"
"-l" "tests/org-fc-indexer-test.el" "-l" "tests/org-fc-filter-test.el"
"-l" "tests/org-fc-review-data-test.el" "-l" "tests/org-fc-indexer-test.el"
"-f" "ert-run-tests-batch-and-exit") "-l" "tests/org-fc-review-data-test.el"
#:phases "-f" "ert-run-tests-batch-and-exit")
#~(modify-phases %standard-phases #:phases
(add-after 'unpack 'qualify-paths #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'qualify-paths
(let ((find (search-input-file inputs "/bin/find")) (lambda* (#:key inputs #:allow-other-keys)
(gawk (search-input-file inputs "/bin/gawk")) (let ((find (search-input-file inputs "/bin/find"))
(xargs (search-input-file inputs "/bin/xargs"))) (gawk (search-input-file inputs "/bin/gawk"))
(substitute* "org-fc-awk.el" (xargs (search-input-file inputs "/bin/xargs")))
(("\"find ") (string-append "\"" find " ")) (substitute* "org-fc-awk.el"
(("\"gawk ") (string-append "\"" gawk " ")) (("\"find ") (string-append "\"" find " "))
(("\"xargs ") (string-append "\"" xargs " "))))))))) (("\"gawk ") (string-append "\"" gawk " "))
(inputs (list findutils gawk)) (("\"xargs ") (string-append "\"" xargs " "))))))
(propagated-inputs (list emacs-hydra)) (add-after 'unpack 'require-eieio
(home-page "https://www.leonrische.me/fc/index.html") (lambda _
(synopsis "Spaced repetition system for Emacs Org mode") (substitute* "org-fc-core.el"
(description (("\\(require 'cl-lib\\)" line)
"Org-fc is a spaced-repetition system for Emacs' Org mode. (string-append line "\n(require 'eieio)"))))))))
(native-inputs (list emacs-el-mock))
(inputs (list findutils gawk))
(propagated-inputs (list emacs-hydra))
(home-page "https://www.leonrische.me/fc/index.html")
(synopsis "Spaced repetition system for Emacs Org mode")
(description
"Org-fc is a spaced-repetition system for Emacs' Org mode.
It allows you to mark headlines in a file as flashcards, turning pieces of It allows you to mark headlines in a file as flashcards, turning pieces of
knowledge you want to learn into a question-answer test. These cards are knowledge you want to learn into a question-answer test. These cards are
reviewed at regular interval. After each review, the next review interval is reviewed at regular interval. After each review, the next review interval is
calculated based on how well you remembered the contents of the card.") calculated based on how well you remembered the contents of the card.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public emacs-font-lock+ (define-public emacs-font-lock+
(let ((commit "aa1c82d05c9222b09099a0ccd7468e955497940c") (let ((commit "aa1c82d05c9222b09099a0ccd7468e955497940c")