elisp: aa^~~ kokorogapyonpyon surunjaa^~~~~

gistfile1.txt

;; insert 香風チノ in *splash* buffer
(defun open-chino-buffer()
  (interactive)
  (switch-to-buffer (get-buffer-create "*splash*"))
  (setq fancy-splash-image "address")
  (setq img (create-image fancy-splash-image))
  (let* ((ww (window-width (selected-window)))
	(image-width (car (image-size img))))
    (dotimes (i (/ (- ww image-width) 2) 1)
      (insert " "))
    (insert-image img)
    (insert "\n")
    (dotimes (i (/ (- ww 8) 2) 1)
      (insert " "))
    (insert "香風チノ\n")))
;; (add-hook 'after-init-hook 'open-chino-buffer)
(defalias 'pyonpyon 'open-chino-buffer)