Initial commit
This commit is contained in:
commit
3fff041566
2 changed files with 21 additions and 0 deletions
3
README.md
Normal file
3
README.md
Normal file
|
@ -0,0 +1,3 @@
|
|||
# Beholder
|
||||
|
||||
Control your GitHub pending entities from a single mode.
|
18
beholder.el
Normal file
18
beholder.el
Normal file
|
@ -0,0 +1,18 @@
|
|||
(define-derived-mode beholder-mode tabulated-list-mode "Beholder"
|
||||
"Major mode for listing items awaiting action on GitHub."
|
||||
|
||||
(setq tabulated-list-format [("ID" 10 t) ("Title" 40 t) ("URL" 70 t)])
|
||||
(setq tabulated-list-padding 2)
|
||||
(tabulated-list-init-header)
|
||||
(tablist-minor-mode))
|
||||
|
||||
(defun beholder ()
|
||||
(interactive)
|
||||
(pop-to-buffer "*beholder*" nil)
|
||||
(beholder-mode)
|
||||
(setq tabulated-list-entries '(("#123" ["#123" "My title" "https://one.go"])
|
||||
("#231" ["#231" "My second" "https://two.go"])
|
||||
("#312" ["#312" "My third" "https://three.go"])))
|
||||
(tabulated-list-print t))
|
||||
|
||||
(provide 'beholder)
|
Loading…
Reference in a new issue