Cleanup
This commit is contained in:
parent
419ac7f46c
commit
0838f3bedc
31
init.el
31
init.el
@ -4,14 +4,16 @@
|
||||
(set-fringe-mode 0)
|
||||
(setq ring-bell-function 'ignore)
|
||||
|
||||
(set-face-attribute 'default nil :font "GoMono Nerd Font Mono-11")
|
||||
|
||||
(require 'package)
|
||||
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
|
||||
(package-initialize)
|
||||
(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 org-temp :ensure t)
|
||||
(use-package direnv :ensure t)
|
||||
(use-package docker :ensure t)
|
||||
(use-package elpher :ensure t)
|
||||
@ -33,14 +35,23 @@
|
||||
:hook (after-init . global-emojify-mode))
|
||||
|
||||
(use-package dashboard
|
||||
:ensure t)
|
||||
:ensure t
|
||||
:config
|
||||
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))))
|
||||
|
||||
(use-package org-roam
|
||||
:ensure t
|
||||
:init
|
||||
(setq org-roam-v2-ack t)
|
||||
:custom
|
||||
(org-roam-directory (file-truename "~/Notes"))
|
||||
:config
|
||||
(org-roam-db-autosync-mode))
|
||||
:bind (("C-c n l" . org-roam-buffer-toggle)
|
||||
("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)
|
||||
|
||||
@ -57,18 +68,11 @@
|
||||
|
||||
(latex-preview-pane-enable)
|
||||
(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)
|
||||
(let* ((available-width (- (window-width) (length left) )))
|
||||
(format (format "%%s %%%ds" available-width) left right)))
|
||||
|
||||
(setq-default mode-line-format
|
||||
'((:eval
|
||||
(mode-line-render
|
||||
@ -98,7 +102,6 @@
|
||||
|
||||
|
||||
(set-face-attribute 'mode-line nil
|
||||
:height 10
|
||||
:underline (face-foreground 'default)
|
||||
:overline nil
|
||||
:box nil
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user