mirror of
https://github.com/larstvei/dot-emacs.git
synced 2026-02-01 18:40:12 +00:00
Compare commits
No commits in common. "02f2aaf08060cd9821d16bcf2d4012bcd7652481" and "6af371fb49622864d2f8bf63df7138276a4d1458" have entirely different histories.
02f2aaf080
...
6af371fb49
25
init.org
25
init.org
@ -386,23 +386,6 @@
|
|||||||
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
During startup, the frame will typically appear shortly before the color
|
|
||||||
theme is applied. If a dark theme is being applied, the frame will often
|
|
||||||
flash white before the theme has had time to load. We can prevent this by
|
|
||||||
setting the frame parameter [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Font-and-Color-Parameters.html#index-opacity_002c-frame-1][~alpha-background~]] to make the background
|
|
||||||
transparent in early-init, and add a hook to [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Init-File.html#index-after_002dinit_002dhook][~after-init-hook~]] revert it.
|
|
||||||
|
|
||||||
#+begin_src emacs-lisp :tangle early-init.el
|
|
||||||
|
|
||||||
(add-to-list 'default-frame-alist '(alpha-background . 0))
|
|
||||||
(add-hook
|
|
||||||
'after-init-hook
|
|
||||||
(lambda ()
|
|
||||||
(add-to-list 'default-frame-alist '(alpha-background . nil))
|
|
||||||
(set-frame-parameter nil 'alpha-background nil)))
|
|
||||||
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
I am using a lot from [[https://github.com/rougier/nano-emacs][rougier's N Λ N O Emacs]], starting with the theme.
|
I am using a lot from [[https://github.com/rougier/nano-emacs][rougier's N Λ N O Emacs]], starting with the theme.
|
||||||
|
|
||||||
** Theme
|
** Theme
|
||||||
@ -1677,12 +1660,8 @@
|
|||||||
(forward-line)))
|
(forward-line)))
|
||||||
|
|
||||||
(use-package geiser
|
(use-package geiser
|
||||||
:bind (:map scheme-mode-map ("M-RET" . insert-geiser-eval-as-comment))
|
:bind (:map scheme-mode-map
|
||||||
:config
|
("M-RET" . insert-geiser-eval-as-comment)))
|
||||||
(require 'xdg)
|
|
||||||
(let ((dir (concat (xdg-cache-home) "/geiser")))
|
|
||||||
(make-directory dir t)
|
|
||||||
(setq geiser-repl-history-filename (concat dir "/history"))))
|
|
||||||
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user