(Emacs|SXHkD)~Some small fixes

This commit is contained in:
2024-06-23 21:34:32 +01:00
parent be2bb62baf
commit 0beb166d47
4 changed files with 59 additions and 56 deletions

View File

@@ -33,7 +33,7 @@ code:
;; and when the configuration is compiled again. ;; and when the configuration is compiled again.
;; To propagate edits from this file to the literate document, call ;; To propagate edits from this file to the literate document, call
;; (org-babel-detangle) while in the file. ;; (org-babel-detangle).
;;; Code: ;;; Code:
#+end_src #+end_src
@@ -559,7 +559,9 @@ Setup the evil package, with some opinionated keybindings:
"M-y" #'yank-pop "M-y" #'yank-pop
"T" nil) "T" nil)
(nmmap (general-def
:keymaps 'override
:states '(normal motion visual)
:infix "T" :infix "T"
"w" #'transpose-words "w" #'transpose-words
"c" #'transpose-chars "c" #'transpose-chars

View File

@@ -1,4 +1,4 @@
;;; early-init.el --- My custom early-init.el -*- lexical-binding: t; -*- ;;; early-init.el --- What Emacs loads before init.el -*- lexical-binding: t; -*-
;; Copyright (C) 2022 Aryadev Chavali ;; Copyright (C) 2022 Aryadev Chavali
@@ -19,7 +19,7 @@
;;; Commentary: ;;; Commentary:
;; Sets up some variables and graphical configuration to make Emacs ;; Sets up some variables and graphical configuration to make Emacs
;; less janky looking while loading ;; less janky looking while loading.
;;; Code: ;;; Code:
(setq gc-cons-threshold most-positive-fixnum (setq gc-cons-threshold most-positive-fixnum
@@ -31,6 +31,10 @@
native-comp-always-compile nil native-comp-always-compile nil
native-comp-async-report-warnings-errors 'silent) native-comp-async-report-warnings-errors 'silent)
;; don't use x resources lol
(advice-add #'x-apply-session-resources :override #'ignore)
;; turn off the menu bar, tool bar, scroll bar, fringes
;; also set the transparency (active inactive)
(setq-default (setq-default
default-frame-alist '((menu-bar-lines . 0) default-frame-alist '((menu-bar-lines . 0)
(tool-bar-lines . 0) (tool-bar-lines . 0)
@@ -39,5 +43,3 @@
(right-fringe . 0) (right-fringe . 0)
(alpha . (90 80)))) (alpha . (90 80))))
(scroll-bar-mode -1) (scroll-bar-mode -1)
(advice-add #'x-apply-session-resources :override #'ignore)

View File

@@ -24,7 +24,6 @@
;; Before doing anything else, make gc-cons-threshold ridiculously ;; Before doing anything else, make gc-cons-threshold ridiculously
;; high. This makes it so we have as few pauses during init as ;; high. This makes it so we have as few pauses during init as
;; possible. ;; possible.
(let ((gc-cons-threshold most-positive-fixnum))
;; Straight ;; Straight
(setq straight-disable-native-compile nil (setq straight-disable-native-compile nil
straight-use-package-by-default nil straight-use-package-by-default nil
@@ -80,14 +79,14 @@
(require 'notmuch) (require 'notmuch)
(require 'company) (require 'company)
(require 'org) (require 'org)
(require 'eglot))) (require 'eglot))
(setq gc-cons-threshold (* 100 1024 1024) ; ~100MiB (setq gc-cons-threshold (* 100 1024 1024) ; ~100MiB
read-process-output-max 5242880 ; ~5MiB read-process-output-max (* 5 1024 1024) ; ~5MiB
;; FIXME: Problem with memory-report after running Emacs for a ;; FIXME: Problem with memory-report after running Emacs for a
;; bit, causes a Lisp nesting error, so I just set it up really ;; bit, causes a Lisp nesting error, so I just set it up really
;; high so it doesn't reach that. ;; high so it doesn't reach that.
max-lisp-eval-depth 5000) max-lisp-eval-depth 999999)
(provide 'init) (provide 'init)
;;; init.el ends here ;;; init.el ends here

View File

@@ -15,7 +15,7 @@ super + a
dmenu_run dmenu_run
super + e super + e
emacsclient --eval '(emacs-everywhere)'; $HOME/.local/scripts/emoticons
super + s super + s
notify-send -u low "Launching browser"; \ notify-send -u low "Launching browser"; \