now have a literate emacs config - albeit all in one block

1 files changed, 712 insertions, 0 deletions

diff --git a/myinit.org b/myinit.org
new file mode 100644
index 0000000..b73ff3e
--- /dev/null
+++ b/myinit.org
@@ -0,0 +1,712 @@
+* Main Org config
+#+begin_src emacs-lisp
+	    (use-package org
+	      :init
+	      ;; turn on visual line mode in org mode
+	      (add-hook 'org-mode-hook 'visual-line-mode)
+	      ;; turn off flycheck-mode
+	      (add-hook 'org-mode-hook (lambda () flycheck-mode -1))
+	      :config
+	      (global-set-key "\C-cl" 'org-store-link)
+	      (global-set-key "\C-ca" 'org-agenda)
+	      (global-set-key "\C-cb" 'org-iswitchb)
+	      (global-set-key "\C-cc" 'org-capture)
+
+	      (setq org-clock-persist 'history)
+	      (org-clock-persistence-insinuate)
+	      (setq org-sort-agenda-notime-is-late nil)
+	      (setq org-agenda-span 'day)
+	      (setq org-directory "~/org")
+	      (setq org-agenda-files (quote ("~/org/home.org"
+					     "~/org/projects.org"
+					     "~/org/work.org"
+					     "~/org/notes.org"
+					     "~/org/habits.org"
+					     "~/org/calendar/cal.org"
+					     "~/org/calendar/home-cal.org"
+					     "~/org/calendar/work-cal.org")))
+	      (setq org-default-notes-file (concat org-directory "/notes.org"))
+	      (setq org-agenda-window-setup 'current-window)
+	      (setq org-agenda-start-with-log-mode t)
+	      (setq org-M-RET-may-split-line '(default . nil))
+	      (setq org-enforce-todo-dependencies t)
+	      (setq org-log-done 'time)
+	      (setq org-log-done-with-time 'note)
+	      (setq diary-file "~/org/diary")
+	      (setq org-agenda-include-diary t)
+	      (setq org-agenda-diary-file "~/org/calendar/cal.org")
+	      (setq org-agenda-show-future-repeats t)
+	      (setq org-agenda-skip-deadline-if-done t)
+	      (setq org-agenda-skip-scheduled-if-done t)
+	      (setq org-reverse-note-order t)
+	      (setq org-habit-graph-column 45)
+	      (setq org-sort-agenda-notime-is-late nil)
+	      (setq org-columns-default-format "%50ITEM(Task) %10CLOCKSUM %25TIMESTAMP_IA")
+	      (setq org-archive-location "~/org/archive.org::* From %s")
+	      (setq org-refile-targets (quote ((nil :maxlevel . 9)
+					       (org-agenda-files :maxlevel . 9))))
+	      (setq org-agenda-custom-commands
+		    '(("w" . "Work")
+		      ("wt" "Agenda + Work TODO"
+		       (
+			(agenda "")
+			(tags-todo "+@work-TODO=\"WAITING\"-SCHEDULED>=\"<today>\""
+				   ((org-agenda-overriding-header "Work TODO UNSCHEDULED")))
+			(tags-todo "+@work+TODO=\"WAITING\""
+				   ((org-agenda-overriding-header "Work WAITING")))
+			))
+		      ("wn" "Agenda + Work NEXT"
+		       (
+			(agenda)
+			(tags-todo "+@work+TODO=\"NEXT\"-SCHEDULED>=\"<today>\""
+				   ((org-agenda-overriding-header "Work NEXT UNSCHEDULED")))
+			(tags-todo "+@work+TODO=\"WAITING\""
+				   ((org-agenda-overriding-header "Work WAITING")))
+			))
+		      ("wp" "Work Project NEXT"
+		       (
+			(agenda)
+			(tags-todo "+@work+TODO=\"NEXT\"+CATEGORY=\"Project\""
+				   ((org-agenda-overriding-header "Work Project NEXT actions")))
+			))
+		      ("h" . "Home")
+		      ("hh" "Agenda + Home TODO"
+		       (
+			(agenda "")
+			(tags-todo "@home-SCHEDULED>=\"<today>\"-TODO=\"WAITING\"-TODO=\"DOING\""
+				   ((org-agenda-overriding-header "Home TODO UNSCHEDULED")
+				    (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down))))
+			(tags-todo "+@home+TODO=\"WAITING\""
+				   ((org-agenda-overriding-header "Home WAITING")))
+			(tags-todo "+@home+TODO=\"DOING\"" ((org-agenda-overriding-header "Home in progress")))
+			))
+		      ("hn" "Agenda + Home NEXT"
+		       (
+			(agenda "")
+			(tags-todo "+@home+TODO=\"NEXT\"-SCHEDULED>=\"<today>\""
+				   ((org-agenda-overriding-header "Home NEXT UNSCHEDULED")
+				    (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down))))
+			(tags-todo "+@home+TODO=\"DOING\""
+				   ((org-agenda-overriding-header "Home in progress")))
+			))
+		      ("n" "Agenda + All NEXT"
+		       (
+			(agenda "")
+			(todo "NEXT")))
+		      ("t" "Agenda + All TODO"
+		       (
+			(agenda "")
+			(alltodo "")))
+		      ("W" "Agenda + All WAITING"
+		       (
+			(agenda "")
+			(todo "WAITING")))
+		      ("i" tags "idea")
+		      ))
+	      (define-key global-map "\C-cc" 'org-capture)
+	      (setq org-capture-templates
+		    (quote (("h" "Home Tasks & Notes")
+			    ("ht" "Home TODO" entry (file+headline "~/org/home.org" "Single Actions")
+			     "** TODO %?\nEntered on %U\n"
+			     :prepend t)
+			    ("hn" "Home NEXT" entry (file+headline "~/org/home.org" "Single Actions")
+			     "** NEXT %?\nEntered on %U\n"
+			     :prepend t)
+			    ("hN" "Home Note" entry (file+headline "~/org/home.org" "Notes")
+			     "** %?\nEntered on %U\n")
+			    ("hj" "Journal" entry (file+datetree "~/org/journal.org")
+			     "* %?\nEntered on %U\n")
+			    ("hi" "Home Idea" entry (file+headline "~/org/notes.org" "Notes")
+			     "** %? :idea:\nEntered on %U\n")
+			    ("w" "Work Tasks & Notes")
+			    ("wt" "Work TODO" entry (file+headline "~/org/work.org" "Single Actions")
+			     "** TODO %?\nEntered on %U\n"
+			     :prepend t)
+			    ("wn" "Work NEXT" entry (file+headline "~/org/work.org" "Single Actions")
+			     "** NEXT %?\nEntered on %U\n"
+			     :prepend t)
+			    ("wN" "Note" entry (file+headline "~/org/work.org" "Notes")
+			     "* %?\nEntered on %U\n")
+			    ("wc" "Note from Clipboard" entry (file+headline "~/org/work.org" "Notes")
+			     "* %?\n\t\n%c")
+			    ("wr" "Note from Region" entry (file+headline "~/org/work.org" "Notes")
+			     "* %?\n\t\n%i")
+			    ("wj" "Journal" entry (file+olp+datetree "~/org/work.org" "Journal")
+			     "** %?\nEntered on %U\n")
+			    ("wd" "Retrospective Single Action" entry (file+headline "~/org/work.org" "Single Actions")
+			     "* DONE %?\nCLOSED: %U")
+			    ("e" "Emacs Tip")
+			    ("et" "Emacs Tip" entry (file+headline "~/org/emacs-tips.org" "Emacs Tips")
+			     "* %?\n\t%a")
+			    ("er" "Emacs Tip from Region" entry (file+headline "~/org/emacs-tips.org" "Emacs Tips")
+			     "* %?\n\t%i")
+			    )))
+	      ;; Put state transition logs into a drawer called LOGBOOK
+	      (setq org-log-into-drawer t)
+
+	      (setq org-todo-keywords
+		    (quote ((sequence "TODO(t)" "NEXT(n)" "DOING" "|" "DONE(d!)")
+			    (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")
+			    )))
+
+	      (setq org-todo-keyword-faces
+		    (quote (("TODO" :foreground "red" :weight bold)
+			    ("NEXT" :foreground "cyan" :weight bold)
+			    ("DOING" :foreground "orchid" :weight bold)
+			    ("DONE" :foreground "forest green" :weight bold)
+			    ("WAITING" :foreground "orange" :weight bold)
+			    ("HOLD" :foreground "magenta" :weight bold)
+			    ("CANCELLED" :foreground "forest green" :weight bold))))
+
+	      ;; tag stuff automatically dependent on a change of state
+	      (setq org-todo-state-tags-triggers
+		    (quote (("CANCELLED" ("CANCELLED" . t))
+			    ("WAITING" ("WAITING" . t))
+			    ("HOLD" ("WAITING") ("HOLD" . t))
+			    (done ("WAITING") ("HOLD"))
+			    ("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
+			    ("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
+			    ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))))
+
+	      (setq org-priority-faces
+		    '((?A . (:foreground "#CC0000" :background "#FFE3E3"))
+		      (?B . (:foreground "#64992C" :background "#EBF4DD"))
+		      (?C . (:foreground "#64992C" :background "#FFFFFF"))))
+	      (setq org-ellipsis "...")
+	      )
+
+	(setq org-tag-alist '(
+			      ;; Depth
+			      ("@immersive" . ?i) ;; "Deep"
+			      ("@process" . ?p)   ;; "Shallow"
+			      ("@offdesk" . ?o)   ;; "Away from desk"
+			      ;; Type
+			      ("brainstorm" . ?b)
+			      ("idea" . ?d)
+			      ;; Context
+			      ("@work" . ?w)
+			      ("@home" . ?h)
+			      ("@errand" . ?e)
+			      ("@emacs" . ?E)
+			      ;; Time
+			      ("15min" . ?<)
+			      ("30min" . ?=)
+			      ("1h" . ?>)
+			      ;; Energy
+			      ("Challenge" . ?1)
+			      ("Average" . ?2)
+			      ("Easy" . ?3)
+			      ;; Misc
+			      ("Maybe" . ?m)
+			      ))
+
+    (setq org-use-speed-commands t
+	  org-speed-commands-user
+	  '(("N" org-narrow-to-subtree)
+	    ("$" org-archive-subtree)
+	    ("A" org-archive-subtree)
+	    ("W" widen)
+	    ("d" org-down-element)
+	    ("k" org-cut-subtree)
+	    ("m" org-mark-subtree)
+	    ("s" org-sort)
+	    ;; ("x" smex-major-mode-commands)
+	    ("X" org-todo-done)
+	    ("R" org-done-and-archive)
+	    ("y" org-todo-yesterday)))
+
+    ;; org agenda should be full screen
+    (defun open-agenda ()
+      "Open the org-agenda."
+      (interactive)
+      (let ((agenda "*Org Agenda*"))
+	(if (equal (get-buffer agenda) nil)
+	    (org-agenda-list)
+	  (unless (equal (buffer-name (current-buffer)) agenda)
+	    (switch-to-buffer agenda))
+	  (org-agenda-redo t)
+	  (beginning-of-buffer))))
+
+    (bind-key "<f5>" 'open-agenda)
+
+#+end_src
+
+* Rest of config
+  
+#+begin_src emacs-lisp
+;;; Code:
+(setq inhibit-startup-message 1)
+
+(scroll-bar-mode -1)
+(tool-bar-mode -1)
+(tooltip-mode -1)
+(set-fringe-mode 10)
+
+;; Put backups in /tmp where they belong
+(setq backup-directory-alist
+      `((".*" . ,temporary-file-directory)))
+(setq auto-save-file-name-transforms
+      `((".*" ,temporary-file-directory t)))
+
+;; recursively copy by default
+(setq dired-recursive-copies 'always)
+
+;; y or n instead of yes or no
+(fset 'yes-or-no-p 'y-or-n-p)
+
+;; auto revert files
+(global-auto-revert-mode t)
+
+;; Display the current time
+(display-time-mode t)
+
+(setq visible-bell t)
+
+;; (set-face-attribute 'default nil :font "Jetbrains Mono" :height 140)
+(set-face-attribute 'default nil :font "UbuntuMono Nerd Font Mono" :height 160)
+;;(load-theme 'tango-dark)
+(load-theme 'gruvbox-dark-hard t)
+
+;; calendar proper Monday start
+(setq calendar-week-start-day 1)
+(setq calendar-date-style (quote european))
+
+
+(use-package dired
+  :ensure nil
+  :bind
+  (("C-x C-j" . dired-jump)
+   ("C-x j" . dired-jump-other-window))
+  :custom
+  ;; Always delete and copy recursively
+  (dired-recursive-deletes 'always)
+  (dired-recursive-copies 'always)
+  ;; Auto refresh Dired, but be quiet about it
+  (global-auto-revert-non-file-buffers t)
+  (auto-revert-verbose nil)
+  ;; Quickly copy/move file in Dired
+  (dired-dwim-target t)
+  ;; Move files to trash when deleting
+  (delete-by-moving-to-trash t)
+  :config
+  ;; Reuse same dired buffer, to prevent numerous buffers while navigating in dired
+  (put 'dired-find-alternate-file 'disabled nil)
+  :hook
+  (dired-mode . (lambda ()
+                  (local-set-key (kbd "<mouse-2>") #'dired-find-alternate-file)
+                  (local-set-key (kbd "RET") #'dired-find-alternate-file)
+                  (local-set-key (kbd "^")
+                                 (lambda () (interactive) (find-alternate-file ".."))))))
+
+;; dired config
+;; human readable
+(setq-default dired-listing-switches "-alh")
+
+;; auto package update
+(use-package auto-package-update
+  :if (not (daemonp))
+  :custom
+  (auto-package-update-interval 7) ;; in days
+  (auto-package-update-prompt-before-update t)
+  (auto-package-update-delete-old-versions t)
+  (auto-package-update-hide-results t)
+  :config
+  (auto-package-update-maybe))
+
+;; remove certain minor modes from the mode line
+(use-package diminish)
+
+;; some core bindings
+;; Use iBuffer instead of Buffer List
+;;(global-set-key (kbd "C-x C-b") #'ibuffer)
+;; Truncate lines
+(global-set-key (kbd "C-x C-l") #'toggle-truncate-lines)
+;; Adjust font size like web browsers
+(global-set-key (kbd "C-+") #'text-scale-increase)
+(global-set-key (kbd "C--") #'text-scale-decrease)
+;; Move up/down paragraph
+(global-set-key (kbd "M-n") #'forward-paragraph)
+(global-set-key (kbd "M-p") #'backward-paragraph)
+
+;; kill other buffers
+(defun kill-other-buffers ()
+   "Kill all other buffers."
+   (interactive)
+   (mapc 'kill-buffer (delq (current-buffer) (buffer-list))))
+
+;; Windmove - use Shift and arrow keys to move in windows
+(when (fboundp 'windmove-default-keybindings)
+  (windmove-default-keybindings))
+
+;; Winner mode - undo and redo changes in window config
+;; with C-c left and C-c right
+(use-package winner
+  :ensure nil
+  :custom
+  (winner-boring-buffers
+   '("*Completions*"
+     "*Compile-Log*"
+     "*inferior-lisp*"
+     "*Fuzzy Completions*"
+     "*Apropos*"
+     "*Help*"
+     "*cvs*"
+     "*Buffer List*"
+     "*Ibuffer*"
+     "*esh command on file*"))
+  :config
+  (winner-mode 1))
+
+;; Handling tabs (for programming)
+(setq-default tab-width 2)
+(setq-default tab-width 2 indent-tabs-mode nil)
+(setq-default indent-tabs-mode nil)
+(setq js-indent-level 2)
+(setq coffee-tab-width 2)
+(setq python-indent 2)
+(setq css-indent-offset 2)
+(add-hook 'sh-mode-hook
+	  (lambda ()
+	    (setq sh-basic-offset 2
+		  sh-indentation 2)))
+(setq web-mode-markup-indent-offset 2)
+
+;; flycheck syntax highlighting
+(use-package flycheck
+  :ensure t
+  :init (global-flycheck-mode))
+
+;; Highlight matching parens
+(show-paren-mode t)
+
+;; Stop C-z suspending emacs
+(global-set-key (kbd "C-z") 'nil)
+
+(use-package ivy
+  :diminish
+  :init
+  (use-package amx :defer t)
+  (use-package counsel :diminish :config (counsel-mode 1))
+  (use-package swiper :defer t)
+  (ivy-mode 1)
+  :bind
+  (("C-s" . swiper-isearch)
+   ("C-x C-f" . counsel-find-file)
+   ("C-x C-m" . counsel-M-x)
+   ("C-h f" . counsel-describe-function)
+   ("C-h v" . counsel-describe-variable)
+   ("C-z s" . counsel-rg)
+   ("C-x C-r" . counsel-recentf)
+   ("C-z b" . counsel-buffer-or-recentf)
+   ("C-z C-b" . counsel-ibuffer)
+   (:map ivy-minibuffer-map
+         ("C-r" . ivy-previous-line-or-history)
+         ("M-RET" . ivy-immediate-done))
+   (:map counsel-find-file-map
+         ("C-~" . counsel-goto-local-home)))
+  :custom
+  (ivy-use-virtual-buffers t)
+  (ivy-height 10)
+  (ivy-on-del-error-function nil)
+  (ivy-magic-slash-non-match-action 'ivy-magic-slash-non-match-create)
+  (ivy-count-format "【%d/%d】")
+  (ivy-wrap t)
+  :config
+  (setq projectile-completion-system 'ivy)
+  (defun counsel-goto-local-home ()
+      "Go to the $HOME of the local machine."
+      (interactive)
+      (ivy--cd "~/")))
+
+;; Ace Window
+(use-package ace-window
+  :bind (("C-x o" . ace-window)
+         ("M-2" . ace-window))
+  :init
+  (setq aw-background t
+        aw-keys '(?a ?o ?e ?u ?i ?d ?h ?t ?n ?s)))
+
+;; expand-region
+(use-package expand-region
+  :bind (("C-@" . er/expand-region)
+         ("C-=" . er/expand-region)
+         ("M-3" . er/expand-region)))
+
+;; browse-kill-ring
+(use-package browse-kill-ring
+  :bind ("C-x C-y" . browse-kill-ring)
+  :config
+  (setq browse-kill-ring-quit-action 'kill-and-delete-window))
+
+(setq save-interprogram-paste-before-kill t)
+
+
+;; recentf
+(use-package recentf
+  :hook (after-init . recentf-mode)
+  :custom
+  (recentf-auto-cleanup "05:00am")
+  (recentf-exclude '((expand-file-name package-user-dir)
+                   ".cache"
+                   ".cask"
+                   ".elfeed"
+                   "bookmarks"
+                   "cache"
+                   "ido.*"
+                   "persp-confs"
+                   "recentf"
+                   "undo-tree-hist"
+                   "url"
+                   "COMMIT_EDITMSG\\'"))
+    (setq recentf-auto-cleanup 'never
+        recentf-max-saved-items 50
+        recentf-save-file (concat user-emacs-directory ".recentf"))
+    (setq recentf-max-menu-items 25)
+    (setq recentf-max-saved-items 25)
+    (recentf-mode t))
+
+;; encoding
+(prefer-coding-system 'utf-8)
+(setq coding-system-for-read 'utf-8)
+(setq coding-system-for-write 'utf-8)
+
+;; beacon mode
+(use-package beacon
+  :config
+  (setq beacon-color "OrangeRed")
+  (beacon-mode 1))
+
+;; (use-package ivy
+;;   :bind (("C-s" . swiper)
+;; 	 :map ivy-minibuffer-map
+;; 	 ("TAB" . ivy-alt-done)
+;; 	 ("C-l" . ivy-alt-done)
+;; 	 ("C-j" . ivy-next-line)
+;; 	 ("C-k" . ivy-previous-line)
+;; 	 :map ivy-switch-buffer-map
+;; 	 ("C-k" . ivy-previous-line)
+;; 	 ("C-l" . ivy-done)
+;; 	 ("C-d" . ivy-switch-buffer-kill)
+;; 	 :map ivy-reverse-i-search-map
+;; 	 ("C-k" . ivy-previous-line)
+;; 	 ("C-d" . ivy-reverse-i-search-kill))
+;;   :config
+;;   (ivy-mode 1))
+
+
+;; Yasnippet
+(use-package yasnippet
+  :diminish yas-minor-mode
+  :hook ((prog-mode LaTeX-mode org-mode) . yas-minor-mode)
+  :bind
+  (:map yas-minor-mode-map ("C-c C-n" . yas-expand-from-trigger-key))
+  (:map yas-keymap
+        (("TAB" . smarter-yas-expand-next-field)
+         ([(tab)] . smarter-yas-expand-next-field)))
+  :config
+  (use-package yasnippet-snippets)
+  (yas-reload-all)
+  (defun smarter-yas-expand-next-field ()
+    "Try to `yas-expand' then `yas-next-field' at current cursor position."
+    (interactive)
+    (let ((old-point (point))
+          (old-tick (buffer-chars-modified-tick)))
+      (yas-expand)
+      (when (and (eq old-point (point))
+                 (eq old-tick (buffer-chars-modified-tick)))
+        (ignore-errors (yas-next-field))))))
+
+;; this config works better with yasnippet
+(use-package company
+  :diminish company-mode
+  :hook ((prog-mode LaTeX-mode latex-mode ess-r-mode ledger-mode) . company-mode)
+  :bind
+  (:map company-active-map
+        ([tab] . smarter-yas-expand-next-field-complete)
+        ("TAB" . smarter-yas-expand-next-field-complete))
+  :custom
+    (company-tooltip-align-annotations t)
+  (company-begin-commands '(self-insert-command))
+  (company-require-match 'never)
+  ;; Don't use company in the following modes
+  (company-global-modes '(not shell-mode eaf-mode))
+  ;; Trigger completion immediately.
+  (company-idle-delay 0.1)
+  ;; Number the candidates (use M-1, M-2 etc to select completions).
+  (company-show-numbers t)
+  :config
+  ;; clangd variable not present which was a problem
+;;  (unless *clangd* (delete 'company-clang company-backends))
+;;  (global-company-mode 1)
+  (setq company-idle-delay 0)
+  (setq company-minimum-prefix-length 3)
+  (defun smarter-yas-expand-next-field-complete ()
+    "Try to `yas-expand' and `yas-next-field' at current cursor position.
+
+If failed try to complete the common part with `company-complete-common'"
+    (interactive)
+    (if yas-minor-mode
+        (let ((old-point (point))
+              (old-tick (buffer-chars-modified-tick)))
+          (yas-expand)
+          (when (and (eq old-point (point))
+                     (eq old-tick (buffer-chars-modified-tick)))
+            (ignore-errors (yas-next-field))
+            (when (and (eq old-point (point))
+                       (eq old-tick (buffer-chars-modified-tick)))
+              (company-complete-common))))
+      (company-complete-common))))
+
+
+;; Ace Jump
+(use-package ace-jump-mode
+  :bind ("C-M-SPC" . ace-jump-mode))
+
+;; Lisp programming
+(use-package paredit
+  :init
+  (add-hook 'clojure-mode-hook #'enable-paredit-mode)
+  (add-hook 'cider-repl-mode-hook #'enable-paredit-mode)
+  (add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode)
+  (add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
+  (add-hook 'ielm-mode-hook #'enable-paredit-mode)
+  (add-hook 'lisp-mode-hook #'enable-paredit-mode)
+  (add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
+  (add-hook 'scheme-mode-hook #'enable-paredit-mode)
+  :config
+  (show-paren-mode t)
+  :bind (("M-[" . paredit-wrap-square)
+         ("M-{" . paredit-wrap-curly))
+  :diminish nil)
+
+(use-package rainbow-delimiters
+  :config
+  (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
+
+;; EVIL
+;; (use-package evil
+;;   :init
+;;   :config
+;;   (setq evil-respect-visual-line-mode t)
+;;   (evil-mode 1))
+
+;; ;; which-key - for nice menu
+;; (use-package which-key
+;;   :config
+;;   (which-key-mode)
+;;   )
+
+;; which-key
+(use-package which-key
+  :config
+  (which-key-mode))
+
+
+
+;; elfeed
+(use-package elfeed
+  :config
+  (setq elfeed-feeds
+        '(("http://feeds.bbci.co.uk/news/rss.xml?edition=uk" news)
+          ("http://feeds.bbci.co.uk/news/technology/rss.xml" tech news)
+          ("https://planet.emacslife.com/atom.xml" emacs)
+          ("https://irreal.org/blog/?feed=rss2" emacs)
+          ("https://karl-voit.at/feeds/lazyblorg-all.atom_1.0.links-only.xml" emacs)
+          ("https://dominiccummings.com/rss.xml" blog tech)
+          ("https://usesthis.com/feed.atom" tech blog)
+          ("https://plaintextproject.online/feed.xml" plaintext productivity)
+          ("https://feeds.feedburner.com/StudyHacks" productivity)
+          ("http://newsrss.bbc.co.uk/rss/sportonline_uk_edition/rugby_union/rss.xml" rugby)
+          ("http://feeds.bbci.co.uk/news/video_and_audio/politics/rss.xml" news)
+          ("https://feeds.feedburner.com/arstechnica/open-source" opensource)
+          ("https://www.computerweekly.com/rss/IT-security.xml" cyber)
+          ("http://tonsky.me/blog/atom.xml" blog)
+          ("https://akkshaya.blog/feed" blob)
+          ("https://miguelmota.com/index.xml" blog)
+          ("https://www.computerweekly.com/rss/IT-security.xml" security)
+          ("https://www.fsf.org/static/fsforg/rss/news.xml" opensource)
+          ("https://www.reddit.com/r/emacs.rss" emacs)
+          ("https://www.reddit.com/r/rugbyunion/.rss" rugby)
+          ("http://pragmaticemacs.com/feed/" emacs)
+          ("https://200ok.ch/atom.xml" emacs)
+          ("http://www.linuxinsider.com/perl/syndication/rssfull.pl" linux)
+          ("http://planet.debian.org/rss20.xml" debian linux)
+          ("http://feeds2.feedburner.com/Command-line-fu" linux)
+          ("https://opensource.org/news.xml" opensource)
+          ("https://www.wired.com/feed/rss" news tech)
+          ("https://sivers.org/en.atom" blog))))
+
+;; get scoring in elfeed
+(use-package elfeed-score
+  :ensure t
+  :config
+  (progn
+    (elfeed-score-enable)
+    (define-key elfeed-search-mode-map "=" elfeed-score-map)))
+
+;; Basic magit
+(use-package magit
+  :bind ("C-x g" . magit-status))
+
+;; ido
+
+(ido-mode 1)
+;; Interactively Do Things (ido)
+(use-package ido
+  :config
+  (ido-mode t)
+  (ido-everywhere t)
+  (setq ido-enable-flex-matching t)
+  (setq ido-everywhere t)
+  (setq ido-file-extensions-order '(".org" ".txt" ".py" ".emacs" ".md" ".xml" ".el" ".ini"))
+  (setq ido-enable-flex-matching t))
+
+
+;; ;; helm
+;; (require 'helm-config)
+;; (global-set-key (kbd "M-x") #'helm-M-x)
+;; (global-set-key (kbd "C-x r b") #'helm-filtered-bookmarks)
+;; (global-set-key (kbd "C-x C-f") #'helm-find-files)
+;; ;; The default "C-x c" is quite close to "C-x C-c", which quits Emacs.
+;; ;; Changed to "C-c h". Note: We must set "C-c h" globally, because we
+;; ;; cannot change `helm-command-prefix-key' once `helm-config' is loaded.
+;; (global-set-key (kbd "C-c h") 'helm-command-prefix)
+;; (global-unset-key (kbd "C-x c"))
+;; (helm-mode 1)
+
+;; ledger mode
+(use-package ledger-mode
+  :mode ("\\.ledger\\'")
+  :config
+;;  (setq ledger-default-date-format "%d/%m/%Y")
+  (setq ledger-reports
+        '(("hsbc_current_account" "ledger [[ledger-mode-flags]] --date-format \"%d/%m/%Y\" -f /home/lemon/Documents/Budget/ledger/2021/budget2021.ledger reg Assets\\:HSBC\\:Current")
+          ("bal" "%(binary) -f %(ledger-file) bal")
+          ("reg" "%(binary) -f %(ledger-file) reg")
+          ("payee" "%(binary) -f %(ledger-file) reg @%(payee)")
+          ("account" "%(binary) -f %(ledger-file) reg %(account)")))
+  (add-hook 'ledger-mode-hook
+            (lambda ()
+              (setq-local tab-always-indent 'complete)
+              (setq-local completion-cycle-threshold t)
+              (setq-local ledger-complete-in-steps t)))
+  :custom (ledger-clear-whole-transactions t))
+
+
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(company-show-quick-access t nil nil "Customized with use-package company")
+ '(custom-safe-themes
+   '("6b5c518d1c250a8ce17463b7e435e9e20faa84f3f7defba8b579d4f5925f60c1" default))
+ '(package-selected-packages
+   '(elfeed-score yasnippet-snippets yasnippet browse-kill-ring expand-region ace-window amx flycheck ace-jump-mode gruvbox-theme company helm auto-package-update ledger-mode magit elfeed-org which-key use-package rainbow-delimiters paredit evil counsel)))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ )
+#+end_src