update packages
This commit is contained in:
@@ -1,15 +1,11 @@
|
||||
(define-package "dashboard" "20250227.121" "A startup screen extracted from Spacemacs"
|
||||
;; -*- no-byte-compile: t; lexical-binding: nil -*-
|
||||
(define-package "dashboard" "20250521.900"
|
||||
"A startup screen extracted from Spacemacs."
|
||||
'((emacs "27.1"))
|
||||
:commit "9616e5b5e793c3d8228a8fccf7b9ef7ace365005" :authors
|
||||
'(("Rakan Al-Hneiti" . "rakan.alhneiti@gmail.com"))
|
||||
:maintainers
|
||||
'(("Jen-Chieh" . "jcs090218@gmail.com")
|
||||
("Ricardo Arredondo" . "ricardo.richo@gmail.com"))
|
||||
:maintainer
|
||||
'("Jen-Chieh" . "jcs090218@gmail.com")
|
||||
:keywords
|
||||
'("startup" "screen" "tools" "dashboard")
|
||||
:url "https://github.com/emacs-dashboard/emacs-dashboard")
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; End:
|
||||
:url "https://github.com/emacs-dashboard/emacs-dashboard"
|
||||
:commit "f07661b39bec3683cf9edb7b1c58f6e658b6f764"
|
||||
:revdesc "f07661b39bec"
|
||||
:keywords '("startup" "screen" "tools" "dashboard")
|
||||
:authors '(("Rakan Al-Hneiti" . "rakan.alhneiti@gmail.com"))
|
||||
:maintainers '(("Jen-Chieh" . "jcs090218@gmail.com")
|
||||
("Ricardo Arredondo" . "ricardo.richo@gmail.com")))
|
||||
|
||||
@@ -135,13 +135,6 @@ See `create-image' and Info node `(elisp)Image Descriptors'."
|
||||
(make-obsolete-variable 'dashboard-set-navigator
|
||||
'dashboard-startupify-list "1.9.0")
|
||||
|
||||
(defcustom dashboard-set-init-info t
|
||||
"When non nil, init info will be displayed under the banner."
|
||||
:type 'boolean
|
||||
:group 'dashboard)
|
||||
(make-obsolete-variable 'dashboard-set-init-info
|
||||
'dashboard-startupify-list "1.9.0")
|
||||
|
||||
(defcustom dashboard-set-footer t
|
||||
"When non nil, a footer will be displayed at the bottom."
|
||||
:type 'boolean
|
||||
@@ -159,7 +152,7 @@ See `create-image' and Info node `(elisp)Image Descriptors'."
|
||||
"While any text editor can save your files, only Emacs can save your soul"
|
||||
"I showed you my source code, pls respond")
|
||||
"A list of messages, one of which dashboard chooses to display."
|
||||
:type '(list string)
|
||||
:type '(repeat string)
|
||||
:group 'dashboard)
|
||||
|
||||
(defcustom dashboard-icon-type (and (or dashboard-set-heading-icons
|
||||
@@ -194,10 +187,14 @@ The value can be one of: `all-the-icons', `nerd-icons'."
|
||||
(projects . "nf-oct-rocket")
|
||||
(registers . "nf-oct-database"))))
|
||||
"Association list for the icons of the heading sections.
|
||||
Will be of the form `(list-type . icon-name-string)`.
|
||||
If nil it is disabled. Possible values for list-type are:
|
||||
`recents' `bookmarks' `projects' `agenda' `registers'"
|
||||
:type '(alist :key-type symbol :value-type string)
|
||||
Will be of the form `(SECTION . ICON)`, where SECTION could be any dashboard
|
||||
section, for example: `recents' `bookmarks' `projects' `agenda' `registers'.
|
||||
|
||||
ICON could be the name of the icon belonging to `octicon' family
|
||||
or (ICON-FUNCTION ICON-NAME), for example: \"nf-oct-file\" using
|
||||
nerd-icons or (all-the-icons-faicon \"newspaper-o\") using all-the-icons."
|
||||
:type '(alist :key-type symbol
|
||||
:value-type (choice string (cons function string)))
|
||||
:group 'dashboard)
|
||||
|
||||
(defcustom dashboard-heading-icon-height 1.2
|
||||
@@ -288,24 +285,45 @@ Example:
|
||||
(const nil)))))
|
||||
:group 'dashboard)
|
||||
|
||||
(defcustom dashboard-init-info
|
||||
(lambda ()
|
||||
(let ((package-count 0) (time (emacs-init-time)))
|
||||
(when (bound-and-true-p package-alist)
|
||||
(setq package-count (length package-activated-list)))
|
||||
(when (boundp 'straight--profile-cache)
|
||||
(setq package-count (+ (hash-table-count straight--profile-cache) package-count)))
|
||||
(when (fboundp 'elpaca--queued)
|
||||
(setq time (format "%f seconds" (float-time (time-subtract elpaca-after-init-time
|
||||
before-init-time))))
|
||||
(setq package-count (length (elpaca--queued))))
|
||||
(if (zerop package-count)
|
||||
(format "Emacs started in %s" time)
|
||||
(format "%d packages loaded in %s" package-count time))))
|
||||
"Init info with packages loaded and init time."
|
||||
:type '(function string)
|
||||
(defcustom dashboard-init-info #'dashboard-init--info
|
||||
"Custom function that must return a string to place instead of init-info."
|
||||
:type 'function
|
||||
:group 'dashboard)
|
||||
|
||||
(defun dashboard-init--time ()
|
||||
"Return Emacs starting time in string including seconds ending."
|
||||
(if (fboundp 'elpaca--queued)
|
||||
(format "%s seconds"
|
||||
(float-time (time-subtract elpaca-after-init-time
|
||||
before-init-time)))
|
||||
(emacs-init-time)))
|
||||
|
||||
(defun dashboard-init--packages-count ()
|
||||
"Get the intalled package count depending on package manager.
|
||||
Supported package managers are: package.el, straight.el and elpaca.el."
|
||||
(let* ((package-count (if (bound-and-true-p package-alist)
|
||||
(length package-activated-list)
|
||||
0))
|
||||
(straight-count (if (boundp 'straight--profile-cache)
|
||||
(hash-table-count straight--profile-cache)
|
||||
0))
|
||||
(elpaca-count (if (fboundp 'elpaca--queued)
|
||||
(length (elpaca--queued))
|
||||
0)))
|
||||
(+ package-count straight-count elpaca-count)))
|
||||
|
||||
|
||||
(defun dashboard-init--info ()
|
||||
"Format init message.
|
||||
Use `dashboard-init--time' and `dashboard-init--package-count' to generate
|
||||
init message."
|
||||
(let ((init-time (dashboard-init--time))
|
||||
(packages-count (dashboard-init--packages-count)))
|
||||
(if (zerop packages-count)
|
||||
(format "Emacs started in %s" init-time)
|
||||
(format "%d packages installed. Emacs started in %s."
|
||||
packages-count init-time))))
|
||||
|
||||
(defcustom dashboard-display-icons-p #'display-graphic-p
|
||||
"Predicate to determine whether dashboard should show icons.
|
||||
Can be nil to not show icons and any truthy value to show them. When set to a
|
||||
@@ -653,30 +671,8 @@ When called with TIMES return a function that insert TIMES number of newlines."
|
||||
|
||||
(defun dashboard-insert-heading (heading &optional shortcut icon)
|
||||
"Insert a widget HEADING in dashboard buffer, adding SHORTCUT, ICON if provided."
|
||||
(when (and (dashboard-display-icons-p) dashboard-set-heading-icons)
|
||||
(let ((args `( :height ,dashboard-heading-icon-height
|
||||
:v-adjust ,dashboard-heading-icon-v-adjust
|
||||
:face dashboard-heading)))
|
||||
(insert
|
||||
(pcase heading
|
||||
("Recent Files:"
|
||||
(apply #'dashboard-octicon (cdr (assoc 'recents dashboard-heading-icons)) args))
|
||||
("Bookmarks:"
|
||||
(apply #'dashboard-octicon (cdr (assoc 'bookmarks dashboard-heading-icons)) args))
|
||||
((or "Agenda for today:"
|
||||
"Agenda for the coming week:")
|
||||
(apply #'dashboard-octicon (cdr (assoc 'agenda dashboard-heading-icons)) args))
|
||||
("Registers:"
|
||||
(apply #'dashboard-octicon (cdr (assoc 'registers dashboard-heading-icons)) args))
|
||||
("Projects:"
|
||||
(apply #'dashboard-octicon (cdr (assoc 'projects dashboard-heading-icons)) args))
|
||||
("List Directories:"
|
||||
(apply #'dashboard-octicon (cdr (assoc 'ls-directories dashboard-heading-icons)) args))
|
||||
("List Files:"
|
||||
(apply #'dashboard-octicon (cdr (assoc 'ls-files dashboard-heading-icons)) args))
|
||||
(_
|
||||
(if (null icon) " " icon))))
|
||||
(insert " ")))
|
||||
(when (and (dashboard-display-icons-p) dashboard-set-heading-icons icon)
|
||||
(insert icon " "))
|
||||
|
||||
(insert (propertize heading 'face 'dashboard-heading))
|
||||
|
||||
@@ -876,10 +872,15 @@ Argument IMAGE-PATH path to the image."
|
||||
;;; Initialize info
|
||||
(defun dashboard-insert-init-info ()
|
||||
"Insert init info."
|
||||
(let ((init-info (if (functionp dashboard-init-info)
|
||||
(funcall dashboard-init-info)
|
||||
dashboard-init-info)))
|
||||
(dashboard-insert-center (propertize init-info 'face 'font-lock-comment-face))))
|
||||
(let ((init-info (cond ((stringp dashboard-init-info)
|
||||
dashboard-init-info)
|
||||
((functionp dashboard-init-info)
|
||||
(funcall dashboard-init-info))
|
||||
(t
|
||||
(user-error "Unknown init info type (%s): %s"
|
||||
(type-of dashboard-init-info) dashboard-init-info)))))
|
||||
(dashboard-insert-center
|
||||
(propertize init-info 'face 'font-lock-comment-face))))
|
||||
|
||||
(defun dashboard-insert-navigator ()
|
||||
"Insert Navigator of the dashboard."
|
||||
@@ -930,7 +931,8 @@ WIDGET-PARAMS are passed to the \"widget-create\" function."
|
||||
(when (and ,list
|
||||
,shortcut-char
|
||||
dashboard-show-shortcuts)
|
||||
,shortcut-char))
|
||||
,shortcut-char)
|
||||
(dashboard-heading-icon ,shortcut-id))
|
||||
(if ,list
|
||||
(when (and (dashboard-insert-section-list
|
||||
,section-name
|
||||
@@ -941,6 +943,19 @@ WIDGET-PARAMS are passed to the \"widget-create\" function."
|
||||
(dashboard-insert-shortcut ,shortcut-id ,shortcut-char ,section-name))
|
||||
(insert (propertize "\n --- No items ---" 'face 'dashboard-no-items-face)))))
|
||||
|
||||
(defun dashboard-heading-icon (section)
|
||||
"Get the icon for SECTION from `dashboard-heading-icons'.
|
||||
Return a space if icon is not found."
|
||||
(let ((args (list :height dashboard-heading-icon-height
|
||||
:v-adjust dashboard-heading-icon-v-adjust
|
||||
:face 'dashboard-heading))
|
||||
(icon (assoc section dashboard-heading-icons)))
|
||||
(if icon (cond
|
||||
((stringp (cdr icon)) (apply #'dashboard-octicon (cdr icon) args))
|
||||
((listp (cdr icon)) (apply (cadr icon) (caddr icon) args))
|
||||
(t (error "Bad value %s in `dashboard-heading-icons'" icon)))
|
||||
" ")))
|
||||
|
||||
;;
|
||||
;;; Section list
|
||||
|
||||
|
||||
@@ -12,7 +12,8 @@
|
||||
;;; License: GPLv3
|
||||
;;
|
||||
;; Created: October 05, 2016
|
||||
;; Package-Version: 1.9.0-SNAPSHOT
|
||||
;; Package-Version: 20250521.900
|
||||
;; Package-Revision: f07661b39bec
|
||||
;; Keywords: startup, screen, tools, dashboard
|
||||
;; Package-Requires: ((emacs "27.1"))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user