.

4 files changed, 90 insertions, 18 deletions

diff --git a/home/config.scm b/home/config.scm
index d1de06f..abbe70a 100644
--- a/home/config.scm
+++ b/home/config.scm
@@ -132,6 +132,7 @@
 	      emacs-pinentry
 	      emacs-pdf-tools
 	      emacs-alsamixer-el
+	      emacs-compat
 	      mu
 	      mailutils
 	      msmtp
diff --git a/home/dots/.emacs.d/BOGO-dark-theme.el b/home/dots/.emacs.d/BOGO-dark-theme.el
index 6b623cb..adafa0f 100644
--- a/home/dots/.emacs.d/BOGO-dark-theme.el
+++ b/home/dots/.emacs.d/BOGO-dark-theme.el
@@ -3,7 +3,7 @@
 
 (custom-theme-set-faces
  'BOGO-dark
- '(default ((t (:inherit nil :extend nil :stipple nil :background "#1d1d1d" :foreground "#fffff8" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight regular :height 150 :width expanded :foundry "UKWN" :family "iA Writer Mono V"))))
+ '(default ((t (:inherit nil :extend nil :stipple nil :background "#1d1d1d" :foreground "#fffff8" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight regular :height 150 :width expanded :foundry "UKWN" :family "Iosevka SS13 Extended"))))
  '(avy-lead-face ((t (:inherit fixed-pitch :background "dark red" :foreground "white"))))
  '(avy-goto-char-timer-face ((t (:inherit fixed-pitch :background "gray50" :foreground "white"))))
  '(calendar-weekend-header ((t (:inherit nil))))
@@ -16,8 +16,8 @@
  '(erc-timestamp-face ((t (:foreground "blue" :weight bold))))
  '(eshell-prompt ((t (:weight bold))))
  '(eww-valid-certificate ((t (:foreground "#fafaf8" :weight bold))))
- '(fixed-pitch ((t (:family "iA Writer Mono V"))))
- '(fixed-pitch-serif ((t (:family "iA Writer Mono V"))))
+ '(fixed-pitch ((t (:family "Iosevka SS13 Extended"))))
+ '(fixed-pitch-serif ((t (:family "Iosevka SS13 Extended"))))
  '(isearch ((t (:foreground "white"))))
  '(font-lock-builtin-face ((t (:weight regular))))
  '(font-lock-comment-face ((t (:foreground "gray40"))))
@@ -34,7 +34,7 @@
  '(magit-section-heading ((t (:weight bold))))
  '(font-lock-variable-name-face ((t (:foreground "#fffff8"))))
  '(fringe ((t nil)))
- '(header-line ((t (:inherit default :foreground "grey80" :box (:line-width (12 . 12) :color "#1d1d1d") :underline (:color "gray20" :style line :position 0) :family "iA Writer Duo V" :height 1.0))))
+ '(header-line ((t (:inherit default :foreground "grey80" :box (:line-width (12 . 12) :color "#1d1d1d") :underline (:color "gray20" :style line :position 0) :family "Iosevka Aile" :height 1.0))))
  '(highlight ((t (:background "gray20"))))
  '(eglot-highlight-symbol-face ((t ()))) 
  '(info-header-xref ((t (:inherit info-xref :underline (:color "RoyalBlue3" :style line :position t)))))
@@ -58,7 +58,7 @@
  '(gnus-header-subject ((t (:slant italic))))
  '(gnus-header-from ((t (:weight bold))))
  '(minibuffer-prompt ((t nil)))
- '(mode-line ((t (:background "#333333" :foreground "#fffff8" :box (:line-width (2 . 2) :style flat-button) :overline "#333333" :underline (:color "#333333" :style line :position t) :family "iA Writer Duo V"))))
+ '(mode-line ((t (:background "#333333" :foreground "#fffff8" :box (:line-width (2 . 2) :style flat-button) :overline "#333333" :underline (:color "#333333" :style line :position t) :family "Iosevka Aile"))))
  '(mode-line-emphasis ((t nil)))
  '(mode-line-buffer-id ((t nil)))
  '(magit-section-highlight ((t (:background "#333333"))))
@@ -98,11 +98,11 @@
  '(org-block-begin-line ((t :inherit org-tag)))
  '(org-quote ((t (:inherit org-block :slant italic))))
  '(outline-4 ((t (:inherit outline-2))))
- '(tab-line ((t ( :weight semi-light :family "iA Writer Duo V"))))
- '(tab-line-highlight ((t (:weight semi-light :family "iA Writer Duo V"))))
- '(tab-line-tab-current ((t (:weight semi-light :family "iA Writer Duo V"))))
- '(tab-line-tab-inactive ((t (:weight semi-light :foreground "gray70" :family "iA Writer Duo V"))))
- '(tab-bar ((t (:weight semi-light :box nil :background "#333333" :family "iA Writer Duo V"))))
+ '(tab-line ((t ( :weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-highlight ((t (:weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-tab-current ((t (:weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-tab-inactive ((t (:weight semi-light :foreground "gray70" :family "Iosevka Aile"))))
+ '(tab-bar ((t (:weight semi-light :box nil :background "#333333" :family "Iosevka Aile"))))
  '(tab-bar-tab ((t (:inherit tab-bar :box (:line-width (12 . -1) :style flat-button :color "#1d1d1d") :background "#1d1d1d" :foreground "#fffff8"))))
  '(tab-bar-tab-inactive ((t (:box (:line-width (12 . -1) :style flat-button :color "#333333") :background "#333333" :foreground "#999999" :weight semi-light ))))
  '(tldr-code-block ((t (:background "cornsilk" :foreground "#fffff8"))))
diff --git a/home/dots/.emacs.d/BOGO-theme.el b/home/dots/.emacs.d/BOGO-theme.el
index 5ce019e..3f0bdc0 100644
--- a/home/dots/.emacs.d/BOGO-theme.el
+++ b/home/dots/.emacs.d/BOGO-theme.el
@@ -3,7 +3,7 @@
 
 (custom-theme-set-faces
   'BOGO
- '(default ((t (:inherit nil :extend nil :stipple nil :background "#fffff8" :foreground "#111111" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight regular :height 150 :width expanded :foundry "UKWN" :family "iA Writer Mono V"))))
+ '(default ((t (:inherit nil :extend nil :stipple nil :background "#fffff8" :foreground "#111111" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight regular :height 150 :width expanded :foundry "UKWN" :family "Iosevka SS13 Extended"))))
  '(avy-lead-face ((t (:inherit fixed-pitch :background "dark red" :foreground "white"))))
  '(calendar-weekend-header ((t (:inherit nil))))
  '(comint-highlight-prompt ((t nil)))
@@ -15,7 +15,7 @@
  '(erc-timestamp-face ((t (:foreground "blue" :weight bold))))
  '(eshell-prompt ((t (:weight bold))))
  '(eww-valid-certificate ((t (:foreground "#111111" :weight bold))))
- '(fixed-pitch ((t (:family "iA Writer Mono V"))))
+ '(fixed-pitch ((t (:family "Iosevka SS13 Extended"))))
  '(font-lock-builtin-face ((t (:weight regular))))
  '(font-lock-comment-face ((t (:foreground "gray40"))))
  '(font-lock-constant-face ((t (:slant italic))))
@@ -29,7 +29,7 @@
  '(magit-section-heading ((t (:weight bold))))
  '(font-lock-variable-name-face ((t (:foreground "#111111"))))
  '(fringe ((t nil)))
- '(header-line ((t (:inherit default :foreground "grey20" :box (:line-width (12 . 12) :color "#fffff8") :underline (:color "#e0e0e0" :style line :position 0) :family "iA Writer Duo V" :height 1.0))))
+ '(header-line ((t (:inherit default :foreground "grey20" :box (:line-width (12 . 12) :color "#fffff8") :underline (:color "#e0e0e0" :style line :position 0) :family "Iosevka Aile" :height 1.0))))
  '(highlight ((t (:background "azure2"))))
  '(info-header-xref ((t (:inherit info-xref :underline (:color "RoyalBlue3" :style line :position t)))))
  '(info-menu-header ((t (:family "Iosevka aile" :weight bold))))
@@ -54,7 +54,7 @@
  '(gnus-header-subject ((t (:slant italic))))
  '(gnus-header-from ((t (:weight bold))))
  '(minibuffer-prompt ((t nil)))
- '(mode-line ((t (:background "#EEEEE8" :foreground "#111111" :box (:line-width (4 . 4) :style flat-button) :overline "white" :underline (:color "#fffff8" :style line :position t) :family "iA Writer Duo V"))))
+ '(mode-line ((t (:background "#EEEEE8" :foreground "#111111" :box (:line-width (4 . 4) :style flat-button) :overline "white" :underline (:color "#fffff8" :style line :position t) :family "Iosevka Aile"))))
  '(mode-line-emphasis ((t nil)))
  '(mode-line-buffer-id ((t nil)))
  '(magit-section-highlight ((t (:background "#EEEEE8"))))
@@ -91,10 +91,10 @@
  '(org-block-begin-line ((t :inherit org-tag)))
  '(org-quote ((t (:inherit org-block :slant italic))))
  '(outline-4 ((t (:inherit outline-2))))
- '(tab-line ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "iA Writer Duo V"))))
- '(tab-line-highlight ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "iA Writer Duo V"))))
- '(tab-line-tab-current ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "iA Writer Duo V"))))
- '(tab-line-tab-inactive ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :foreground "gray70" :family "iA Writer Duo V"))))
+ '(tab-line ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-highlight ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-tab-current ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-tab-inactive ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :foreground "gray70" :family "Iosevka Aile"))))
  '(tab-bar ((t (:background "#EEEEE8" :box nil :weight semi-light :family "Iosevka Aile"))))
  '(tab-bar-tab ((t (:inherit tab-bar :box (:line-width (12 . -1) :style flat-button) :background "#fffff8" :foreground "#111111"))))
  '(tab-bar-tab-inactive ((t (:inherit tab-bar-tab :box (:line-width (12 . -1) :style flat-button) :background "#EEEEE8" :foreground "#111111" :weight semi-light))))
diff --git a/home/dots/.emacs.d/early-init.el b/home/dots/.emacs.d/early-init.el
new file mode 100644
index 0000000..6da7839
--- /dev/null
+++ b/home/dots/.emacs.d/early-init.el
@@ -0,0 +1,71 @@
+;;; early-init.el --- Early Init -*- no-byte-compile: t; lexical-binding: t; -*-
+(defconst my/start-time (current-time))
+
+(defvar file-name-handler-alist-old file-name-handler-alist)
+
+
+(setq file-name-handler-alist nil
+      message-log-max 16384
+      gc-cons-threshold most-positive-fixnum   ;; Defer Garbage collection
+      gc-cons-percentage 1.0)
+
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (setq file-name-handler-alist file-name-handler-alist-old)
+            (garbage-collect)
+            (message "Load time %.06f"
+                     (float-time (time-since
+                                  my/start-time)))) t)
+
+
+(menu-bar-mode -1)
+(tool-bar-mode -1)
+(show-paren-mode 1)
+(global-font-lock-mode t)
+(winner-mode t)
+(set-language-environment "UTF-8")
+(set-terminal-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
+(set-selection-coding-system 'utf-8)
+(prefer-coding-system 'utf-8)
+(setq load-prefer-newer t)
+(setq inhibit-compacting-font-caches t)
+(setq inhibit-startup-screen t
+      inhibit-startup-echo-area-message user-login-name)
+(setq initial-buffer-choice nil
+      inhibit-startup-buffer-menu t
+      inhibit-x-resources t)
+
+;; Disable bidirectional text scanning for a modest performance boost.
+(setq-default bidi-display-reordering 'left-to-right
+              bidi-paragraph-direction 'left-to-right)
+
+;; Give up some bidirectional functionality for slightly faster re-display.
+(setq bidi-inhibit-bpa t)
+(advice-add #'display-startup-echo-area-message :override #'ignore)
+(advice-add #'display-startup-screen :override #'ignore)
+(setq initial-major-mode 'fundamental-mode
+      initial-scratch-message nil)
+(if (and (featurep 'native-compile)
+         (fboundp 'native-comp-available-p)
+         (native-comp-available-p))
+    ;; Activate `native-compile'
+    (setq native-comp-jit-compilation t
+          native-comp-deferred-compilation t  ; Obsolete since Emacs 29.1
+          package-native-compile t)
+  ;; Deactivate the `native-compile' feature if it is not available
+  (setq features (delq 'native-compile features)))
+(setq native-comp-async-report-warnings-errors
+      'silent)
+(setq inhibit-splash-screen t)
+
+(setq auto-mode-case-fold nil)
+(setq default-input-method nil)
+(setq use-package-enable-imenu-support t)
+(setq package-archives '(("melpa" . "https://melpa.org/packages/")
+                         ("melpa-stable" . "https://stable.melpa.org/packages/")
+                         ("gnu" . "https://elpa.gnu.org/packages/")
+			 ("non-gnu" . "https://elpa.nongnu.org/nongnu/")))
+
+
+(provide 'early-init)