meh
This commit is contained in:
parent
40c8fe07fa
commit
ea979bdc41
54
init.el
54
init.el
|
@ -573,7 +573,7 @@
|
||||||
(:option org-adapt-indentation nil
|
(:option org-adapt-indentation nil
|
||||||
org-auto-align-tags t
|
org-auto-align-tags t
|
||||||
org-archive-mark-done t
|
org-archive-mark-done t
|
||||||
org-catch-invisible-edits 'show-and-error
|
org-fold-catch-invisible-edits 'show-and-error
|
||||||
org-clock-clocked-in-display 'mode-line
|
org-clock-clocked-in-display 'mode-line
|
||||||
org-clock-frame-title-format (cons
|
org-clock-frame-title-format (cons
|
||||||
'(t org-mode-line-string)
|
'(t org-mode-line-string)
|
||||||
|
@ -1048,17 +1048,25 @@
|
||||||
|
|
||||||
(setup (:straight (cape
|
(setup (:straight (cape
|
||||||
:host github :repo "minad/cape"))
|
:host github :repo "minad/cape"))
|
||||||
(dolist (fn
|
(let
|
||||||
;; All available cape capfs listed here. Add them to the front since
|
;; All available cape capfs listed here. Add them to the front since
|
||||||
;; they're reversed with `add-to-list'.
|
;; they're reversed with `add-to-list'.
|
||||||
'(cape-file
|
((append-fns '(cape-file
|
||||||
cape-dabbrev
|
cape-dabbrev
|
||||||
cape-keyword
|
cape-keyword))
|
||||||
;;cape-abbrev
|
(remove-fns '(cap-abbrev
|
||||||
cape-ispell
|
cape-ispell
|
||||||
;;cape-dict
|
cape-dict)))
|
||||||
))
|
(dolist (fn append-fns)
|
||||||
(add-to-list 'completion-at-point-functions fn :append)))
|
(add-to-list 'completion-at-point-functions fn :append))
|
||||||
|
(dolist (fn remove-fns)
|
||||||
|
(setq completion-at-point-functions
|
||||||
|
(delete fn completion-at-point-functions)))
|
||||||
|
;; Fix position of t
|
||||||
|
(when (memq t completion-at-point-functions)
|
||||||
|
(setq completion-at-point-functions
|
||||||
|
(append (delq t completion-at-point-functions)
|
||||||
|
'(t))))))
|
||||||
|
|
||||||
(setup (:straight circe)
|
(setup (:straight circe)
|
||||||
(:require _circe
|
(:require _circe
|
||||||
|
@ -1164,7 +1172,8 @@
|
||||||
(advice-add #'circe-command-GQUIT :after #'+circe-gquit@kill-buffer)
|
(advice-add #'circe-command-GQUIT :after #'+circe-gquit@kill-buffer)
|
||||||
|
|
||||||
(:with-mode circe-chat-mode
|
(:with-mode circe-chat-mode
|
||||||
(:local-set lui-input-function #'+lui-filter)
|
(:local-set lui-input-function #'+lui-filter
|
||||||
|
+modeline-position-function 'empty)
|
||||||
(:hook #'enable-circe-color-nicks
|
(:hook #'enable-circe-color-nicks
|
||||||
#'enable-circe-new-day-notifier
|
#'enable-circe-new-day-notifier
|
||||||
#'+circe-chat@set-prompt
|
#'+circe-chat@set-prompt
|
||||||
|
@ -2034,7 +2043,17 @@
|
||||||
:foreground ,red-nuanced-fg)))
|
:foreground ,red-nuanced-fg)))
|
||||||
`(font-lock-todo-face ((,class :inherit font-lock-comment-face
|
`(font-lock-todo-face ((,class :inherit font-lock-comment-face
|
||||||
:foreground ,fg-header
|
:foreground ,fg-header
|
||||||
:background ,yellow-intense-bg)))))))
|
:background ,yellow-intense-bg))))
|
||||||
|
;; Major mode in the mode-line
|
||||||
|
(defface +modeline-text-mode-face `((,class ( :foreground ,blue
|
||||||
|
:inherit modus-themes-bold)))
|
||||||
|
"Text-mode major mode face.")
|
||||||
|
(defface +modeline-prog-mode-face `((,class ( :foreground ,magenta
|
||||||
|
:inherit modus-themes-bold)))
|
||||||
|
"Prog-mode major mode face.")
|
||||||
|
(:option +modeline-major-mode-faces `((text-mode . +modeline-text-mode-face)
|
||||||
|
(prog-mode . +modeline-prog-mode-face)
|
||||||
|
(t . bold))))))
|
||||||
|
|
||||||
(require 'dawn)
|
(require 'dawn)
|
||||||
(dawn-schedule #'modus-themes-load-operandi
|
(dawn-schedule #'modus-themes-load-operandi
|
||||||
|
@ -2259,7 +2278,7 @@
|
||||||
+modeline-position
|
+modeline-position
|
||||||
+modeline-major-mode
|
+modeline-major-mode
|
||||||
+modeline-file-percentage
|
+modeline-file-percentage
|
||||||
)))
|
+modeline-spacer)))
|
||||||
(simple-modeline-mode +1))
|
(simple-modeline-mode +1))
|
||||||
|
|
||||||
(setup (:straight slack)
|
(setup (:straight slack)
|
||||||
|
@ -2370,7 +2389,10 @@
|
||||||
(define-key +key-mode-map (kbd "C-x 5 t") +transpose-frame-map))
|
(define-key +key-mode-map (kbd "C-x 5 t") +transpose-frame-map))
|
||||||
|
|
||||||
(setup (:straight trashed)
|
(setup (:straight trashed)
|
||||||
(:option trashed-action-confirmer #'y-or-n-p))
|
(:+leader "t" #'trashed)
|
||||||
|
(:option trashed-action-confirmer #'y-or-n-p
|
||||||
|
trashed-use-header-line t
|
||||||
|
trashed-size-format 'human-readable))
|
||||||
|
|
||||||
(setup (:straight undo-fu)
|
(setup (:straight undo-fu)
|
||||||
(:option undo-fu-allow-undo-in-region t)
|
(:option undo-fu-allow-undo-in-region t)
|
||||||
|
|
|
@ -297,7 +297,7 @@ ARG is passed to `backward-kill-word'."
|
||||||
("C-r" . isearch-backward-regexp)
|
("C-r" . isearch-backward-regexp)
|
||||||
("C-M-s" . isearch-forward)
|
("C-M-s" . isearch-forward)
|
||||||
("C-M-r" . isearch-backward)))
|
("C-M-r" . isearch-backward)))
|
||||||
(define-key +key-mode-map (kbd (car binding)) (cdr binding)))
|
(define-key (current-global-map) (kbd (car binding)) (cdr binding)))
|
||||||
|
|
||||||
|
|
||||||
;;; Required libraries
|
;;; Required libraries
|
||||||
|
|
Loading…
Reference in New Issue