guix_mirror_bot pushed a commit to branch master
in repository guix.

commit f710e3cd9110a66d2bb2291e796d0ddd177ba2cd
Author: Cayetano Santos <csant...@inventati.org>
AuthorDate: Thu Jul 10 17:30:05 2025 +0200

    gnu: Add emacs-titlecase.
    
    * gnu/packages/emacs-xyz.scm (emacs-titlecase): New variable.
    
    Change-Id: If3762ab3e8b6a5de26969071cb5ee8cb157eee37
    Signed-off-by: Liliana Marie Prikler <liliana.prik...@gmail.com>
---
 gnu/packages/emacs-xyz.scm | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index bad06900f5..44a93cdeb3 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -44897,6 +44897,49 @@ categories and highlighting specific modes that many 
commands use to
 accomplish different tasks.")
       (license license:asl2.0))))
 
+(define-public emacs-titlecase
+  (package
+    (name "emacs-titlecase")
+    (version "0.4.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/duckwork/titlecase.el/";)
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0kpg1l0rbbwqcmlj9i8xs2dv9h6yik9wgngik5z6wdgxbkaxjln7"))))
+    (build-system emacs-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          ;; Disable 3/26 unexpected results.
+          (add-before 'check 'disable-error-tests
+            (lambda _
+              (emacs-batch-edit-file "tests/titlecase-tests.el"
+                '(progn
+                  (defun remove-test (test-name test-param)
+                    (save-excursion
+                     (re-search-forward
+                      (format "(ert-deftest-%s %s" test-name test-param))
+                     (goto-char (match-beginning 0))
+                     (kill-sexp)))
+                  (remove-test "decl-pair\n" "contractions_1")
+                  (remove-test "decl-geneated-ascii\n" "generated_1_chars")
+                  (remove-test "decl-nop" "nop_1")
+                  (basic-save-buffer))))))
+      #:test-command #~(list "emacs" "-Q" "--batch"
+                             "-l" "tests/titlecase-tests.el"
+                             "-f" "ert-run-tests-batch-and-exit")))
+    (home-page "https://github.com/duckwork/titlecase.el/";)
+    (synopsis "Capitalise titles")
+    (description
+     "This package provides a best-effort attempt at capitalizing titles, only
+in English, with Emacs.")
+    (license license:gpl3)))
+
 (define-public emacs-x509-mode
   (let ((commit "3830cbfdadab4cd68e6f0b6a3a7a4931be8328ea")
         (revision "1"))

Reply via email to