diff options
| -rw-r--r-- | emacs/init.el | 97 |
1 files changed, 48 insertions, 49 deletions
diff --git a/emacs/init.el b/emacs/init.el index b5c879e..3dd3c3c 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -85,7 +85,7 @@ (mouse-yank-at-point t) ;; Allow for slightly sloppier clicking. (mouse-prefer-closest-glyph t) ;; Emacs 30 -) + ) ;; Shift click to select region with the mouse (https://christiantietze.de/posts/2022/07/shift-click-in-emacs-to-select/) (global-set-key (kbd "S-<down-mouse-1>") #'mouse-set-mark) @@ -100,17 +100,17 @@ :custom (savehist-file "~/.config/emacs/savehist") (savehist-additional-variables - '(kill-ring - command-history - set-variable-value-history - custom-variable-history - query-replace-history - read-expression-history - minibuffer-history - read-char-history - face-name-history - bookmark-history - file-name-history)) + '(kill-ring + command-history + set-variable-value-history + custom-variable-history + query-replace-history + read-expression-history + minibuffer-history + read-char-history + face-name-history + bookmark-history + file-name-history)) :hook (after-init . savehist-mode)) (use-package mb-depth @@ -208,12 +208,11 @@ :defer t :custom (browse-url-browser-function 'noa/record-url) - (browse-url-secondary-browser-function 'browse-url-default-browser)) + (browse-url-secondary-browser-function 'browse-url-default-browser)) (use-package shr :defer t :custom - (shr-cookie-policy nil) (shr-use-colors nil) ;; I like the colours i already have set (shr-max-width nil) ;; Don't insert hard linebreaks to wrap paragraphs (shr-bullet " • ") @@ -471,11 +470,11 @@ The misspelled word is taken from OVERLAY. WORD is the corrected word." ;; Repurpose underline syntax for cloze deletion face (defface my-cloze '((t . (:box t))) "Cloze face for Inline-Anki") (setq org-emphasis-alist '(("*" bold) - ("/" italic) - ("_" my-cloze) ;; new - ("=" org-verbatim verbatim) - ("~" org-code verbatim) - ("+" (:strike-through t)))) + ("/" italic) + ("_" my-cloze) ;; new + ("=" org-verbatim verbatim) + ("~" org-code verbatim) + ("+" (:strike-through t)))) :custom (org-agenda-files '("~/Documents/Notes.org" "~/Documents/Notes/")) @@ -519,9 +518,9 @@ The misspelled word is taken from OVERLAY. WORD is the corrected word." :bind ("C-c c" . org-capture) :custom (org-capture-templates - '(("d" "Today's diary" entry - (file+headline "~/Documents/Notes.org" "Diary") - "** %u\n%?")))) + '(("d" "Today's diary" entry + (file+headline "~/Documents/Notes.org" "Diary") + "** %u\n%?")))) ;; See https://llazarek.github.io/blog/2018/07/organization-with-org-mode.html ;; for configuring the org agenda @@ -537,12 +536,12 @@ The misspelled word is taken from OVERLAY. WORD is the corrected word." :load-path "~/Documents/Projects/2024-10-08 Ctrlj" :init (global-unset-key (kbd "C-j")) :bind* (("<f2>" . ctrlj/open-note) - ("C-j C-j" . ctrlj/open-note) -;; ("C-j C-n" . ctrlj/new-note) - ("C-j C-l" . ctrlj/insert-link-to-note) - ("C-j C-d" . ctrlj/open-todays-diary) - ("C-j C-a" . ctrlj/view-agenda) - ("C-j C-o" . ctrlj/jump-to-other-related-note))) + ("C-j C-j" . ctrlj/open-note) + ;; ("C-j C-n" . ctrlj/new-note) + ("C-j C-l" . ctrlj/insert-link-to-note) + ("C-j C-d" . ctrlj/open-todays-diary) + ("C-j C-a" . ctrlj/view-agenda) + ("C-j C-o" . ctrlj/jump-to-other-related-note))) ;; Experimental website generator (use-package ox-hugo @@ -632,7 +631,7 @@ The misspelled word is taken from OVERLAY. WORD is the corrected word." ;; I won't explain the meaning of the long flag. (dired-listing-switches "-alvFh --group-directories-first") -;; By default, don't show dired details + ;; By default, don't show dired details :hook ((dired-mode . dired-hide-details-mode) (dired-mode . hl-line-mode)) ) @@ -725,23 +724,23 @@ The misspelled word is taken from OVERLAY. WORD is the corrected word." (use-package emms :disabled t - :config - (require 'emms-setup) - (require 'emms-info-metaflac) - (require 'emms-info-mp3info) - (require 'emms-info-ogginfo) - (emms-all) - (emms-default-players) - (setq emms-source-file-default-directory "~/Music/") - (setq emms-browser-covers 'emms-browser-cache-thumbnail-async) - (setq emms-playlist-default-major-mode 'emms-playlist-mode) - (setq emms-track-description-function 'emacs-init/emms-track-description) - (add-to-list 'emms-info-functions 'emms-info-libtag) - (add-to-list 'emms-info-functions 'emms-info-mp3info) - (add-to-list 'emms-info-functions 'emms-info-ogginfo) - (global-set-key (kbd "C-c e p") 'emms-playlist-mode-go) - (global-set-key (kbd "C-c e r") 'emms-toggle-repeat-playlist) - (global-set-key (kbd "C-c e s") 'emms-toggle-random-playlist)) + :config + (require 'emms-setup) + (require 'emms-info-metaflac) + (require 'emms-info-mp3info) + (require 'emms-info-ogginfo) + (emms-all) + (emms-default-players) + (setq emms-source-file-default-directory "~/Music/") + (setq emms-browser-covers 'emms-browser-cache-thumbnail-async) + (setq emms-playlist-default-major-mode 'emms-playlist-mode) + (setq emms-track-description-function 'emacs-init/emms-track-description) + (add-to-list 'emms-info-functions 'emms-info-libtag) + (add-to-list 'emms-info-functions 'emms-info-mp3info) + (add-to-list 'emms-info-functions 'emms-info-ogginfo) + (global-set-key (kbd "C-c e p") 'emms-playlist-mode-go) + (global-set-key (kbd "C-c e r") 'emms-toggle-repeat-playlist) + (global-set-key (kbd "C-c e s") 'emms-toggle-random-playlist)) ;;; Useful functions (defun noa/yank-buffer-file-name () @@ -809,9 +808,9 @@ With prefix argument TIME, also add the current time." :config ;; Ensure the calendar always displays at the bottom of the screen, rather than wrapping weirdly and looking bad when it shows up in a side window. (add-to-list 'display-buffer-alist - '("\\*Calendar\\*" - (display-buffer-in-side-window) - (side . bottom)))) + '("\\*Calendar\\*" + (display-buffer-in-side-window) + (side . bottom)))) ;; Squeeze text into a more legible sliver. (use-package visual-fill-column |