CI: Odd tweaks that seem to be needed
This commit is contained in:
parent
f62c62406d
commit
f2c4765065
21
config.org
21
config.org
|
@ -751,16 +751,17 @@ if the system doesn't have any of those fonts.
|
|||
|
||||
(if missing-fonts
|
||||
(pp-to-string
|
||||
`(add-hook! 'doom-init-ui-hook
|
||||
(run-at-time nil nil
|
||||
(lambda ()
|
||||
(message "%s missing the following fonts: %s"
|
||||
(propertize "Warning!" 'face '(bold warning))
|
||||
(mapconcat (lambda (font)
|
||||
(propertize font 'face 'font-lock-variable-name-face))
|
||||
',missing-fonts
|
||||
", "))
|
||||
(sleep-for 0.5)))))
|
||||
`(unless noninteractive
|
||||
(add-hook! 'doom-init-ui-hook
|
||||
(run-at-time nil nil
|
||||
(lambda ()
|
||||
(message "%s missing the following fonts: %s"
|
||||
(propertize "Warning!" 'face '(bold warning))
|
||||
(mapconcat (lambda (font)
|
||||
(propertize font 'face 'font-lock-variable-name-face))
|
||||
',missing-fonts
|
||||
", "))
|
||||
(sleep-for 0.5))))))
|
||||
";; No missing fonts detected")
|
||||
#+end_src
|
||||
|
||||
|
|
|
@ -84,6 +84,8 @@
|
|||
(explain-pause-mode -1))
|
||||
|
||||
(setq emojify-download-emojis-p t)
|
||||
(unless (boundp 'image-types) ; why on earth is this needed?
|
||||
(setq image-types '(svg png gif tiff jpeg xpm xbm pbm)))
|
||||
|
||||
(after! undo-tree
|
||||
(global-undo-tree-mode -1)
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
#!/usr/bin/env sh
|
||||
":"; exec emacs --quick --script "$0" -- "$@" # -*- mode: emacs-lisp; lexical-binding: t; -*-
|
||||
|
||||
(setq log-file (format "%s-log.txt" (file-name-base load-file-name)))
|
||||
(setq log-file (expand-file-name (format "%s-log.txt" (file-name-base load-file-name))))
|
||||
|
||||
(load (expand-file-name "initialise.el" (file-name-directory load-file-name)) nil t)
|
||||
(initialise t)
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
#!/usr/bin/env sh
|
||||
":"; exec emacs --quick --script "$0" -- "$@" # -*- mode: emacs-lisp; lexical-binding: t; -*-
|
||||
|
||||
(setq log-file (format "%s-log.txt" (file-name-base load-file-name)))
|
||||
(setq log-file (expand-file-name (format "%s-log.txt" (file-name-base load-file-name))))
|
||||
|
||||
(load (expand-file-name "initialise.el" (file-name-directory load-file-name)) nil t)
|
||||
(initialise t)
|
||||
|
|
Loading…
Reference in a new issue