Guest User

Untitled

a guest
Jun 20th, 2025
21
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 1.63 KB | None | 0 0
  1. (setq custom-file "~/.config/emacs/custom.el")
  2. (load custom-file)
  3.  
  4. (setq inhibit-startup-screen t)
  5. (tool-bar-mode 0)
  6. (menu-bar-mode 0)
  7. (scroll-bar-mode 0)
  8. (show-paren-mode 0)
  9. (column-number-mode 1)
  10. (display-time-mode)
  11.  
  12. (setq backup-directory-alist '(("." . "~/.config/emacs/backup")))
  13. (setq auto-save-default nil)
  14. (setq create-lockfiles nil)
  15.  
  16. (set-face-attribute 'default nil :font "Liberation Mono" :height 105)
  17.  
  18. (add-hook 'c-mode-common-hook
  19.           (lambda ()
  20.         (setq indent-tabs-mode nil)
  21.         (setq show-trailing-whitespace t)
  22.         (c-set-style "stroustrup")
  23.         (c-set-offset 'case-label '+)
  24.         (set-variable 'compile-command "build.bat")
  25.         (set-variable 'compilation-read-command nil)
  26.         (keymap-local-set "M-m" 'compile)
  27.         (keymap-local-set "M-n" 'next-error)
  28.         (keymap-local-set "M-p" 'previous-error)
  29.         ))
  30.  
  31. ;; Bright-red TODOs
  32. (setq fixme-modes '(c++-mode c-mode emacs-lisp-mode))
  33. (make-face 'font-lock-fixme-face)
  34. (make-face 'font-lock-note-face)
  35. (make-face 'font-lock-important-face)
  36. (make-face 'font-lock-study-face)
  37. (mapc (lambda (mode)
  38.     (font-lock-add-keywords
  39.      mode
  40.      '(("\\<\\(TODO\\)" 1 'font-lock-fixme-face t)
  41.            ("\\<\\(NOTE\\)" 1 'font-lock-note-face t)
  42.        ("\\<\\(IMPORTANT\\)" 1 'font-lock-important-face t)
  43.        ("\\<\\(STUDY\\)" 1 'font-lock-study-face t))))
  44.       fixme-modes)
  45. (modify-face 'font-lock-fixme-face "Red" nil nil t nil t nil nil)
  46. (modify-face 'font-lock-note-face "Dark Green" nil nil t nil t nil nil)
  47. (modify-face 'font-lock-important-face "Yellow" nil nil t nil t nil nil)
  48. (modify-face 'font-lock-study-face "Orange" nil nil t nil t nil nil)
  49.  
  50.  
Advertisement
Add Comment
Please, Sign In to add comment