[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 7d3f018 024/241: Add annotations for files a
From: |
Stefan Monnier |
Subject: |
[elpa] externals/marginalia 7d3f018 024/241: Add annotations for files and buffers |
Date: |
Fri, 28 May 2021 20:48:49 -0400 (EDT) |
branch: externals/marginalia
commit 7d3f01891d53b071ac70aa58f763442ebf7724cc
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>
Add annotations for files and buffers
These are not turned on by default.
For files, use size and modification time.
For buffers, modification status, file (if there is one) and major
mode.
These were imported from embark, per issue #3.
---
marginalia.el | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/marginalia.el b/marginalia.el
index a977b4c..47ced57 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -202,6 +202,27 @@ determine it."
(when-let (doc (documentation-property (intern cand) 'group-documentation))
(marginalia--annotation doc)))
+(defun marginalia-annotate-buffer (cand)
+ "Annotate buffer CAND with modification status, file name and major mode."
+ (when-let ((buffer (get-buffer cand)))
+ (marginalia--annotation
+ (format "%s%s (%s)"
+ (if (buffer-modified-p buffer) "*" "")
+ (if-let ((file-name (buffer-file-name buffer)))
+ (abbreviate-file-name file-name)
+ "")
+ (buffer-local-value 'major-mode buffer)))))
+
+(defun marginalia-annotate-file (cand)
+ "Annotate file CAND with its size and modification time."
+ (when-let ((attributes (file-attributes cand)))
+ (marginalia--annotation
+ (format "%7s %s"
+ (file-size-human-readable (file-attribute-size attributes))
+ (format-time-string
+ "%b %e %k:%M"
+ (file-attribute-modification-time attributes))))))
+
(defun marginalia-classify-by-command-name ()
"Lookup category for current command."
(and marginalia--this-command
- [elpa] externals/marginalia b0c24f7 088/241: introduce marginalia-annotate-command, (continued)
- [elpa] externals/marginalia b0c24f7 088/241: introduce marginalia-annotate-command, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia bbde111 083/241: Annotate environment variables with their value, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 618fd9e 084/241: Improve formatting of environment variable annotation, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 3559cbb 095/241: update readme, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 27cd29d 101/241: add buffer size annotation, fix #29, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 3360875 113/241: Rename marginalia-cycle-annotators to marginalia-cycle, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 1fb2569 121/241: marginalia-annotate-minor-mode: fix support for consult, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 35cb523 127/241: add comment, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia d38a278 151/241: readme: do not export drawers, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 3febe72 155/241: fix #45, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 7d3f018 024/241: Add annotations for files and buffers,
Stefan Monnier <=
- [elpa] externals/marginalia f083852 066/241: readme: add embark and consult links, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia ef325fc 073/241: In symbol annotator skip lines about advice in function docstring, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia d2a7923 069/241: improve marginalia-annotate-package, do not show nil for builtins, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 6e8ba6d 079/241: add marginalia-annotate-imenu, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia fbd898d 087/241: rename marginalia-annotate-command to marginalia-annotate-binding, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia e833584 103/241: improve marginalia-classify-symbol, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 40e2881 112/241: fix marginalia-cycle-annotators such that it works as an embark action, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia b1ccaf8 124/241: readme: more robust selectrum config, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 6a64a59 120/241: marginalia-annotate-minor-mode: add local/global indicator, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 4069094 131/241: get rid of marginalia--buffer-bytes, Stefan Monnier, 2021/05/28