TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[home] Add Licensing button

This commit is contained in:
syl20bnr 2021-03-24 15:50:09 -04:00 committed by Sylvain Benner
parent 97cd83e169
commit 9a66c2566e
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
core/core-spacemacs-buffer.el
View File

@ -690,19 +690,23 @@ REAL-WIDTH: the real width of the line. If the line contains an image, the size
:follow-link "\C-m"
"https://gitter.im/syl20bnr/spacemacs")
(insert " ")
(widget-create 'push-button
:help-echo "GPLv3 copying conditions."
:action (lambda (&rest ignore)
(find-file (concat spacemacs-start-directory "LICENSE"))
(read-only-mode))
:mouse-face 'highlight
:follow-link "\C-m"
(propertize "Licensing" 'face 'font-lock-keyword-face))
(spacemacs-buffer//center-line)
(insert "\n")
(widget-create 'push-button
:help-echo "Update Spacemacs core and layers."
:action (lambda (&rest ignore) (spacemacs/switch-to-version))
:mouse-face 'highlight
:follow-link "\C-m"
(propertize "Update Spacemacs" 'face 'font-lock-keyword-face))
(let ((len (- (line-end-position)
(line-beginning-position))))
(spacemacs-buffer//center-line)
(setq spacemacs-buffer--buttons-position (- (line-end-position)
(line-beginning-position)
len)))
(insert "\n")
(insert " ")
(widget-create 'push-button
:help-echo "Update all ELPA packages to the latest versions."
:action (lambda (&rest ignore)