#+title: Emacs config
#+author O. George
#+BABEL: :cache no
#+PROPERTY: header-args:emacs-lisp :tangle init.el

░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
░░█░█░█▀█░█▀▄░█░█░▀█▀░█░█░▀░█▀▀░░░░
░░█▀█░█░█░█▀▄░█▀█░░█░░█▀▄░░░▀▀█░░░░
░░▀░▀░▀▀▀░▀░▀░▀░▀░▀▀▀░▀░▀░░░▀▀▀░░░░
░░█▀▄░█▀█░▀█▀░█▀▀░▀█▀░█░░░█▀▀░█▀▀░░
░░█░█░█░█░░█░░█▀▀░░█░░█░░░█▀▀░▀▀█░░
░░▀▀░░▀▀▀░░▀░░▀░░░▀▀▀░▀▀▀░▀▀▀░▀▀▀░░
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░

* Help info
  ~C-z~ to toggle vim/emacs mode

* UI
** Cleaning up UI
#+begin_src emacs-lisp
  (require 'package)
  (setq inhibit-startup-message t)
  (menu-bar-mode -1)
  (toggle-scroll-bar -1)
  (tool-bar-mode -1)
  (tooltip-mode -1)
  (set-fringe-mode 10)
  (visual-line-mode t)
#+end_src
** Initializing packages
#+begin_src emacs-lisp
  (add-to-list 'package-archives
	   '("melpa" . "http://melpa.org/packages/"))

  (package-initialize)

  (unless package-archive-contents
    (package-refresh-contents))


  (defvar package-list
    '( lsp-mode rustic evil-mc rainbow-delimiters doom-themes doom-modeline lusty-explorer ac-racer auto-complete all-the-icons linum-relative  racer cargo flycheck-rust rust-mode gruvbox-theme evil general use-package treemacs treemacs-all-the-icons treemacs-evil org-roam org-roam-server interaction-log))

  (dolist (p package-list)
    (when (not (package-installed-p p))
	   (package-install p)))
  (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.
   '(custom-safe-themes
     '("75b8719c741c6d7afa290e0bb394d809f0cc62045b93e1d66cd646907f8e6d43" "7661b762556018a44a29477b84757994d8386d6edee909409fabe0631952dad9" default))
   '(package-selected-packages
     '(neotree treemacs-persp spaceline-all-the-icons all-the-icons-ivy-rich all-the-icons-ivy treemacs-the-icons dired-icon treemacs-magit treemacs-projectile nlinum linum-mode unicode-fonts ewal-doom-themes ivy-rich which-key counsel org-roam treemacs-evil treemacs-all-the-icons treemacs use-package general gruvbox-theme flycheck-rust cargo linum-relative ac-racer lusty-explorer doom-modeline doom-themes rainbow-delimiters evil-mc rustic lsp-mode avy)))
  (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.
   )
  ;; Setting up use-package
  (require 'use-package)
  (setq use-package-always-ensure t)
#+end_src
** Fonts 
#+begin_src emacs-lisp
;; Default fonts
  (add-to-list 'default-frame-alist '(font . "Mononoki Nerd Font" ))
  (set-face-attribute 'default t :font "Mononoki Nerd Font" )
  (use-package unicode-fonts
    :init
    (unicode-fonts-setup))

  (set-fontset-font "fontset-startup" 'unicode
      (font-spec :name "Mononoki Nerd Font" :size 14))

;; Fallback for emojies
  (set-fontset-font "fontset-default" 'unicode
      (font-spec :name "Twemoji" :size 14))

#+end_src
*** Theme
#+begin_src emacs-lisp
  (load-theme 'gruvbox-dark-hard)

#+end_src
** Emojies
#+begin_src emacs-lisp
;; Emojies
(use-package emojify
  :hook (after-init . global-emojify-mode)
  :config
  (setq emojify-emoji-set "twemoji-v2")
  (setq emojify-set-emoji-styles 'unicode)
  (setq emojify-display-style 'unicode)
)
#+end_src
** Modeline (bottom bar)
#+begin_src emacs-lisp
  ;; mode line
  (require 'doom-modeline)
  (doom-modeline-mode 1)
#+end_src
** Line numbers
#+begin_src emacs-lisp
  ;; Line numbers
  (column-number-mode)

  ;; Enable line numbers for some modes
  (dolist (mode '(text-mode-hook
		  prog-mode-hook
		  conf-mode-hook))
    (add-hook mode (lambda ()
	  (display-line-numbers-mode 1)
	  (setq display-line-numbers 'relative))))

  ;; Override some modes which derive from the above
  (dolist (mode '(org-mode-hook))
    (add-hook mode (lambda () (display-line-numbers-mode 0))))
#+end_src
* Evil mode
#+begin_src emacs-lisp
  (use-package evil
  :ensure t
  :init
  (setq evil-want-integration t) ;; This is optional since it's already set to t by default.
  (setq evil-want-keybinding nil)
  :config 
   (evil-mode 1)
   (define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state)
   (evil-global-set-key 'motion "j" 'evil-next-visual-line)
   (evil-global-set-key 'motion "k" 'evil-previous-visual-line)
   )
  (use-package undo-tree
    :after evil
    :init
     (global-undo-tree-mode)
     (evil-set-undo-system 'undo-tree)
  )
  (use-package evil-mc
    :after evil
    :config
    (evil-mc-mode  1) ;; enable
    (global-set-key (kbd "<secape>") 'keyboard-escape-quit)
    :bind (
     :map evil-normal-state-map
     ("SPC m u" . evil-mc-undo-all-cursors)
     :map evil-visual-state-map
      ("SPC m a" . evil-mc-make-cursor-in-visual-selection-beg)
     )
   )
  (use-package evil-collection
    :after evil
    :config
    (evil-collection-init))
#+end_src
* Completition 
#+begin_src emacs-lisp
  (use-package counsel)
  (use-package ivy
    :diminish
    :bind (
	   ("M-x" . counsel-M-x)
	   ("C-s" . swiper)
	   :map ivy-minibuffer-map
	   ("TAB" . ivy-alt-done)
	   ("C-f" . 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))
    :init
    (ivy-mode 1))
(use-package counsel-projectile
  :config (counsel-projectile-mode))


#+end_src

#+RESULTS:
: ivy-reverse-i-search-kill

* Keybindings
#+begin_src emacs-lisp
   (defun add-to-map(keys func)
     "Add a keybinding in evil mode from keys to func."
     (define-key evil-normal-state-map (kbd keys) func)
     (define-key evil-motion-state-map (kbd keys) func))

   ;;(add-to-map "<SPC>" nil)
   ;;(add-to-map "<SPC> <SPC>" 'counsel-M-x)
  ;; (add-to-map "<SPC> f" 'lusty-file-explorer)
  ;; (add-to-map "<SPC> b" 'lusty-buffer-explorer)
   ;;(add-to-map "<SPC> o" 'treemacs)
   ;;(add-to-map "<SPC> s" 'save-buffer)

   (defun open-file (file)
     "just more shortest function for opening the file"
     (interactive)
     ((lambda (file) (interactive)
		     (find-file (expand-file-name (format "%s" file)))) file ) )


   (general-evil-setup)
   (general-nmap
   :prefix "SPC"
     ;; dotfiles editing config
   "SPC" '(counsel-M-x :which-key "M-x")
   "o"   '(treemacs :which-key "treemacs")
   "f f" '(counsel-find-file :which-key "find-file")
   "f r" '(counsel-buffer-or-recentf :which-key "recent files")

   "b b" '(counsel-switch-buffer :which-key "switch buff")

   "f e"  '(lambda() (interactive) (find-file "~/.emacs.d/config.org") :which-key "config.org")
   "f v"  '(lambda() (interactive) (find-file "~/.config/nvim/init.vim" :which-key "neovim config"          ))
   "f d"  '(lambda() (interactive) (find-file "~/dotfiles/home"  :which-key "dotfiles dired"                 ))
   "f a"  '(lambda() (interactive) (find-file "~/.config/alacritty/alacritty.yml" :which-key "alacritty"))
   "f b"  '(lambda() (interactive) (find-file "~/Brain"                           :which-key "my brain")))

#+end_src
* Features
** Org roam 
  #+begin_src emacs-lisp
(use-package org-roam
      :ensure t
      :hook
      (after-init . org-roam-mode)
      :general (general-nmap
        :prefix "SPC r"
        ;; Org-roam keymap
        "d" '((lambda () (interactive) (org-roam-dailies-find-today)) :which-key "roam today")
        "t a" '(org-roam-tag-add :which-key "roam add tag")
        "t d" '(org-roam-tag-delete :which-key "roam delete tag")
        "a a" '(org-roam-alias-add :which-key "roam add alias")
        "f f" '(org-roam-find-file :which-key "roam findgfile ")
        "g" '(org-roam-graph-show :which-key "roam graph ")
        "b b" '(org-roam-buffer-toggle-display :which-key "roam buffer toggle ")
        "b s" '(org-roam-buffer-activate :which-key "roam buffer show ")
        "b h" '(org-roam-buffer-deactivate :which-key "roam buffer hide ")
        "s" '(org-roam-server-mode :which-key "roam server ")
        )
      :custom
      (org-roam-directory "~/Brain")
      :config
      (setq
        org-roam-server-host "127.0.0.1"
        org-roam-server-port 5034
        org-roam-server-authenticate nil
        org-roam-server-export-inline-images t
        org-roam-server-serve-files nil
        org-roam-server-served-file-extensions '("pdf" "mp4" "ogv")
        org-roam-server-network-poll t
        org-roam-server-network-arrows nil
        org-roam-server-network-label-truncate t
        org-roam-server-network-label-truncate-length 60
        org-roam-server-network-label-wrap-length 20)


(require 'org-roam-protocol)
)

#+end_src
** Org roam protocol
  #+begin_src emacs-lisp
    (require 'org-roam-protocol)
  #+end_src

** Interaction log
#+begin_src emacs-lisp
(use-package interaction-log
  :ensure t)
#+end_src
** Rainbow brakets
#+begin_src emacs-lisp
  (use-package highlight-parentheses
  :ensure t
  :init
  (global-highlight-parentheses-mode t)
  (show-paren-mode t))			;
  (use-package rainbow-delimiters
    :hook (prog-mode . rainbow-delimiters-mode))
#+end_src
** Which key (keybindings autocompletition )
#+begin_src emacs-lisp
;;Which key
(use-package which-key
  :init (which-key-mode)
  :diminish which-key-mode
  :config
  (setq which-key-idle-delay 0.3))

(use-package ivy-rich
  :init
  (ivy-rich-mode 1))
#+end_src
** Treemacs (file tree)
#+begin_src emacs-lisp
  (use-package all-the-icons)
  (use-package treemacs-all-the-icons)
  (use-package treemacs
    :after all-the-icons
    :ensure t
    :defer t
    :init
    (with-eval-after-load 'winum
      (define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
    :config
    (progn
      (setq treemacs-collapse-dirs                 (if treemacs-python-executable 3 0)
	    treemacs-deferred-git-apply-delay      0.5
	    treemacs-directory-name-transformer    #'identity
	    treemacs-display-in-side-window        t
	    treemacs-eldoc-display                 t
	    treemacs-file-event-delay              5000
	    treemacs-file-extension-regex          treemacs-last-period-regex-value
	    treemacs-file-follow-delay             0.2
	    treemacs-file-name-transformer         #'identity
	    treemacs-follow-after-init             t
	    treemacs-git-command-pipe              ""
	    treemacs-goto-tag-strategy             'refetch-index
	    treemacs-indentation                   2
	    treemacs-indentation-string            " "
	    treemacs-is-never-other-window         nil
	    treemacs-max-git-entries               5000
	    treemacs-missing-project-action        'ask
	    treemacs-move-forward-on-expand        nil
	    treemacs-no-png-images                 nil
	    treemacs-no-delete-other-windows       t
	    treemacs-project-follow-cleanup        nil
	    treemacs-persist-file                  (expand-file-name ".cache/treemacs-persist" user-emacs-directory)
	    treemacs-position                      'left
	    treemacs-read-string-input             'from-child-frame
	    treemacs-recenter-distance             0.1
	    treemacs-recenter-after-file-follow    nil
	    treemacs-recenter-after-tag-follow     nil
	    treemacs-recenter-after-project-jump   'always
	    treemacs-recenter-after-project-expand 'on-distance
	    treemacs-show-cursor                   nil
	    treemacs-show-hidden-files             t
	    treemacs-silent-filewatch              nil
	    treemacs-silent-refresh                nil
	    treemacs-sorting                       'alphabetic-asc
	    treemacs-space-between-root-nodes      t
	    treemacs-tag-follow-cleanup            t
	    treemacs-tag-follow-delay              1.5
	    treemacs-user-mode-line-format         nil
	    treemacs-user-header-line-format       nil
	    treemacs-width                         35
	    treemacs-workspace-switch-cleanup      nil)

      ;; The default width and height of the icons is 22 pixels. If you are
      ;; using a Hi-DPI display, uncomment this to double the icon size.
      ;;(treemacs-resize-icons 44)

      (treemacs-follow-mode t)
      (treemacs-filewatch-mode t)
      (treemacs-load-theme 'all-the-icons)
      (treemacs-fringe-indicator-mode 'always)
      (pcase (cons (not (null (executable-find "git")))
		   (not (null treemacs-python-executable)))
	(`(t . t)
	 (treemacs-git-mode 'deferred))
	(`(t . _)
	 (treemacs-git-mode 'simple))))
    :bind
    (:map global-map
	  ("M-0"       . treemacs-select-window)
	  ("C-x t 1"   . treemacs-delete-other-windows)
	  ("C-x t t"   . treemacs)
	  ("C-x t B"   . treemacs-bookmark)
	  ("C-x t C-t" . treemacs-find-file)
	  ("C-x t M-t" . treemacs-find-tag)))

  (use-package treemacs-evil
    :after (treemacs evil)
    :ensure t)

  (use-package treemacs-projectile
    :after (treemacs projectile)
    :ensure t)

  (use-package treemacs-icons-dired
    :after (treemacs dired)
    :ensure t
    :config (treemacs-icons-dired-mode))

  (use-package treemacs-magit
    :after (treemacs magit)
    :ensure t)

  (use-package treemacs-persp ;;treemacs-perspective if you use perspective.el vs. persp-mode
    :after (treemacs persp-mode) ;;or perspective vs. persp-mode
    :ensure t
    :config (treemacs-set-scope-type 'Perspectives))

  (use-package neotree
    :ensure t
    :init
    (setq neo-theme (if (display-graphic-p) 'icons 'arrow))
  )
#+end_src
** Literate programming
#+begin_src emacs-lisp
(org-babel-do-load-languages
 'org-babel-load-languages
 '((python . t)))
#+end_src
** Magit
   #+begin_src emacs-lisp
     (use-package magit)
     (use-package workgroups2)
   #+end_src
** StartPage
#+begin_src emacs-lisp
(find-file "~/.emacs.d/startup.org")
#+end_src

* Languages
** Rust
#+begin_src emacs-lisp
    (use-package rustic
     :ensure t
     :init
     (setq rustic-lsp-server 'rls)
    )
#+end_src
* Org mode
** Org Agenda
*** Todos
    #+begin_src emacs-lisp
      (defun my/org-agenda () (

      (setq org-todo-keywords
	  '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
	    (sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)" "WAIT(w@/!)" "HOLD(h)" "|" "COMPLETED(c)" "CANC(k@)")
	    (sequence "IDEA(i)" "DREAM(d)" "ARTICLE(a)" "|" "DONE(d!)")
	    ))
      (setq org-todo-keyword-faces
	    '(("TODO" . org-warning) ("STARTED" . "yellow") ("DREAM" . "pink") ("IDEA" . "gold") ("ARTICLE" . "lightblue")
	      ("CANCELED" . (:foreground "blue" :weight bold))))
	(setq org-agenda-custom-commands
	 '(("d" "Dashboard"
	   ((agenda "" ((org-deadline-warning-days 7)))
	    (todo "NEXT"
	      ((org-agenda-overriding-header "Next Tasks")))
	    (tags-todo "agenda/ACTIVE" ((org-agenda-overriding-header "Active Projects")))))

	  ("n" "Next Tasks"
	   ((todo "NEXT"
	      ((org-agenda-overriding-header "Next Tasks")))))

	  ("W" "Work Tasks" tags-todo "+work-email")

	  ;; Low-effort next actions
	  ("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0"
	   ((org-agenda-overriding-header "Low Effort Tasks")
	    (org-agenda-max-todos 20)
	    (org-agenda-files org-agenda-files)))

	  ("w" "Workflow Status"
	   ((todo "WAIT"
		  ((org-agenda-overriding-header "Waiting on External")
		   (org-agenda-files org-agenda-files)))
	    (todo "REVIEW"
		  ((org-agenda-overriding-header "In Review")
		   (org-agenda-files org-agenda-files)))
	    (todo "PLAN"
		  ((org-agenda-overriding-header "In Planning")
		   (org-agenda-todo-list-sublevels nil)
		   (org-agenda-files org-agenda-files)))
	    (todo "BACKLOG"
		  ((org-agenda-overriding-header "Project Backlog")
		   (org-agenda-todo-list-sublevels nil)
		   (org-agenda-files org-agenda-files)))
	    (todo "READY"
		  ((org-agenda-overriding-header "Ready for Work")
		   (org-agenda-files org-agenda-files)))
	    (todo "ACTIVE"
		  ((org-agenda-overriding-header "Active Projects")
		   (org-agenda-files org-agenda-files)))
	    (todo "COMPLETED"
		  ((org-agenda-overriding-header "Completed Projects")
		   (org-agenda-files org-agenda-files)))
	    (todo "CANC"
		  ((org-agenda-overriding-header "Cancelled Projects")
		   (org-agenda-files org-agenda-files)))))))
	))


    #+end_src

    #+RESULTS:
    : my/org-agenda


*** Fonts
    #+begin_src emacs-lisp
      (use-package org-bullets 
	:after org
	:hook
	(org-mode . org-bullets-mode))
      (set-face-attribute 'org-document-title nil :font "hack" :weight 'bold :height 1.3)
      (dolist (face '((org-level-1 . 1.3)
		      (org-level-2 . 1.2)
		      (org-level-3 . 1.05)
		      (org-level-4 . 1.0)
		      (org-level-5 . 1.1)
		      (org-level-6 . 1.1)
		      (org-level-7 . 1.1)
		      (org-level-8 . 1.1)))
	(set-face-attribute (car face) nil :font "hack" :weight 'bold :height (cdr face)))
      (require 'org-indent)
      (set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch :font "mononoki" )
      (set-face-attribute 'org-table nil  :inherit 'fixed-pitch)
      (set-face-attribute 'org-formula nil  :inherit 'fixed-pitch)
      (set-face-attribute 'org-code nil   :inherit '(shadow fixed-pitch))
      (set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch))
      (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
      (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
      (set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
      (set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)

      ;; Get rid of the background on column views
      (set-face-attribute 'org-column nil :background nil)
      (set-face-attribute 'org-column-title nil :background nil)
      (setq org-src-fontify-natively t)
      (defun my/visual-fill ()
	(setq visual-fill-column-width 140
	      visual-fill-column-center-text t)
	(visual-fill-column-mode 1))
      (use-package visual-fill-column
	:defer t
	:hook (org-mode . my/visual-fill))


    #+end_src 
*** Completition
    #+begin_src emacs-lisp

      (require 'org-tempo)
      (add-to-list 'org-structure-template-alist '("sh" . "src sh"))
      (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
      (add-to-list 'org-structure-template-alist '("sc" . "src scheme"))
      (add-to-list 'org-structure-template-alist '("ts" . "src typescript"))
      (add-to-list 'org-structure-template-alist '("py" . "src python"))
      (add-to-list 'org-structure-template-alist '("yaml" . "src yaml"))
      (add-to-list 'org-structure-template-alist '("json" . "src json"))


    #+end_src
** Init
  #+begin_src emacs-lisp
	(defun my/org-mode-setup() 
		     (org-indend-mode) 
		     (variable-pitch-mode 1) 
		     (auto-fill-mode 0) 
		     (visual-line-mode 1) 
		     (setq evil-auto indent 1)
		     (my/org-agenda)
		     ) 
    (use-package org 
	      :hook (org-mode . my/org-mode-setup)
	      :config
	      (setq org-agenda-files `("~/Brain" "~/Brain/Tasks/Tasks.org"))
	      (setq org-ellipsis " ▸"
	      org-hide-emphasis-markers t
	      org-src-fontify-natively t
	      org-src-tab-acts-natively t
	      org-edit-src-content-indentation 2
	      org-hide-block-startup nil
	      org-src-preserve-indentation nil
	      org-startup-folded 'content
	      org-cycle-separator-lines 2)
	      (setq org-agenda-start-with-log-mode t)
	      (setq org-log-done 'time)
	      (setq org-log-into-drawer t)
(setq org-todo-keywords
	  '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
	    (sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)" "WAIT(w@/!)" "HOLD(h)" "|" "COMPLETED(c)" "CANC(k@)")
	    (sequence "IDEA(i)" "DREAM(d)" "ARTICLE(a)" "|" "DONE(d!)")
	    ))
      (setq org-todo-keyword-faces
	    '(("TODO" . org-warning) ("STARTED" . "yellow") ("DREAM" . "pink") ("IDEA" . "gold") ("ARTICLE" . "lightblue")
	      ("CANCELED" . (:foreground "blue" :weight bold))))
	(setq org-agenda-custom-commands
	 '(("d" "Dashboard"
	   ((agenda "" ((org-deadline-warning-days 7)))
	    (todo "NEXT"
	      ((org-agenda-overriding-header "Next Tasks")))
	    (tags-todo "agenda/ACTIVE" ((org-agenda-overriding-header "Active Projects")))))

	  ("n" "Next Tasks"
	   ((todo "NEXT"
	      ((org-agenda-overriding-header "Next Tasks")))))

	  ("W" "Work Tasks" tags-todo "+work-email")

	  ;; Low-effort next actions
	  ("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0"
	   ((org-agenda-overriding-header "Low Effort Tasks")
	    (org-agenda-max-todos 20)
	    (org-agenda-files org-agenda-files)))

	  ("w" "Workflow Status"
	   ((todo "WAIT"
		  ((org-agenda-overriding-header "Waiting on External")
		   (org-agenda-files org-agenda-files)))
	    (todo "REVIEW"
		  ((org-agenda-overriding-header "In Review")
		   (org-agenda-files org-agenda-files)))
	    (todo "PLAN"
		  ((org-agenda-overriding-header "In Planning")
		   (org-agenda-todo-list-sublevels nil)
		   (org-agenda-files org-agenda-files)))
	    (todo "BACKLOG"
		  ((org-agenda-overriding-header "Project Backlog")
		   (org-agenda-todo-list-sublevels nil)
		   (org-agenda-files org-agenda-files)))
	    (todo "READY"
		  ((org-agenda-overriding-header "Ready for Work")
		   (org-agenda-files org-agenda-files)))
	    (todo "ACTIVE"
		  ((org-agenda-overriding-header "Active Projects")
		   (org-agenda-files org-agenda-files)))
	    (todo "COMPLETED"
		  ((org-agenda-overriding-header "Completed Projects")
		   (org-agenda-files org-agenda-files)))
	    (todo "CANC"
		  ((org-agenda-overriding-header "Cancelled Projects")
		   (org-agenda-files org-agenda-files)))))))

	      :general (general-nmap
			:prefix "SPC a"
			:keymap 'org-agenda-mode-map
			"a" 'org-agenda
			)
	       )


  #+end_src

  #+RESULTS:

* Themes
** Treemacs
   #+begin_src emacs-lisp
     (treemacs-create-theme "Material"
       :icon-directory (treemacs-join-path treemacs-dir "/home/horhik/.emacs.d/icons")
       :config
       (progn
	 (treemacs-create-icon :file "folder-core-open.png"   :fallback "📁"       :extensions (root-open))
	 (treemacs-create-icon :file "folder-core.png"        :fallback "📁"       :extensions (root-closed))
	 (treemacs-create-icon :file "folder-node-open.png"   :fallback "📂"       :extensions (dir-open))
	 (treemacs-create-icon :file "folder-node.png"        :fallback "📁"       :extensions (dir-closed))
	 (treemacs-create-icon :file "folder-test-open.png"   :fallback "📂"       :extensions ("tests"))
	 (treemacs-create-icon :file "folder-test.png"        :fallback "📁"       :extensions ("tests"))
	 (treemacs-create-icon :file "emacs.png"              :fallback "💜"     :extensions ("el" "elc" ".spacemacs" "doom" ))
	 (treemacs-create-icon :file "emacs.png"              :fallback "💜"     :extensions ("el" "elc"))
	 (treemacs-create-icon :file "markdown.png"           :fallback "📖"     :extensions ("md"))
	 (treemacs-create-icon :file "readme.png"             :fallback "📖"     :extensions ("readme.md" "README.md" "README" "readme"))
	 (treemacs-create-icon :file "editorconfig.png"       :fallback "📖"     :extensions ("editorconfig"))
	 (treemacs-create-icon :file "org.png"                :fallback "🐴"     :extensions ("org"))
	 (treemacs-create-icon :file "rust.png"               :fallback "🐴"     :extensions ("rs"))
	 (treemacs-create-icon :file "haskell.png"            :fallback "🐴"     :extensions ("hs" "haskell"))
	 (treemacs-create-icon :file "c.png"                  :fallback "🐴"     :extensions ("c"))
	 (treemacs-create-icon :file "cpp.png"                :fallback "🐴"     :extensions ("cpp" "c++"))
	 (treemacs-create-icon :file "h.png"                  :fallback "🐴"     :extensions ("h"))
	 (treemacs-create-icon :file "diff.png"               :fallback "🐴"     :extensions ("diff"))
	 (treemacs-create-icon :file "makefile.png"           :fallback "🐴"     :extensions ("mk" "make" "Makefile"))
	 (treemacs-create-icon :file "assembly.png"           :fallback "🐴"     :extensions ("bin" "so" "o"))
	 (treemacs-create-icon :file "document.png"           :fallback "🐴"     :extensions ("" "txt"))
	 (treemacs-create-icon :file "file.png"               :fallback "🐴"     :extensions (fallback))
	 (treemacs-create-icon :file "toml.png"               :fallback "🗃️"     :extensions ("toml"))
	 (treemacs-create-icon :file "json.png"               :fallback "🗃️"     :extensions ("json"))
	 (treemacs-create-icon :file "yaml.png"               :fallback "🗃️"     :extensions ("yml" "yaml"))
	 (treemacs-create-icon :file "vim.png"                :fallback "🗃️"     :extensions ("vim" "vi" "nvim"))
	 (treemacs-create-icon :file "video.png"              :fallback "🗃️"     :extensions ("mp4" "avi" "gif" "mpv"))
	 (treemacs-create-icon :file "audio.png"              :fallback "🗃️"     :extensions ("mp3" "ogg" "wav" ))
	 (treemacs-create-icon :file "image.png"              :fallback "🗃️"     :extensions ("png" "jpg"))
	 (treemacs-create-icon :file "svg.png"                :fallback "🗃️"     :extensions ("svg"))
	 (treemacs-create-icon :file "css.png"                :fallback "🗃️"     :extensions ("css"))
	 (treemacs-create-icon :file "console.png"            :fallback "🗃️"     :extensions ("bash" "sh"))
	 (treemacs-create-icon :file "certificate.png"        :fallback "🗃️"     :extensions ("cert" "LICENSE" "license" "gpl" "mit" "gpl3" "gplv3" "apache"))
	 (treemacs-create-icon :file "database.png"           :fallback "🗃️"     :extensions ("sqlite" "db" "sql"))
	 (treemacs-create-icon :file "lua.png"                :fallback "🗃️"     :extensions ("lua"))
	 (treemacs-create-icon :file "javascript.png"         :fallback "🗃️"     :extensions ("js" "javascript"))
	 (treemacs-create-icon :file "typescript.png"         :fallback "🗃️"     :extensions ("ts" "typescript"))
	 (treemacs-create-icon :file "react.png"              :fallback "🗃️"     :extensions ("jsx"))
	 (treemacs-create-icon :file "react_ts.png"           :fallback "🗃️"     :extensions ("tsx"))
	 (treemacs-create-icon :file "settings.png"           :fallback "🗃️"     :extensions ("config" "conf" "rc" "*rc"))
	 (treemacs-create-icon :file "sass.png"               :fallback "🗃️"     :extensions ("sass" "scss"))
	 (treemacs-create-icon :file "xml.png"                :fallback "🗃️"     :extensions ("xml"))
	 (treemacs-create-icon :file "less.png"               :fallback "🗃️"     :extensions ("less"))
	 (treemacs-create-icon :file "pdf.png"                :fallback "🗃️"     :extensions ("pdf"))
	 (treemacs-create-icon :file "tex.png"                :fallback "🗃️"     :extensions ("tex" "latex" ))
	 (treemacs-create-icon :file "log.png"                :fallback "🗃️"     :extensions ("log" ))
	 (treemacs-create-icon :file "word.png"               :fallback "🗃️"     :extensions ("docs" "docx" "word" ))
	 (treemacs-create-icon :file "powerpoint.png"         :fallback "🗃️"     :extensions ("ppt" "pptx" ))
	 (treemacs-create-icon :file "html.png"               :fallback "🗃️"     :extensions ("html"))
	 (treemacs-create-icon :file "zip.png"                :fallback "🗃️"     :extensions ("zip" "tar" "tar.xz" "xz" "xfv" "7z"))
	 (treemacs-create-icon :file "todo.png"               :fallback "🗃️"     :extensions ("TODO" "todo" "Tasks" ))
	 (treemacs-create-icon :file "webassembly"            :fallback "🗃️"     :extensions ("wasm" "webasm" "webassembly"))
	 (treemacs-create-icon :file "python"                 :fallback "🗃️"     :extensions ("py" "python"))
	 )
     )
     (treemacs-load-theme 'Material)
   #+end_src
   


** TODO