emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

scratch: fix clicking on buttons + memoize doom-reload-scratch-buffer

Browse source
This commit is contained in:
Henrik Lissner 2016-10-06 17:21:00 +02:00
parent 5f6cfeb225
commit e8375dec17
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
core/core-scratch.el
View file

@ -78,13 +78,12 @@ buffer. Without this, it would refuse to split, saying 'too small to split'."
(set-window-margins window pad pad) (set-window-margins window pad pad)
(setq height (max 0 (setq height (max 0
(min (or height 9999) (min (or height 9999)
(- (truncate (/ (window-height window) 2)) 14)))))) (- (truncate (/ (window-height window) 2)) 12))))))
(get-buffer-window-list doom-buffer nil t)) (get-buffer-window-list doom-buffer nil t))
(when (or (not doom--scratch-width) (when (or (not doom--scratch-width)
(not doom--scratch-height) (not doom--scratch-height)
(/= doom--scratch-width width) (/= doom--scratch-width width)
(/= doom--scratch-height height) (/= doom--scratch-height height))
t)
(erase-buffer) (erase-buffer)
(insert (propertize (insert (propertize
(concat (concat
@ -126,7 +125,7 @@ buffer. Without this, it would refuse to split, saying 'too small to split'."
(add-hook 'window-configuration-change-hook 'doom-reload-scratch-buffer))) (add-hook 'window-configuration-change-hook 'doom-reload-scratch-buffer)))
(defun doom--scratch-menu () (defun doom--scratch-menu ()
(let ((all-the-icons-scale-factor 1.5) (let ((all-the-icons-scale-factor 1.3)
(all-the-icons-default-adjust -0.05) (all-the-icons-default-adjust -0.05)
(start (point)) end) (start (point)) end)
(with-temp-buffer (with-temp-buffer
@ -135,7 +134,8 @@ buffer. Without this, it would refuse to split, saying 'too small to split'."
"mark-github" "mark-github"
:face 'font-lock-keyword-face) :face 'font-lock-keyword-face)
(propertize " Homepage" 'face 'font-lock-keyword-face)) (propertize " Homepage" 'face 'font-lock-keyword-face))
'action '(lambda (_) (browse-url "https://github.com/hlissner/.emacs.d"))) 'action '(lambda (_) (browse-url "https://github.com/hlissner/.emacs.d"))
'follow-link t)
(insert " ") (insert " ")
@ -144,7 +144,8 @@ buffer. Without this, it would refuse to split, saying 'too small to split'."
"file-text" "file-text"
:face 'font-lock-keyword-face) :face 'font-lock-keyword-face)
(propertize " Recent files" 'face 'font-lock-keyword-face)) (propertize " Recent files" 'face 'font-lock-keyword-face))
'action '(lambda (_) (call-interactively 'counsel-recentf))) 'action '(lambda (_) (call-interactively 'counsel-recentf))
'follow-link t)
(insert " ") (insert " ")
@ -153,7 +154,8 @@ buffer. Without this, it would refuse to split, saying 'too small to split'."
"list-ordered" "list-ordered"
:face 'font-lock-keyword-face) :face 'font-lock-keyword-face)
(propertize " Changelog" 'face 'font-lock-keyword-face)) (propertize " Changelog" 'face 'font-lock-keyword-face))
'action '(lambda (_) (find-file (f-expand "CHANGELOG.org" doom-emacs-dir)))) 'action '(lambda (_) (find-file (f-expand "CHANGELOG.org" doom-emacs-dir)))
'follow-link t)
(insert " ") (insert " ")