new org look

config.org

@@ -27,6 +27,7 @@
 
     (eval-when-compile (require 'use-package))
     (setq use-package-always-ensure t)
+(pdf-tools-install)
 
 
 #+end_src
@@ -41,9 +42,9 @@
                                 ("\\.m$" . mercury-mode))
                                auto-mode-alist))
 #+end_src
-
 ** Dired
 #+begin_src emacs-lisp
+      (use-package dired-preview)
       (use-package dired-git
             :hook
             (dired-mode . dired-git-mode))
@@ -52,7 +53,9 @@
 ** Theme
 #+BEGIN_SRC emacs-lisp
   (use-package zenburn-theme)
-  (load-theme 'zenburn t)
+  (use-package doom-themes)
+
+  (load-theme 'doom-one t)
 
   (use-package vertico
     :custom
@@ -177,6 +180,14 @@
 
 ** LSP
 #+begin_src emacs-lisp
+  ;; Java
+  (use-package exec-path-from-shell)
+  (use-package lsp-java)
+  (require 'lsp-java)
+  (add-hook 'java-mode-hook #'lsp)
+  (use-package hydra)
+  (setq lsp-java-jdt-download-url  "https://download.eclipse.org/jdtls/milestones/0.57.0/jdt-language-server-0.57.0-202006172108.tar.gz")
+
     (use-package lsp-mode
       :init
       ;;set prefix
@@ -190,10 +201,12 @@
       :hook
       ((prog-mode . lsp)
        (c-mode . lsp)
+       (emacs-lisp-mode . lsp)
+       (java-mode . lsp)
        (latex-mode . lsp)
        (python-mode . lsp)
        (lsp-mode . lsp-enable-which-key-integration)
-	 ;;(before-save . lsp-format-buffer)
+       (before-save . lsp-format-buffer)
        )
       :commands lsp
       :bind
@@ -214,6 +227,13 @@
 #+begin_src emacs-lisp
   (keymap-global-set "M-a" 'switch-to-buffer)
 #+end_src
+
+** Dired
+#+begin_src emacs-lisp
+  (add-hook 'dired-mode-hook (lambda () (local-key-binding "-" 'dired-jump)))
+#+end_src
+
+
 ** C
 *** Dereference arrow
 
@@ -271,17 +291,107 @@
 #+end_src
 
 * Org
-
-** Org bullets
 #+begin_src emacs-lisp
+  (defun my/buffer-face-mode-variable ()
+      "Set font to a variable width (proportional) fonts in current buffer"
+      (interactive)
+      (setq buffer-face-mode-face '(:family "Roboto Slab"
+                                    :height 150
+                                    :width normal))
+      (buffer-face-mode))
   (use-package org-bullets
       :config
       (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
-#+end_src
 
-** Emphasis markers
-#+begin_src emacs-lisp
   (setq org-hide-emphasis-markers t)
+  (defun my/set-general-faces-org ()
+    (my/buffer-face-mode-variable)
+    (setq line-spacing 0.1
+          org-pretty-entities t
+          org-startup-indented t
+          org-adapt-indentation nil)
+    (variable-pitch-mode +1)
+    (mapc
+     (lambda (face) ;; Other fonts that require it are set to fixed-pitch.
+       (set-face-attribute face nil :inherit 'fixed-pitch))
+     (list 'org-block
+           'org-table
+           'org-verbatim
+           'org-block-begin-line
+           'org-block-end-line
+           'org-meta-line
+           'org-date
+           'org-drawer
+           'org-property-value
+           'org-special-keyword
+           'org-document-info-keyword))
+    (mapc ;; This sets the fonts to a smaller size
+     (lambda (face)
+       (set-face-attribute face nil :height 0.8))
+     (list 'org-document-info-keyword
+           'org-block-begin-line
+           'org-block-end-line
+           'org-meta-line
+           'org-drawer
+           'org-property-value
+           )))
+
+  (defun my/set-specific-faces-org ()
+    (set-face-attribute 'org-code nil
+                        :inherit '(shadow fixed-pitch))
+    ;; Without indentation the headlines need to be different to be visible
+    (set-face-attribute 'org-level-1 nil
+                        :height 1.25
+                        :foreground "#BEA4DB")
+    (set-face-attribute 'org-level-2 nil
+                        :height 1.15
+                        :foreground "#A382FF"
+                        :slant 'italic)
+    (set-face-attribute 'org-level-3 nil
+                        :height 1.1
+                        :foreground "#5E65CC"
+                        :slant 'italic)
+    (set-face-attribute 'org-level-4 nil
+                        :height 1.05
+                        :foreground "#ABABFF")
+    (set-face-attribute 'org-level-5 nil
+                        :foreground "#2843FB")
+    (set-face-attribute 'org-date nil
+                        :foreground "#ECBE7B"
+                        :height 0.8)
+    (set-face-attribute 'org-document-title nil
+                        :foreground "DarkOrange3"
+                        :height 1.3)
+    (set-face-attribute 'org-ellipsis nil
+                        :foreground "#4f747a" :underline nil)
+    (set-face-attribute 'variable-pitch nil
+                        :family "Roboto Slab" :height 1.2))
+
+
+
+  (defun my/set-keyword-faces-org ()
+    (mapc (lambda (pair) (push pair prettify-symbols-alist))
+          '(;; Syntax
+            ("TODO" .     "")
+            ("DONE" .     "")
+            ("WAITING" .  "")
+            ("HOLD" .     "")
+            ("NEXT" .     "")
+            ("CANCELLED" . "")
+            ("#+begin_quote" . "“")
+            ("#+end_quote" . "”")))
+    (prettify-symbols-mode +1)
+    (org-superstar-mode +1)
+    )
+
+  (defun my/style-org ()
+    (my/set-general-faces-org)
+    (my/set-specific-faces-org)
+    (my/set-keyword-faces-org)
+    )
+  (add-hook 'org-mode-hook 'my/style-org)
+
+  (setq org-return-follows-link t)
 #+end_src
 
 * Hooks
@@ -309,10 +419,11 @@
   (add-hook 'before-make-frame-hook (lambda () (scroll-bar-mode -1)))
 #+END_SRC
 
-
 * Terminal
 #+begin_src emacs-lisp
-  (use-package vterm)
+  (use-package vterm
+    :bind
+    ("C-x t" . vterm))
 #+end_src
 
 * Projectile
@@ -322,14 +433,30 @@
   :init
   (projectile-mode +1)
   :bind (:map projectile-mode-map
-              ("s-p" . projectile-command-map)
+              ("M-z" . projectile-command-map)
               ("C-c p" . projectile-command-map)))
 #+end_src
 * Misceleaneous
 
+** Music
+#+begin_src emacs-lisp
+  (use-package emms)
+(emms-all)
+(setq emms-player-list '(emms-player-vlc)
+      emms-info-functions '(emms-info-native))
+#+end_src
+
+** Indentation
+#+begin_src emacs-lisp
+  (use-package rainbow-delimiters)
+  (use-package highlight-indent-guides)
+  (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
+  (set-variable highlight-indent-guides-method 'column)
+#+end_src
+
 ** Global font
 #+begin_src emacs-lisp
-  (set-face-attribute 'default nil :family "Cascadia Mono" :height 200)
+  (set-face-attribute 'default nil :family "Cascadia Mono" :height 140)
 #+end_src
 ** Icons
 #+begin_src emacs-lisp
@@ -346,5 +473,7 @@
 ** Line numberring
 #+begin_src emacs-lisp
   (add-hook 'prog-mode-hook 'display-line-numbers-mode)
+  (add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
+  (setq-default indent-tabs-mode nil)
     (setq-default tab-width 4)
 #+end_src