emacs_config/init.el
2025-01-25 23:08:59 -05:00

97 lines
2.4 KiB
EmacsLisp

;;Look
(tool-bar-mode 0)
(scroll-bar-mode 0)
(menu-bar-mode 0)
(set-fringe-mode 0)
(blink-cursor-mode 0)
(set-frame-parameter nil 'alpha-background 80)
(add-to-list 'default-frame-alist '(alpha-background . 80))
(setq-default line-spacing 1)
(setq-default cursor-type '(bar . 2))
(setq-default ring-bell-function 'ignore)
;;~ and # files
(setq make-backup-files nil)
(setq auto-save-default nil)
;;pkgs
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)
(require 'use-package)
(use-package magit :ensure t)
(use-package nerd-icons :ensure t)
(use-package direnv
:ensure t
:bind ("C-; d" . direnv-allow))
(use-package elfeed
:ensure t
:bind (("C-; r" . elfeed)))
(use-package which-key
:ensure t
:init (which-key-mode))
(use-package emojify
:ensure t
:init (global-emojify-mode))
(use-package latex-preview-pane
:ensure t
:init (latex-preview-pane-enable))
(use-package org
:ensure t
:custom (org-return-follows-link t))
(use-package elfeed-org
:ensure t
:init (elfeed-org)
:custom (rmh-elfeed-org-files (list "~/.config/emacs/elfeed.org")))
(use-package org-roam
:ensure t
:init (org-roam-db-autosync-mode)
:custom ((org-roam-v2-ack t)
(org-roam-directory (file-truename "~/Notes")))
:bind (("C-; n l" . org-roam-buffer-toggle)
("C-; n f" . org-roam-node-find)
("C-; n i" . org-roam-node-insert)))
(use-package eglot
:ensure t
:bind(("C-; e a" . eglot-code-actions)
("C-; e i" . eglot-find-implementation)
("C-; e d" . eglot-find-declaration)
("C-; e t" . eglot-find-typeDefinition)
("C-; e f" . eglot-format)
("C-; e r" . eglot-rename)))
(use-package dashboard
:ensure t
:init (dashboard-setup-startup-hook)
:custom ((dashboard-display-icons-p t)
(dashboard-icon-type 'nerd-icons)
(dashboard-center-content t)
(dashboard-vertically-center-content t)
(dashboard-items '((recents . 5)
(bookmarks . 5)
(projects . 5)))))
;;c asserts
(defun c--assert ()
(interactive)
(define-skeleton assert "cassert" "Test:" "assert(" str " && \"" (skeleton-read "Error Text:") "\");" _ )
(assert))
(with-eval-after-load 'cc-mode
(define-key c-mode-map (kbd "C-S-a") 'c--assert))
;;Custom-file
(setq custom-file (concat user-emacs-directory "custom.el"))
(load custom-file 'noerror)