把gnus的logo也换了，中二爆炸

Emacs-general
1 

;; hack gnus
  (require 'gnus-group)
  (defun gnus-group-startup-message (&optional x y)
    "Insert startup message in current buffer."
    ;; Insert the message.
    (erase-buffer)
    (when (display-graphic-p)
      (let* ((image (create-image "~/box/Pictures/Amadeuslogo.png"))
             (size (image-size image)))
        (insert-char ?\n (max 0 (round (- (window-height)
                                          (or y (cdr size)) 1) 2)))
        (insert-char ?\  (max 0 (round (- (window-width)
                                          (or x (car size))) 2)))
        (insert-image image)
        (insert "\n")
        (insert-char ?\  (max 0 (round (- (window-width)
                                          (or x (car size))) 2)))
        (insert "Amadeus system is loading...")
        (goto-char (point-min))
        ))
    (set-buffer-modified-p t))

文字图片自己换😝

4 个赞
2

太酷了！为了名正言顺地用这个 LOGO，我要补命运石之门了:joy:

3

这是0里面才出现的logo😝 0的动画化虽然已经决定了但是估计还要很久

4

Coooooool ！！

5

~/box 是自动同步的目录么

6

是啊，我每次用网盘都会 ln 到 ~/box

7

我去，不明觉厉。

8

建议用 advice-add

9

话说在这种完全覆盖原函数的情况下，advice有什么优点么（语义上表示自己是在覆盖？）

1 个赞