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

[home] Add GPLv3 badge in footer

This commit is contained in:
syl20bnr 2021-03-24 16:03:04 -04:00 committed by Sylvain Benner
parent 9a66c2566e
commit 532ad2567c
3 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
core/banners/img/gplv3.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

3
core/core-load-paths.el
View File

@ -56,6 +56,9 @@
(defconst spacemacs-purple-heart-png
(expand-file-name (concat spacemacs-banner-directory "img/heart.png"))
"Purple heart emoji.")
(defconst spacemacs-gplv3-official-png
(expand-file-name (concat spacemacs-banner-directory "img/gplv3.png"))
"GPLv3 official badge image.")
(defconst spacemacs-cache-directory
(expand-file-name (concat user-emacs-directory ".cache/"))
"Spacemacs storage area for persistent files")

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

@ -274,8 +274,14 @@ Right justified, based on the Spacemacs buffers window width."
(heart-size (when heart (car (image-size heart))))
(build-lhs "Made with ")
(build-rhs " by the community")
(gplv3-path spacemacs-gplv3-official-png)
(gplv3 (when (and (display-graphic-p)
(image-type-available-p
(intern (file-name-extension gplv3-path))))
(create-image gplv3-path)))
(gplv3-size (when gplv3 (car (image-size gplv3))))
(buffer-read-only nil))
(when (or badge heart)
(when (or badge heart gplv3)
(goto-char (point-max))
(spacemacs-buffer/insert-page-break)
(insert "\n")
@ -290,7 +296,11 @@ Right justified, based on the Spacemacs buffers window width."
(spacemacs-buffer//center-line (+ (length build-lhs)
heart-size
(length build-rhs)))
(insert "\n"))))))
(insert "\n"))
(when gplv3
(insert "\n")
(insert-image gplv3)
(spacemacs-buffer//center-line gplv3-size))))))
(defmacro spacemacs-buffer||notes-adapt-caption-to-width (caption
caption-length