02/05: gnu: emacs-dashboard: Improve package style.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 82ab75b6a2d186afc2a4c98e7079a692076c138f
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Thu Dec 22 23:21:49 2022 +0100

    gnu: emacs-dashboard: Improve package style.
    
    * gnu/packages/emacs-xyz.scm (emacs-dashboard)[arguments]: Use 
G-expressions.
    <#:include>: Use %default-include.
    <#:phases>: Remove trailing #T, and unnecessary call to CHMOD.
    [description]: Properly capitalize it.
---
 gnu/packages/emacs-xyz.scm | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 55eb279365..e87500a65f 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -23192,24 +23192,23 @@ Emacs minor mode to escape sequences in code.")
          (sha256
           (base32 "1c6snnpc9rp6zhhdz411wyh2wn56yq2cdmxxqsp1ibvac8cbb1pq"))))
       (build-system emacs-build-system)
+      (arguments
+       (list
+        #:include #~(cons* "\\.txt$" "\\.png$" %default-include)
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'unpack 'patch-dashboard-widgets
+              ;; This phase fixes compilation error.
+              (lambda _
+                (emacs-substitute-variables "dashboard-widgets.el"
+                  ("dashboard-init-info"
+                   '(format "Loaded in %s" (emacs-init-time)))))))))
       (propagated-inputs
        (list emacs-page-break-lines))
-      (arguments
-       '(#:include '("\\.el$" "\\.txt$" "\\.png$")
-         #:phases
-         (modify-phases %standard-phases
-           (add-after 'unpack 'patch-dashboard-widgets
-             ;; This phase fixes compilation error.
-             (lambda _
-               (chmod "dashboard-widgets.el" #o666)
-               (emacs-substitute-variables "dashboard-widgets.el"
-                 ("dashboard-init-info"
-                  '(format "Loaded in %s" (emacs-init-time))))
-               #t)))))
       (home-page "https://github.com/rakanalh/emacs-dashboard";)
       (synopsis "Startup screen extracted from Spacemacs")
       (description "This package provides an extensible Emacs dashboard, with
-sections for bookmarks, projectil projects, org-agenda and more.")
+sections for bookmarks, Projectile projects, Org Agenda and more.")
       (license license:gpl3+))))
 
 (define-public emacs-slime-company