phundrak
/
eshell-info-banner.el
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Add versions custom variables were introduced in, minor fixes 

All custom variables now have the package version in which they were
introduced specified.

This commit fixes a small typo in the documentation of
`eshell-info-banner--abbr-path'

Remove a leftover line used for debugging
This commit is contained in:
Lucien Cartier-Tilet 2021-06-18 18:11:02 +02:00
parent e3461e6f99
commit 6a043f6c19
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
eshell-info-banner.el
View File

@ -86,42 +86,49 @@
"Make `eshell-info-banner' TRAMP aware." "Make `eshell-info-banner' TRAMP aware."
:group 'eshell-info-banner :group 'eshell-info-banner
:type 'boolean :type 'boolean
:safe #'booleanp) :safe #'booleanp
:version "0.3.0")
(defcustom eshell-info-banner-shorten-path-from 7 (defcustom eshell-info-banner-shorten-path-from 7
"From which length should a path be shortened?" "From which length should a path be shortened?"
:group 'eshell-info-banner :group 'eshell-info-banner
:type 'integer :type 'integer
:safe #'integer-or-marker-p) :safe #'integer-or-marker-p
:version "0.1.0")
(defcustom eshell-info-banner-width 80 (defcustom eshell-info-banner-width 80
"Width of the info banner to be shown in Eshell." "Width of the info banner to be shown in Eshell."
:group 'eshell-info-banner :group 'eshell-info-banner
:type 'integer :type 'integer
:safe #'integer-or-marker-p) :safe #'integer-or-marker-p
:version "0.1.0")
(defcustom eshell-info-banner-progress-bar-char "=" (defcustom eshell-info-banner-progress-bar-char "="
"Character to fill the progress bars with." "Character to fill the progress bars with."
:group 'eshell-info-banner :group 'eshell-info-banner
:type 'string :type 'string
:safe #'stringp) :safe #'stringp
:version "0.1.0")
(defcustom eshell-info-banner-warning-percentage 75 (defcustom eshell-info-banner-warning-percentage 75
"When to warn about a percentage." "When to warn about a percentage."
:group 'eshell-info-banner :group 'eshell-info-banner
:type 'float :type 'float
:safe #'floatp) :safe #'floatp
:version "0.1.0")
(defcustom eshell-info-banner-critical-percentage 90 (defcustom eshell-info-banner-critical-percentage 90
"When a percentage becomes critical." "When a percentage becomes critical."
:group 'eshell-info-banner :group 'eshell-info-banner
:type 'float :type 'float
:safe #'floatp) :safe #'floatp
:version "0.1.0")
(defcustom eshell-info-banner-partition-prefixes '("/dev") (defcustom eshell-info-banner-partition-prefixes '("/dev")
"List of prefixes for detecting which partitions to display." "List of prefixes for detecting which partitions to display."
:group 'eshell-info-banner :group 'eshell-info-banner
:type 'list) :type 'list
:version "0.3.0")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -181,8 +188,6 @@ If the executable `uptime' is not found, return nil."
(match-beginning 1) (match-beginning 1)
(match-end 1))))))))) (match-end 1)))))))))
(eshell-info-banner--get-uptime)
; Partitions ;;;;;;;;;;;;;;;;;;;;;;;;;; ; Partitions ;;;;;;;;;;;;;;;;;;;;;;;;;;
(cl-defstruct eshell-info-banner--mounted-partitions (cl-defstruct eshell-info-banner--mounted-partitions
@ -210,7 +215,7 @@ include it before the abbreviated name of the directory,
e.g. \".config\" -> \".c\". e.g. \".config\" -> \".c\".
For public use, `PATH' should be a string representing a UNIX For public use, `PATH' should be a string representing a UNIX
path. For internal use, `PATH' cna also be a list. If `PATH' is path. For internal use, `PATH' can also be a list. If `PATH' is
neither of these, an error will be thrown by the function." neither of these, an error will be thrown by the function."
(cond (cond
((stringp path) (abbreviate-file-name ((stringp path) (abbreviate-file-name