make org-mode cozy

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 ;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;

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

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)))

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