summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJakob L. Kreuze2022-05-07 20:14:52 -0400
committerJakob L. Kreuze2022-05-07 20:33:38 -0400
commitd6749cb94411bb1bb7b43e02c15399d14070036f (patch)
tree19f3d77a746531199fbc7dc69a707ffd5a3f2a11 /lisp
parentd9ceeeb7b88ead0ce54c774b74fda1889d64b9a9 (diff)
Syntax fixes, address compiler warnings
Diffstat (limited to 'lisp')
-rw-r--r--lisp/appearance/theme.el9
-rw-r--r--lisp/core.el4
-rw-r--r--lisp/documents.el3
-rw-r--r--lisp/news.el2
-rw-r--r--lisp/programming.el2
5 files changed, 10 insertions, 10 deletions
diff --git a/lisp/appearance/theme.el b/lisp/appearance/theme.el
index 7bf5cc3..1ad482a 100644
--- a/lisp/appearance/theme.el
+++ b/lisp/appearance/theme.el
@@ -89,8 +89,8 @@
(with-current-buffer standard-output
(erase-buffer)
(dolist (color chayote-palette)
- (let* ((name (symbol-name (first color)))
- (value (second color)))
+ (let* ((name (symbol-name (cl-first color)))
+ (value (cl-second color)))
(put-text-property 0 (length name)
'font-lock-face `(:foreground ,value)
name)
@@ -198,7 +198,7 @@
`(org-level-6 ((class (:foreground orange-2))))
`(org-level-7 ((class (:foreground magenta-2))))
`(org-level-8 ((class (:foreground yellow-2))))
- `(org-tag ((class (:background black-1 :foreground white-0))))
+ `(org-tag ((class (:foreground black-1))))
`(org-column ((class (:background yellow-00 :foreground black-3))))
`(org-column-title ((class (:background blue-0 :foreground black-5 :underline t))))
`(org-agenda-structure ((class (:foreground cyan-4 :background nil :bold nil))))
@@ -248,6 +248,9 @@
;; smartparens
`(sp-pair-overlay-face ((class (:inherit default))))
+ ;; markdown-mode
+ `(markdown-code-face ((class (:inherit default))))
+
;; vterm
`(vterm-color-black ((class (:foreground "#333333" :background "#5D5D5D"))))
`(vterm-color-red ((class (:foreground "#F2777A" :background "#CF8BA2"))))
diff --git a/lisp/core.el b/lisp/core.el
index ab1fa94..a70312c 100644
--- a/lisp/core.el
+++ b/lisp/core.el
@@ -9,10 +9,6 @@
-;; [HACK] Use the correct `emacsclient' binary on Gentoo.
-(when (cl-search "28" (emacs-version))
- (setq with-editor-emacsclient-executable "emacsclient-emacs-28-vcs"))
-
;; Having Emacs open to `*scratch*' feels as though it's inviting me to punch
;; out some Lisp forms and evaluate them. I like to pretend that my computers
;; are Lisp machines.
diff --git a/lisp/documents.el b/lisp/documents.el
index 5b1bf2e..1d7e929 100644
--- a/lisp/documents.el
+++ b/lisp/documents.el
@@ -36,7 +36,8 @@
org-hide-emphasis-markers t
org-tags-column 100
org-yank-folded-subtrees nil
- org-link-elisp-confirm-function nil)
+ org-link-elisp-confirm-function nil
+ org-capture-bookmark nil)
;; Keep everything in column zero, instead of indenting according to the depth
;; of the preceding headline.
diff --git a/lisp/news.el b/lisp/news.el
index 063e6b8..8a9131e 100644
--- a/lisp/news.el
+++ b/lisp/news.el
@@ -32,7 +32,7 @@
(setq gnus-mime-display-multipart-related-as-mixed nil
mm-inline-text-html-with-images t
- mm-text-html-renderer #'shr
+ mm-text-html-renderer 'shr
shr-use-colors nil
shr-use-fonts nil)
diff --git a/lisp/programming.el b/lisp/programming.el
index 9a53400..0883199 100644
--- a/lisp/programming.el
+++ b/lisp/programming.el
@@ -156,7 +156,7 @@
(setq shr-max-width 80)
(setq shr-use-colors nil)
(setq shr-use-fonts nil)
- (setq eww-header-line-format nil)
+ (setq eww-header-line-format nil))
;; The last time I tried `lsp-mode', I was unhappy with the sheer amount of
;; stuff that was included. So I use `eglot' instead. Thus far, it's been a

© 2015 - 2026 Jakob L. Kreuze