Remove shr cookie config

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