120 lines
6.2 KiB
EmacsLisp
120 lines
6.2 KiB
EmacsLisp
;;; zemacs.el --- Spacemacs 2016 April Fools File
|
|
;;
|
|
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(setq spacemacs-buffer-name "*zemacs*")
|
|
(setq spacemacs-buffer-logo-title "[Z E M A C S]")
|
|
(setq spacemacs-buffer-version-info "af-1.01")
|
|
|
|
(define-minor-mode zemacs-buffer-mode
|
|
"Zemacs major mode for startup screen."
|
|
:lighter "ToTheMAX"
|
|
(if zemacs-buffer-mode
|
|
(progn
|
|
(spacemacs/set-leader-keys-for-major-mode 'spacemacs-buffer-mode
|
|
(kbd "aprilfool") 'next-next-NEXT-millennium)
|
|
(zemacs//insert-links))
|
|
;; restore the true one
|
|
(ad-disable-advice 'configuration-layer/initialize
|
|
'before 'zemacs/initialize)
|
|
(ad-activate 'configuration-layer/initialize)
|
|
(ad-disable-advice 'spacemacs-buffer//inject-version
|
|
'around 'zemacs/inject-version)
|
|
(ad-activate 'spacemacs-buffer//inject-version)
|
|
(ad-disable-advice 'spacemacs-buffer/insert-banner-and-buttons
|
|
'after 'zemacs/insert-banner-and-buttons)
|
|
(ad-activate 'spacemacs-buffer/insert-banner-and-buttons)
|
|
(load-file (concat spacemacs-start-directory "core/core-spacemacs-buffer.el"))
|
|
(setq dotspacemacs-startup-banner 'official)
|
|
(kill-buffer)
|
|
(insert "
|
|
───█──█─█▀▀█─█▀▀█─█▀▀█─█──█───
|
|
───█▀▀█─█▄▄█─█▀▀▀─█▀▀▀─▀▀▀█───
|
|
───█──█─█──█─█────█────█▄▄█───
|
|
──────────────────────────────
|
|
───█▀▀█─█▀▀█─█▀▀█─▀▀█▀▀─█─────
|
|
───█▄▄█─█▀▀▀─█▀▀▄───█───█─────
|
|
───█──█─█────█──█─▄▄█▄▄─█▄▄───
|
|
──────────────────────────────
|
|
──█▀▀▀─▄▀▀▀▄─▄▀▀▀▄─█────▄▀▀▀──
|
|
──█▀▀▀─█───█─█───█─█────▀▀▀▄──
|
|
──█────▀▄▄▄▀─▀▄▄▄▀─█▄▄▄─▄▄▄▀──
|
|
──────────────────────────────
|
|
──────────▄▄███████▄▄─────────
|
|
───────▄███████████████▄──────
|
|
────▄██████▀────────▀█████▄───
|
|
──▄█████▀──────────────▀████▄─
|
|
▄████▀────▄██▄────▄██▄───▀████
|
|
██▀───────████────████─────▀██
|
|
██────────████────████──────██
|
|
██────────▀██▀────▀██▀──────██
|
|
██──────────────────────────██
|
|
██──█▄──────────────────▄█──██
|
|
██──█▀██▄──────────────▄██──██
|
|
██──█──▀██▄──────────▄▄█─█──██
|
|
██──█────▀████████████▀──█──██
|
|
██──█─────█────█────█────█──██
|
|
██──█─────█────█────█────█──██
|
|
██──██▄───█────█────█──▄██──██
|
|
██──██████████████████████──██
|
|
██──█─────█────█────█────█──██
|
|
██──█─────█────█────█────█──██
|
|
██──██────█────█────█───█▀──██
|
|
██───▀██████████████████▀───██
|
|
██▄───────────────────────▄███
|
|
█████▄──────────────────▄█████
|
|
─▀███████▄───────────▄██████▀─
|
|
────▀█████████████████████▀─── ")
|
|
(spacemacs-buffer/goto-buffer)
|
|
(spacemacs-buffer//remove-existing-widget-if-exist)))
|
|
|
|
(defun next-next-NEXT-millennium ()
|
|
"Time to rock on!"
|
|
(interactive)
|
|
(zemacs-buffer-mode -1))
|
|
|
|
(defvar zemacs--links '(("this one" "http://neovim.io")
|
|
("link" "http://cdn.meme.am/instances/500x/67641307.jpg")
|
|
("Atom" "http://atom.io/")
|
|
("implementation tricks" "http://emacshorrors.com/")))
|
|
|
|
(defun zemacs//insert-links ()
|
|
"Replace bracketed texts by their link counterparts."
|
|
(with-current-buffer spacemacs-buffer-name
|
|
(save-excursion
|
|
(dolist (l zemacs--links)
|
|
(re-search-backward (format "\\(\\[%s\\]\\)" (car l)) nil t)
|
|
(make-text-button
|
|
(match-beginning 1)
|
|
(match-end 1)
|
|
'type 'help-url
|
|
'help-args (cdr l))))))
|
|
|
|
(defadvice configuration-layer/initialize (before zemacs/initialize activate)
|
|
(setq dotspacemacs-startup-banner "~/.emacs.d/core/banners/img/zemacs.png"))
|
|
|
|
(defadvice spacemacs-buffer//inject-version
|
|
(around zemacs/inject-version activate)
|
|
(let ((emacs-version "99.9999999")
|
|
(dotspacemacs-distribution "zemacs")
|
|
(spacemacs-version "af-1.01"))
|
|
ad-do-it))
|
|
|
|
(defadvice spacemacs-buffer/insert-banner-and-buttons
|
|
(after zemacs/insert-banner-and-buttons activate)
|
|
;; always display the release note
|
|
(spacemacs-buffer//insert-release-note-widget
|
|
(concat spacemacs-release-notes-directory
|
|
spacemacs-buffer-version-info ".txt")))
|
|
|
|
(add-hook 'emacs-startup-hook 'zemacs-buffer-mode t)
|
|
|
|
(provide 'zemacs)
|