From b665a5a111601375f97e5b584c860b48fc4980f4 Mon Sep 17 00:00:00 2001
From: depsterr <depsterr@protonmail.com>
Date: Mon, 21 Nov 2022 18:33:55 +0100
Subject: [PATCH] make org-mode cozy

---
 binds.el    | 11 ++++++++++-
 init.el     |  8 +++++---
 packages.el | 19 +++++++++++++++++++
 style.el    |  7 +++++++
 4 files changed, 41 insertions(+), 4 deletions(-)
 create mode 100644 packages.el

diff --git a/binds.el b/binds.el
index e78aef6..e5a531b 100644
--- a/binds.el
+++ b/binds.el
@@ -22,7 +22,8 @@
                 (shell-command-to-string "agda-mode locate")))
 (require 'agda-input)
 (add-hook 'evil-insert-state-entry-hook (lambda ()
-					  (if (not (eq major-mode 'latex-mode))
+					  (if (not (or (eq major-mode 'latex-mode)
+						       (eq major-mode 'org-mode)))
 					      (set-input-method "Agda"))))
 (add-hook 'evil-insert-state-exit-hook  (lambda () (set-input-method nil)))
 
@@ -70,6 +71,14 @@
 (define-key vterm-mode-map (kbd "C-l") nil)
 (define-key vterm-mode-map (kbd "C-d") nil)
 
+(require 'org)
+(define-key org-mode-map (kbd "C-a") nil)
+(define-key org-mode-map (kbd "C-h") nil)
+(define-key org-mode-map (kbd "C-j") nil)
+(define-key org-mode-map (kbd "C-k") nil)
+(define-key org-mode-map (kbd "C-l") nil)
+(define-key org-mode-map (kbd "C-d") nil)
+
 ;;;;;;;;;;;;;;;;;;;;;;;
 ;;;; Mode specific ;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/init.el b/init.el
index b57859b..f7c2fe4 100644
--- a/init.el
+++ b/init.el
@@ -15,8 +15,7 @@
 (include "style.el")
 
 ;; Zotero
-(require 'zotero)
-(require 'zotero-browser)
+(include "packages.el")
 
 ;; Secrets
 (include "secrets.el")
@@ -31,10 +30,13 @@
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(evil-undo-system 'undo-tree)
+ '(org-agenda-files '("~/doc/org/todo.org"))
  '(package-selected-packages
-   '(treemacs-evil treemacs solarized-theme doom-modeline all-the-icons-dired page-break-lines all-the-icons dashboard org-evil zotero vterm magit undo-fu latex-math-preview multi-term evil-terminal-cursor-changer fira-code-mode use-package haskell-mode evil-surround undo-tree evil-org evil))
+   '(org-pretty-tags visual-fill writeroom-mode haskell-emacs org-bullets treemacs-evil treemacs solarized-theme doom-modeline all-the-icons-dired page-break-lines all-the-icons dashboard org-evil zotero vterm magit undo-fu latex-math-preview multi-term evil-terminal-cursor-changer fira-code-mode use-package haskell-mode evil-surround undo-tree evil-org evil))
  '(warning-suppress-log-types '((comp)))
  '(warning-suppress-types '((comp)))
+ '(writeroom-mode-line t)
+ '(writeroom-width 100)
  '(zotero-recognize-pdfdata
    "/home/deppy/.emacs.d/elpa/zotero-20211008.2207/pdftools/poppler-data/")
  '(zotero-recognize-pdfinfo
diff --git a/packages.el b/packages.el
new file mode 100644
index 0000000..f6ddf65
--- /dev/null
+++ b/packages.el
@@ -0,0 +1,19 @@
+;; Zotero
+(require 'zotero)
+(require 'zotero-browser)
+
+;; EWW
+(setq
+ browse-url-browser-function 'eww-browse-url ; Use eww as the default browser
+ shr-use-fonts  nil                          ; No special fonts
+ shr-use-colors t                            ; No colours
+ shr-indentation 2                           ; Left-side margin
+ shr-width 70                                ; Fold text to 70 columns
+ eww-search-prefix "https://lite.duckduckgo.com/lite/?q=")    ; Use another engine for searching
+
+;; Org mode
+(org-babel-do-load-languages 'org-babel-load-languages
+			     '((emacs-lisp . t)
+			       (python . t)
+			       (java . t)
+			       (haskell . t)))
diff --git a/style.el b/style.el
index b401bc4..2143e09 100644
--- a/style.el
+++ b/style.el
@@ -65,3 +65,10 @@
 
 ;; Dired
 (add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
+
+;; Org
+(require 'org-bullets)
+(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1) (visual-line-mode) (writeroom-mode)))
+(setq org-format-latex-options '(:scale 1.5))
+
+;; Writeroom