k/emacs_config
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
k 2024-11-19 22:06:24 -05:00
parent 419ac7f46c
commit 0838f3bedc
1 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
init.el
View File

@ -4,14 +4,16 @@
(set-fringe-mode 0) (set-fringe-mode 0)
(setq ring-bell-function 'ignore) (setq ring-bell-function 'ignore)
(set-face-attribute 'default nil :font "GoMono Nerd Font Mono-11")
(require 'package) (require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize) (package-initialize)
(require 'use-package) (require 'use-package)
(set-frame-parameter nil 'alpha-background 80)
(add-to-list 'default-frame-alist '(alpha-background . 80))
(use-package magit :ensure t) (use-package magit :ensure t)
(use-package org-temp :ensure t)
(use-package direnv :ensure t) (use-package direnv :ensure t)
(use-package docker :ensure t) (use-package docker :ensure t)
(use-package elpher :ensure t) (use-package elpher :ensure t)
@ -33,14 +35,23 @@
:hook (after-init . global-emojify-mode)) :hook (after-init . global-emojify-mode))
(use-package dashboard (use-package dashboard
:ensure t) :ensure t
:config
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))))
(use-package org-roam (use-package org-roam
:ensure t :ensure t
:init
(setq org-roam-v2-ack t)
:custom :custom
(org-roam-directory (file-truename "~/Notes")) (org-roam-directory (file-truename "~/Notes"))
:config :bind (("C-c n l" . org-roam-buffer-toggle)
(org-roam-db-autosync-mode)) ("C-c n f" . org-roam-node-find)
("C-c n i" . org-roam-node-insert)))
(org-roam-db-autosync-mode)
(setq org-return-follows-link t)
(setf (cdr (assoc 'file org-link-frame-setup)) 'find-file)
(global-activity-watch-mode) (global-activity-watch-mode)
@ -57,18 +68,11 @@
(latex-preview-pane-enable) (latex-preview-pane-enable)
(setq-default indent-tabs-mode) (setq-default indent-tabs-mode)
(setq default-frame-alist
(append (list '(width . 72) '(height . 40)
'(vertical-scroll-bars . nil)
'(internal-border-width . 24))))
(set-frame-parameter (selected-frame)
'internal-border-width 24)
(defun mode-line-render (left right) (defun mode-line-render (left right)
(let* ((available-width (- (window-width) (length left) ))) (let* ((available-width (- (window-width) (length left) )))
(format (format "%%s %%%ds" available-width) left right))) (format (format "%%s %%%ds" available-width) left right)))
(setq-default mode-line-format (setq-default mode-line-format
'((:eval '((:eval
(mode-line-render (mode-line-render
@ -92,17 +96,16 @@
(setq-default mode-line-format'("")) (setq-default mode-line-format'(""))
(set-face-attribute 'header-line nil (set-face-attribute 'header-line nil
:underline (face-foreground 'default)
:background (face-background 'default)
:box nil)
(set-face-attribute 'mode-line nil
:height 10
:underline (face-foreground 'default) :underline (face-foreground 'default)
:overline nil :background (face-background 'default)
:box nil :box nil)
:foreground (face-background 'default)
:background (face-background 'default))
(set-face-attribute 'mode-line nil
:underline (face-foreground 'default)
:overline nil
:box nil
:foreground (face-background 'default)
:background (face-background 'default))
(dashboard-setup-startup-hook) (dashboard-setup-startup-hook)