From 9784fcfe75b1a0b9131293fa3842bc98a23fc667 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Thu, 30 Jun 2022 11:24:20 +0100
Subject: Add changes to afew and keybindings in emacs

---
 afew/config      |  7 ++++++-
 doom/config.org  | 35 ++++++++++++++++++++++++++++++++---
 doom/packages.el |  1 +
 3 files changed, 39 insertions(+), 4 deletions(-)

diff --git a/afew/config b/afew/config
index 2c7a9c8..9f08b39 100644
--- a/afew/config
+++ b/afew/config
@@ -55,11 +55,16 @@ query = tag:sircmpwn-public-inbox
 tags = -sircmpwn-public-inbox;+lists;+lists/~sircmpwn/public-inbox
 
 [Filter.6]
+message = New Yorker clean up
+query = from:"newyorker@newsletter.newyorker.com"
+tags = -new;-inbox;+newyorker
+
+[Filter.7]
 message = Clean up clutter.
 query = tag:postmaster or tag:amazon.co.uk or tag:shopping
 tags = -inbox;-new;-unread;+clutter
 
-[Filter.7]
+[Filter.8]
 message = Clean up mailing lists from inbox
 query = tag:lists
 tags = -inbox;-new
diff --git a/doom/config.org b/doom/config.org
index 972a747..a556c14 100644
--- a/doom/config.org
+++ b/doom/config.org
@@ -52,7 +52,8 @@
 (global-set-key (kbd "M-c")   #'capitalize-dwim)
 (global-set-key (kbd "C-c z") #'quick-calc)
 (global-set-key (kbd "<f5>")  #'revert-buffer)
-(global-set-key (kbd "M-,")   (lambda () (interactive) (other-window -1)))
+(global-set-key (kbd "C-.")   (lambda () (interactive) (other-window -1)))
+(global-set-key (kbd "C-,")   #'other-window)
 (global-set-key (kbd "C-c l") #'org-store-link)
 (global-set-key (kbd "C-c a") #'org-agenda)
 (global-set-key (kbd "C-c /") #'avy-goto-word-1)
@@ -121,6 +122,22 @@
              "~/Dropbox/zk/mathematics.org"
              "~/Dropbox/zk/hardware.org"))) (org-search-view))))
 
+(setq browse-url-handlers
+      '(("\\`mailto:"                     . browse-url--mailto)
+        ("\\`man:"                        . browse-url--man)
+        ("wikipedia\\.org"                . eww-browse-url)
+        ("yannherklotz\\.com"             . eww-browse-url)
+        ("ymhg\\.org"                     . eww-browse-url)
+        ("archlinux\\.org"                . eww-browse-url)
+        ("sachachua\\.com"                . eww-browse-url)
+        ("comonad\\.com"                  . eww-browse-url)
+        ("drewdevault\\.com"              . eww-browse-url)
+        ("wordpress\\.com"                . eww-browse-url)
+        ("mathbabe\\.org"                 . eww-browse-url)
+        ("ethz\\.ch"                      . eww-browse-url)
+        ("pragmaticemacs\\.com"           . eww-browse-url)
+        (browse-url--non-html-file-url-p  . browse-url-emacs)))
+
 (defun y/insert-date ()
   "Insert a timestamp according to locale's date and time format."
   (interactive)
@@ -289,10 +306,14 @@
   ;;                          (plain-list-item . nil)))
   (require 'oc)
   (require 'oc-biblatex)
+  (require 'oc-csl)
   (setq org-cite-export-processors '((latex biblatex)
-                                     (t basic))
+                                     (t csl))
+        org-cite-csl-styles-dir "~/projects/csl-styles"
         org-cite-global-bibliography '("~/Dropbox/bibliography/references.bib")))
 
+(use-package! citeproc)
+
 (use-package! org-attach
   :config
   (setq org-attach-auto-tag "attach"))
@@ -590,7 +611,7 @@
                                                        ("authoryear" "\\cite[authoryear][%(%K%,)]")
                                                        ("authoryears" "\\cite[authoryears][%(%K%,)]")
                                                        ("entry" "\\cite[entry][%(%K%,)]")
-                                                       ("authors" "\\cite[authors][%(%K%,)]"))))
+                                                       ("author" "\\cite[author][%(%K%,)]"))))
 
   (advice-add 'bibtex-generate-autokey :around
               (lambda (orig-func &rest args)
@@ -750,6 +771,14 @@
   (url-copy-file (sci-hub-pdf-url doi)
                  (concat "~/Dropbox/bibliography/papers/" key ".pdf")))
 
+(defun download-pdf-from-link (link key)
+  (url-copy-file link
+                 (concat "~/Dropbox/bibliography/papers/" key ".pdf")))
+
+(defun download-pdf-from-downloads (key)
+  (copy-file (concat "~/Downloads/" key ".pdf")
+             (concat "~/Dropbox/bibliography/papers/" key ".pdf") t))
+
 (defun get-bib-from-doi (doi)
   "Get the bibtex from DOI."
   (shell-command (concat "curl -L -H \"Accept: application/x-bibtex; charset=utf-8\" "
diff --git a/doom/packages.el b/doom/packages.el
index 50ad6b6..c109dab 100644
--- a/doom/packages.el
+++ b/doom/packages.el
@@ -11,6 +11,7 @@
 (package! scroll-other-window
   :recipe (:host nil :repo "https://git.sr.ht/~ymherklotz/scroll-other-window"))
 (package! cdlatex)
+(package! citeproc)
 (package! ox-context
   :recipe (:host github :repo "Jason-S-Ross/ox-context"))
 (package! org-transclusion
-- 
cgit