(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.
;; To propagate edits from this file to the literate document, call
;; (org-babel-detangle) while in the file.
;; (org-babel-detangle).
;;; Code:
#+end_src
@@ -559,7 +559,9 @@ Setup the evil package, with some opinionated keybindings:
"M-y" #'yank-pop
"T" nil)
(nmmap
(general-def
:keymaps 'override
:states '(normal motion visual)
:infix "T"
"w" #'transpose-words
"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
@@ -19,7 +19,7 @@
;;; Commentary:
;; Sets up some variables and graphical configuration to make Emacs
;; less janky looking while loading
;; less janky looking while loading.
;;; Code:
(setq gc-cons-threshold most-positive-fixnum
@@ -31,6 +31,10 @@
native-comp-always-compile nil
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
default-frame-alist '((menu-bar-lines . 0)
(tool-bar-lines . 0)
@@ -39,5 +43,3 @@
(right-fringe . 0)
(alpha . (90 80))))
(scroll-bar-mode -1)
(advice-add #'x-apply-session-resources :override #'ignore)

View File

@@ -24,14 +24,13 @@
;; Before doing anything else, make gc-cons-threshold ridiculously
;; high. This makes it so we have as few pauses during init as
;; possible.
(let ((gc-cons-threshold most-positive-fixnum))
;; Straight
(setq straight-disable-native-compile nil
;; Straight
(setq straight-disable-native-compile nil
straight-use-package-by-default nil
straight-check-for-modifications 'live)
(defvar bootstrap-version)
(let ((bootstrap-file
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name
"straight/repos/straight.el/bootstrap.el"
(or (bound-and-true-p straight-base-dir)
@@ -46,33 +45,33 @@
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
(setq use-package-enable-imenu-support t
(setq use-package-enable-imenu-support t
use-package-always-demand nil
use-package-always-defer nil
use-package-hook-name-suffix nil
use-package-compute-statistics t)
(straight-use-package 'use-package)
(straight-use-package 'org)
(straight-use-package 'no-littering)
(straight-use-package 'use-package)
(straight-use-package 'org)
(straight-use-package 'no-littering)
(setq no-littering-etc-directory (expand-file-name ".config/" user-emacs-directory)
(setq no-littering-etc-directory (expand-file-name ".config/" user-emacs-directory)
no-littering-var-directory (expand-file-name ".local/" user-emacs-directory)
custom-file (no-littering-expand-etc-file-name "custom.el"))
(load-file custom-file)
(load-file custom-file)
;;; Load literate
(load-file (concat user-emacs-directory "elisp/literate.el"))
(load-file (concat user-emacs-directory "elisp/literate.el"))
;; Compile on Emacs quit
(add-hook
;; Compile on Emacs quit
(add-hook
'kill-emacs-hook
#'+literate/compile-config)
(+literate/load-config)
(+literate/load-config)
(when (daemonp)
(when (daemonp)
(require 'general)
(require 'evil)
(require 'ivy)
@@ -80,14 +79,14 @@
(require 'notmuch)
(require 'company)
(require 'org)
(require 'eglot)))
(require 'eglot))
(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
;; bit, causes a Lisp nesting error, so I just set it up really
;; high so it doesn't reach that.
max-lisp-eval-depth 5000)
max-lisp-eval-depth 999999)
(provide 'init)
;;; init.el ends here

View File

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