https://github.com/maxkatzmann/emacs-config
My humble emacs config.
https://github.com/maxkatzmann/emacs-config
Last synced: 4 months ago
JSON representation
My humble emacs config.
- Host: GitHub
- URL: https://github.com/maxkatzmann/emacs-config
- Owner: maxkatzmann
- Created: 2021-12-09T18:52:26.000Z (over 4 years ago)
- Default Branch: main
- Last Pushed: 2023-03-27T08:56:30.000Z (about 3 years ago)
- Last Synced: 2025-07-17T16:56:27.149Z (11 months ago)
- Language: Emacs Lisp
- Size: 365 KB
- Stars: 1
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
# emacs-config
My humble emacs config.
Currently needs the following patches to work as expected
- https://github.com/syl20bnr/evil-iedit-state/pull/37/commits
- In the function `cfw:open-org-calendar` defined in `calfw-org.el`, the `view` should be changed to `:week`
We applied the following patch to nano-modeline:
``` diff
From c7662acfc9a18e5df8f99301fdd953a68e8a7908 Mon Sep 17 00:00:00 2001
From: Maximilian Katzmann
Date: Tue, 14 Jun 2022 21:42:31 +0200
Subject: [PATCH] Adjustments to layouting
---
nano-modeline.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index e28f4e4..84d7e03 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -466,6 +466,7 @@ KEY mode name, for reference only. Easier to do lookups and/or replacements.
;; When do we add space on the left?
(if nano-modeline-prefix-padding
(propertize " " 'face face-modeline))))
+ (propertize " " 'face face-name)
(propertize name 'face face-name)
(if (length name)
(propertize " " 'face face-modeline))
@@ -482,10 +483,14 @@ KEY mode name, for reference only. Easier to do lookups and/or replacements.
(right-len (length (format-mode-line right))))
(concat
left
+ ;; (propertize " " 'face face-secondary
+ ;; 'display `(space :align-to (+ right
+ ;; (-0 . right-margin)
+ ;; ,(- right-len 0))))
(propertize " " 'face face-secondary
- 'display `(space :align-to (- right
- (-1 . right-margin)
- ,(- right-len 0))))
+ 'display `(space :align-to (+ 1 (- right
+ (-0 . right-margin)
+ ,(- right-len 0)))))
right)))
--
2.32.0 (Apple Git-132)
```
`