diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2022-10-25 21:50:59 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2022-10-25 21:50:59 +0300 |
| commit | 6ff203663e696b74e711ab09d6f4b35c2c332f0f (patch) | |
| tree | 4bf2c77c62fa60febba527a76b1ecffaa0a00a0d /etc/snippets/tempel/text-mode | |
| parent | 408a4ed071c9c52de207d799a698781d49fa727d (diff) | |
| parent | a0751e3250dfea7e52468c8090e18c3118d93a60 (diff) | |
| download | guix-6ff203663e696b74e711ab09d6f4b35c2c332f0f.tar.gz | |
Merge remote-tracking branch 'origin/master' into staging
Diffstat (limited to 'etc/snippets/tempel/text-mode')
| -rw-r--r-- | etc/snippets/tempel/text-mode | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/etc/snippets/tempel/text-mode b/etc/snippets/tempel/text-mode index 364c21266d..fd0e95eaa6 100644 --- a/etc/snippets/tempel/text-mode +++ b/etc/snippets/tempel/text-mode @@ -12,7 +12,8 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode)) (match-string-no-properties 1))) var) "." n n - "* " (car (magit-staged-files)) " (" (s var ) "): New variable.") + "* " (p (or (car (magit-staged-files)) "")) + " (" (s var ) "): New variable.") (remove\ "gnu: Remove " (p (with-temp-buffer @@ -24,7 +25,8 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode)) (match-string-no-properties 1))) var) "." n n - "* " (car (magit-staged-files)) " (" (s var) "): Delete variable.") + "* " (p (or (car (magit-staged-files)) "")) + " (" (s var) "): Delete variable.") (rename\ "gnu: " (p (with-temp-buffer @@ -43,7 +45,7 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode)) (thing-at-point 'sexp 'no-properties))) new-var) "." n n - "* " (car (magit-staged-files)) " (" (s prev-var) "): " + "* " (p (or (car (magit-staged-files)) "")) " (" (s prev-var) "): " "Define in terms of" n "'deprecated-package'." n "(" (s new-var) "): New variable, formerly known as \"" @@ -74,7 +76,7 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode)) (buffer-substring-no-properties (point) (- end 2)))))) version) "." n n - "* " (car (magit-staged-files)) " (" (s var) "): " + "* " (p (or (car (magit-staged-files)) "")) " (" (s var) "): " "Update to " (s version) "." n (mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) @@ -92,7 +94,7 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode)) (thing-at-point 'sexp 'no-properties))))) var) "." n n - "* " (car (magit-staged-files)) + "* " (p (or (car (magit-staged-files)) "")) " (cl-" (s var) ", ecl-" (s var) ", sbcl-" (s var) "): New variables.") @@ -107,7 +109,8 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode)) (match-string-no-properties 1))) var) ": Use HTTPS home page." n n - "* " (car (magit-staged-files)) " (" (s var) ")[home-page]: Use HTTPS." + "* " (p (or (car (magit-staged-files)) "")) + " (" (s var) ")[home-page]: Use HTTPS." n (mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) |