106 lines
3.4 KiB
EmacsLisp
106 lines
3.4 KiB
EmacsLisp
;;; init.el -*- lexical-binding: t; -*-
|
|
|
|
;;; Initial phase.
|
|
|
|
;; Load the custom file if it exists. Among other settings, this will
|
|
;; have the list `package-selected-packages', so we need to load that
|
|
;; before adding more packages. The value of the `custom-file'
|
|
;; variable must be set appropriately, by default the value is nil.
|
|
;; This can be done here, or in the early-init.el file.
|
|
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
|
|
(when (and custom-file (file-exists-p custom-file))
|
|
(load custom-file nil 'nomessage))
|
|
|
|
;; Add custom modules to the `load-path'
|
|
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
|
|
|
|
;; Adds crafted-emacs modules to the `load-path'
|
|
(setq crafted-emacs-home (expand-file-name "crafted-emacs" user-emacs-directory))
|
|
(add-to-list 'load-path (expand-file-name "modules" crafted-emacs-home))
|
|
|
|
;;; Configuration phase
|
|
(require 'crafted-completion-config)
|
|
(require 'crafted-defaults-config)
|
|
(require 'crafted-ide-config)
|
|
(require 'crafted-org-config)
|
|
(require 'crafted-speedbar-config)
|
|
(require 'crafted-startup-config)
|
|
(require 'crafted-ui-config)
|
|
(require 'crafted-workspaces-packages)
|
|
(require 'crafted-writing-packages)
|
|
|
|
(require 'custom-email-config)
|
|
(require 'custom-feed-config)
|
|
(require 'custom-ide-config)
|
|
(require 'custom-org-config)
|
|
(require 'custom-ligatures-config)
|
|
(require 'custom-project-config)
|
|
|
|
;;; Optional configuration
|
|
|
|
(setq user-full-name "Evie Litherland-Smith"
|
|
user-mail-address "evie@xenia.me.uk"
|
|
sendmail-program (executable-find "msmtp")
|
|
send-mail-function #'smtpmail-send-it
|
|
message-sendmail-f-is-evil t
|
|
message-sendmail-extra-arguments '("--read-envelope-from")
|
|
message-send-mail-function #'message-send-mail-with-sendmail
|
|
display-line-numbers 'relative
|
|
fill-column 80)
|
|
|
|
;; Theme settings
|
|
(setq use-dialog-box nil
|
|
crafted-startup-inhibit-splash t)
|
|
(tool-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
(load-theme 'doom-tokyo-night t)
|
|
(add-to-list 'default-frame-alist '(font . "FiraCode Nerd Font-12"))
|
|
(global-prettify-symbols-mode)
|
|
(set-frame-parameter nil 'alpha-background 80)
|
|
(add-to-list 'default-frame-alist '(alpha-background . 80))
|
|
|
|
;; Extra minor-modes
|
|
(which-key-mode)
|
|
|
|
;; Extra functions
|
|
|
|
(defun crafted-startup-example/display-startup-time ()
|
|
"Display the startup time after Emacs is fully initialized."
|
|
(message "Crafted Emacs loaded in %s."
|
|
(emacs-init-time)))
|
|
(add-hook 'emacs-startup-hook #'crafted-startup-example/display-startup-time)
|
|
|
|
(defun my/org-move-done-tasks-to-bottom ()
|
|
"Sort all tasks in the topmost heading by TODO state."
|
|
(interactive)
|
|
(save-excursion
|
|
(while (org-up-heading-safe))
|
|
(org-sort-entries nil ?o))
|
|
|
|
;; Reset the view of TODO items
|
|
(org-overview)
|
|
(org-show-entry)
|
|
(org-show-children))
|
|
|
|
;; Set default coding system (especially for Windows)
|
|
(set-default-coding-systems 'utf-8)
|
|
(set-terminal-coding-system 'utf-8)
|
|
(set-keyboard-coding-system 'utf-8)
|
|
|
|
;; Magit settings
|
|
(setq magit-clone-default-directory "~/Projects/")
|
|
|
|
;; ntfy server settings
|
|
(setq ntfy-server "https://ntfy.xenia.me.uk"
|
|
ntfy-topic "UhrNGphnSKCpCnk8"
|
|
ntfy-header "Notification from emacs"
|
|
ntfy-tags "purple_circle,loudspeaker")
|
|
|
|
;; Apheleia settings
|
|
(setq apheleia-remote-algorithm 'local)
|
|
|
|
;; TRAMP settings
|
|
(setq tramp-default-method "sshx"
|
|
tramp-default-remote-shell "/bin/sh"
|
|
tramp-remote-path '(tramp-own-remote-path tramp-default-remote-path))
|