Update emacs.org

This commit is contained in:
Sakooooo 2023-11-25 17:51:31 +04:00 committed by GitHub
parent ff8dc9f345
commit 3d018247b3
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -43,18 +43,22 @@ Should make startup faster, taken from doom-emacs
#+end_src
* UI
#+begin_src emacs-lisp
;; UI/UX
(setq inhibit-splash-screen t)
;; make it look like neovim a little
(scroll-bar-mode -1)
(tool-bar-mode -1)
(tooltip-mode -1)
(set-fringe-mode 10)
(menu-bar-mode -1)
;; Line Numbers
(column-number-mode)
;; Bell
(setq visible-bell t)
;; UI/UX
(setq inhibit-splash-screen t)
;; remove useless GUI elements
(scroll-bar-mode -1)
(tool-bar-mode -1)
(tooltip-mode -1)
(set-fringe-mode 10)
(menu-bar-mode -1)
;; Line Numbers
(column-number-mode)
;; Bell
(setq visible-bell t)
;; prefer y/n
(fset 'yes-or-no-p 'y-or-n-p)
;; Stop Emacs from trying to use dialog boxes.
(setq use-dialog-box nil)
#+end_src
* Line Numbers
#+begin_src emacs-lisp
@ -78,49 +82,49 @@ Should make startup faster, taken from doom-emacs
#+end_src
* Use-Package setup
#+begin_src emacs-lisp
(require `package)
(message "setting up use-package")
(require `package)
(setq package-archives `(("mepla" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")))
(setq package-archives `(("mepla" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
;; Init package for non-linux
(unless (package-installed-p `use-package)
(package-install `use-package))
;; Init package for non-linux
(unless (package-installed-p `use-package)
(package-install `use-package))
(require 'use-package)
(setq use-package-always-ensure t)
(require 'use-package)
(setq use-package-always-ensure t)
#+end_src
* Straight.el setup
#+begin_src emacs-lisp
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
(bootstrap-version 6))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
(message "setting up straight.el")
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
(bootstrap-version 6))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
#+end_src
* SPEED SPEED SPEED SPEED
Most of these are taken from Doom-Emacs!
https://github.com/doomemacs/doomemacs/blob/develop/docs/faq.org#how-does-doom-start-up-so-quickly
Theres also Centaur Emacs
https://github.com/seagle0128/.emacs.d
** Avoid Garbage Collection at startup
#+begin_src emacs-lisp
(use-package gcmh
:init
(gcmh-mode 1))
(add-hook 'emacs-startup-hook (gcmh-mode 1))
(setq gcmh-idle-delay 5)
(setq gcmh-high-cons-threshold (* 16 1024 1024))
:config
(gcmh-mode))
#+end_src
** Move Garbage collection further back
#+begin_src emacs-lisp
@ -136,8 +140,32 @@ https://github.com/seagle0128/.emacs.d
(lambda ()
(setq file-name-handler-alist sakomacs--file-name-handler-alist)))
#+end_src
** Go back to normal GC after init
#+begin_src emacs-lisp
(add-hook 'emacs-startup-hook
(lambda ()
(setq gc-cons-threshold 16777216 ; 16mb
gc-cons-percentage 0.1)))
#+end_src
** Don't use GC when minibuffer is used
#+begin_src emacs-lisp
(defun doom-defer-garbage-collection-h ()
"Disable garbage collection."
(setq gc-cons-threshold most-positive-fixnum))
(defun doom-restore-garbage-collection-h ()
"Restore garbage collection."
(run-at-time
1 nil (lambda () (setq gc-cons-threshold 16777216))))
(add-hook 'minibuffer-setup-hook #'doom-defer-garbage-collection-h)
(add-hook 'minibuffer-exit-hook #'doom-restore-garbage-collection-h)
#+end_src
* Packages
** Log state
#+begin_src emacs-lisp
(message "setting up packages")
#+end_src
** Command Log Mode
#+begin_src emacs-lisp
(use-package command-log-mode
@ -1092,6 +1120,10 @@ only god knows why im doing this
:straight t
)
#+end_src
** System Packages
#+begin_src emacs-lisp
(use-package system-packages)
#+end_src
* Org Mode Configuration Setup
** Babel Languages
#+begin_src emacs-lisp