(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,14 +24,13 @@
;; 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
straight-check-for-modifications 'live) straight-check-for-modifications 'live)
(defvar bootstrap-version) (defvar bootstrap-version)
(let ((bootstrap-file (let ((bootstrap-file
(expand-file-name (expand-file-name
"straight/repos/straight.el/bootstrap.el" "straight/repos/straight.el/bootstrap.el"
(or (bound-and-true-p straight-base-dir) (or (bound-and-true-p straight-base-dir)
@@ -46,33 +45,33 @@
(eval-print-last-sexp))) (eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage)) (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-demand nil
use-package-always-defer nil use-package-always-defer nil
use-package-hook-name-suffix nil use-package-hook-name-suffix nil
use-package-compute-statistics t) use-package-compute-statistics t)
(straight-use-package 'use-package) (straight-use-package 'use-package)
(straight-use-package 'org) (straight-use-package 'org)
(straight-use-package 'no-littering) (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) no-littering-var-directory (expand-file-name ".local/" user-emacs-directory)
custom-file (no-littering-expand-etc-file-name "custom.el")) custom-file (no-littering-expand-etc-file-name "custom.el"))
(load-file custom-file) (load-file custom-file)
;;; Load literate ;;; Load literate
(load-file (concat user-emacs-directory "elisp/literate.el")) (load-file (concat user-emacs-directory "elisp/literate.el"))
;; Compile on Emacs quit ;; Compile on Emacs quit
(add-hook (add-hook
'kill-emacs-hook 'kill-emacs-hook
#'+literate/compile-config) #'+literate/compile-config)
(+literate/load-config) (+literate/load-config)
(when (daemonp) (when (daemonp)
(require 'general) (require 'general)
(require 'evil) (require 'evil)
(require 'ivy) (require 'ivy)
@@ -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"; \