phundrak/dsptl.el
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Display links in a tabulated buffer

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2022-10-02 23:47:08 +02:00
parent a4d498e6d5
commit 9760a78da2
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dsptl.el
View File

@ -72,8 +72,14 @@
(interactive) (interactive)
(let ((links (dsptl--list-links))) (let ((links (dsptl--list-links)))
(switch-to-buffer (format "*Links in %s*" default-directory)) (switch-to-buffer (format "*Links in %s*" default-directory))
(dolist (link links) (setq tabulated-list-format [("Source File" 25 t)
(insert (format "%s\t->\t%s\n" (car link) (cdr link)))))) ("Target" 25 t)]
tabulated-list-entries (mapcar (lambda (link)
(list (cdr link) (vector (car link) (cdr link))))
links))
(tabulated-list-init-header)
(tabulated-list-print t)
(read-only-mode 1)))
(provide 'dsptl) (provide 'dsptl)
;;; dsptl.el ends here ;;; dsptl.el ends here