Changes
This commit is contained in:
parent
1b881512d1
commit
7ffde2d9bb
13
init.el
13
init.el
|
@ -649,7 +649,7 @@
|
|||
tab-bar-tab-name-ellipsis truncate-string-ellipsis
|
||||
tab-bar-show t
|
||||
tab-bar-close-button-show t
|
||||
tab-bar-close-button (propertize " ◦ "
|
||||
tab-bar-close-button (propertize " ✕ "
|
||||
'display t
|
||||
'close-tab t)
|
||||
tab-bar-new-button (propertize "+ " 'display t))
|
||||
|
@ -1444,7 +1444,8 @@ See also `crux-reopen-as-root-mode'."
|
|||
:host github :repo "duckwork/machine.el"))
|
||||
(:option machine-default-font "DejaVu Sans Mono"
|
||||
machine-variable-pitch-font "DejaVu Sans")
|
||||
(machine-settings-load))
|
||||
(+with-ensure-after-init ; So that they override anything here.
|
||||
(machine-settings-load)))
|
||||
|
||||
(setup (:straight macrostep)
|
||||
(:require macrostep)
|
||||
|
@ -1505,6 +1506,14 @@ See also `crux-reopen-as-root-mode'."
|
|||
modus-themes-bold-constructs t
|
||||
modus-themes-italic-constructs t
|
||||
modus-themes-headings '((t . (background))))
|
||||
(dotimes (facen-1 8)
|
||||
(let ((facen (1+ facen-1)))
|
||||
(custom-set-faces
|
||||
`(,(intern (format "org-level-%s" facen))
|
||||
((t :inherit
|
||||
(,(intern (format "modus-themes-heading-%s" facen))
|
||||
fixed-pitch))
|
||||
:now)))))
|
||||
(dawn-schedule #'modus-themes-load-operandi
|
||||
#'modus-themes-load-vivendi))
|
||||
|
||||
|
|
|
@ -224,9 +224,9 @@ The order of elements matters: whichever one matches first is applied."
|
|||
(:propertize (line-number-mode
|
||||
((column-number-mode
|
||||
(column-number-indicator-zero-based
|
||||
,(concat before "%3l" sep "%2c" after)
|
||||
,(concat before "%3l" sep "%2C" after))
|
||||
,(concat before "%3l" sep "" after)))
|
||||
,(concat before "%2l" sep "%2c" after)
|
||||
,(concat before "%2l" sep "%2C" after))
|
||||
,(concat before "%2l" sep "" after)))
|
||||
((column-number-mode
|
||||
(column-number-indicator-zero-based
|
||||
,(concat before sep "%2c" after)
|
||||
|
|
|
@ -269,7 +269,7 @@ instead of the true count."
|
|||
(region-end))))
|
||||
(org-link (when clipboard-url
|
||||
(org-link-make-string
|
||||
clipboard-url
|
||||
(string-trim clipboard-url)
|
||||
(or region-content
|
||||
(read-string "title: "
|
||||
(with-current-buffer
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
;;(require 'scratch)
|
||||
|
||||
(defun +scratch-immortal ()
|
||||
"Bury, don't kill \"*scratc*\" buffer.
|
||||
"Bury, don't kill \"*scratch*\" buffer.
|
||||
For `kill-buffer-query-functions'."
|
||||
(if (eq (current-buffer) (get-buffer "*scratch*"))
|
||||
(progn (bury-buffer)
|
||||
|
@ -24,6 +24,5 @@ For `kill-buffer-query-functions'."
|
|||
(next-line 2))
|
||||
(rename-buffer (concat "*scratch<" mode ">*") t)))
|
||||
|
||||
|
||||
(provide '+scratch)
|
||||
;;; +scratch.el ends here
|
||||
|
|
|
@ -6,9 +6,10 @@
|
|||
|
||||
(require 'acdw)
|
||||
|
||||
(+set-faces `((default :family "CMU Typewriter Text"
|
||||
:height 120)
|
||||
(variable-pitch :family "CMU Typewriter Text Variable Width"
|
||||
(+set-faces `((default :family "DejaVu Sans Mono"
|
||||
:height 105)
|
||||
(fixed-pitch :inherit default)
|
||||
(variable-pitch :family "DejaVu Sans"
|
||||
:height 1.1)))
|
||||
|
||||
;;; bob.el ends here
|
||||
|
|
Loading…
Reference in New Issue