update: 20210309 red

master
Kore Francis Njenga 5 years ago
parent 80b74b3d42
commit bf59ab04ad

@ -1,247 +1,247 @@
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- ;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
;; Place your private configuration here! Remember, you do not need to run 'doom ;; Place your private configuration here! Remember, you do not need to run 'doom
;; sync' after modifying this file! ;; sync' after modifying this file!
;; Some functionality uses this to identify you, e.g. GPG configuration, email ;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets. ;; clients, file templates and snippets.
(setq user-full-name "Francis Kore" (setq user-full-name "Francis Kore"
user-mail-address "me@korefrancis.com") user-mail-address "me@korefrancis.com")
;; Doom exposes five (optional) variables for controlling fonts in Doom. Here ;; Doom exposes five (optional) variables for controlling fonts in Doom. Here
;; are the three important ones: ;; are the three important ones:
;; ;;
;; + `doom-font' ;; + `doom-font'
;; + `doom-variable-pitch-font' ;; + `doom-variable-pitch-font'
;; + `doom-big-font' -- used for `doom-big-font-mode'; use this for ;; + `doom-big-font' -- used for `doom-big-font-mode'; use this for
;; presentations or streaming. ;; presentations or streaming.
;; ;;
;; They all accept either a font-spec, font string ("Input Mono-12"), or xlfd ;; They all accept either a font-spec, font string ("Input Mono-12"), or xlfd
;; font string. You generally only need these two: ;; font string. You generally only need these two:
;; (setq doom-font (font-spec :family "monospace" :size 12 :weight 'semi-light) ;; (setq doom-font (font-spec :family "monospace" :size 12 :weight 'semi-light)
;; doom-variable-pitch-font (font-spec :family "sans" :size 13)) ;; doom-variable-pitch-font (font-spec :family "sans" :size 13))
;; There are two ways to load a theme. Both assume the theme is installed and ;; There are two ways to load a theme. Both assume the theme is installed and
;; available. You can either set `doom-theme' or manually load a theme with the ;; available. You can either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default: ;; `load-theme' function. This is the default:
(setq doom-theme 'doom-one) (setq doom-theme 'doom-one)
;; If you use `org' and don't want your org files in the default location below, ;; If you use `org' and don't want your org files in the default location below,
;; change `org-directory'. It must be set before org loads! ;; change `org-directory'. It must be set before org loads!
(setq org-directory "~/org/") (setq org-directory "~/org/")
(setq deft-directory "~/org/deft") (setq deft-directory "~/org/deft")
(setq org-superstar-headline-bullets-list '("" "" "" "" "")) (setq org-superstar-headline-bullets-list '("" "" "" "" ""))
;; This determines the style of line numbers in effect. If set to `nil', line ;; This determines the style of line numbers in effect. If set to `nil', line
;; numbers are disabled. For relative line numbers, set this to `relative'. ;; numbers are disabled. For relative line numbers, set this to `relative'.
(setq display-line-numbers-type t) (setq display-line-numbers-type t)
;; this controls the color of bold, italic, underline, verbatim, strikethrough
(setq org-emphasis-alist ;; Here are some additional functions/macros that could help you configure Doom:
'(("*" (bold :slant italic :weight black )) ;; this make bold both italic and bold, but not color change ;;
("/" (italic :foreground "dark salmon" )) ;; italic text, the text will be "dark salmon" ;; - `load!' for loading external *.el files relative to this one
("_" underline :foreground "cyan" ) ;; underlined text, color is "cyan" ;; - `use-package!' for configuring packages
("=" (:background "snow1" :foreground "deep slate blue" )) ;; background of text is "snow1" and text is "deep slate blue" ;; - `after!' for running code after a package has loaded
("~" (:background "PaleGreen1" :foreground "dim gray" )) ;; - `add-load-path!' for adding directories to the `load-path', relative to
("+" (:strike-through nil :foreground "dark orange" )))) ;; this file. Emacs searches the `load-path' when you load packages with
;; `require' or `use-package'.
(setq org-hide-emphasis-markers t) ;; hides the emphasis markers ;; - `map!' for binding new keys
;;
;; Here are some additional functions/macros that could help you configure Doom: ;; To get information about any of these functions/macros, move the cursor over
;; ;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
;; - `load!' for loading external *.el files relative to this one ;; This will open documentation for it, including demos of how they are used.
;; - `use-package!' for configuring packages ;;
;; - `after!' for running code after a package has loaded ;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
;; - `add-load-path!' for adding directories to the `load-path', relative to ;; they are implemented.
;; this file. Emacs searches the `load-path' when you load packages with
;; `require' or `use-package'. ;; this controls the color of bold, italic, underline, verbatim, strikethrough
;; - `map!' for binding new keys (setq org-emphasis-alist
;; '(("*" (bold :slant italic :weight black )) ;; this make bold both italic and bold, but not color change
;; To get information about any of these functions/macros, move the cursor over ("/" (italic :foreground "dark salmon" )) ;; italic text, the text will be "dark salmon"
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k'). ("_" underline :foreground "cyan" ) ;; underlined text, color is "cyan"
;; This will open documentation for it, including demos of how they are used. ("=" (:background "snow1" :foreground "deep slate blue" )) ;; background of text is "snow1" and text is "deep slate blue"
;; ("~" (:background "PaleGreen1" :foreground "dim gray" ))
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how ("+" (:strike-through nil :foreground "dark orange" ))))
;; they are implemented.
(setq org-hide-emphasis-markers t) ;; hides the emphasis markers
;; org-roam-server ;; org-roam-server
(setq org-roam-server-host "127.0.0.1" (setq org-roam-server-host "127.0.0.1"
org-roam-server-port 8080 org-roam-server-port 8080
org-roam-server-authenticate nil org-roam-server-authenticate nil
org-roam-server-export-inline-images t org-roam-server-export-inline-images t
org-roam-server-serve-files nil org-roam-server-serve-files nil
org-roam-server-served-file-extensions '("pdf" "mp4" "ogv") org-roam-server-served-file-extensions '("pdf" "mp4" "ogv")
org-roam-server-network-poll t org-roam-server-network-poll t
org-roam-server-network-arrows nil org-roam-server-network-arrows nil
org-roam-server-network-label-truncate t org-roam-server-network-label-truncate t
org-roam-server-network-label-truncate-length 60 org-roam-server-network-label-truncate-length 60
org-roam-server-network-label-wrap-length 20) org-roam-server-network-label-wrap-length 20)
(setq ispell-program-name "aspell") (setq ispell-program-name "aspell")
(setq ispell-extra-args '("--sug-mode=ultra" "--lang=en_US")) (setq ispell-extra-args '("--sug-mode=ultra" "--lang=en_US"))
;;(setq spell-fu-directory "~/+STORE/dictionary") ;; Please create this directory manually. (setq spell-fu-directory "~/.config/+STORE/dictionary") ;; Please create this directory manually.
;;(setq ispell-personal-dictionary "~/+STORE/dictionary/.pws") (setq ispell-personal-dictionary "~/.config/+STORE/dictionary/.pws")
(setq writeroom-fullscreen-effect t) (setq writeroom-fullscreen-effect t)
(setq org-fancy-priorities-list '((?A . "") (setq org-fancy-priorities-list '((?A . "")
(?B . "") (?B . "")
(?C . "") (?C . "")
(?D . "") (?D . "")
(?1 . "") (?1 . "")
(?2 . "") (?2 . "")
(?3 . "") (?3 . "")
(?4 . "") (?4 . "")
(?I . "Important"))) (?I . "Important")))
(setq +zen-text-scale 0.6) (setq +zen-text-scale 0.6)
(after! writeroom-mode (after! writeroom-mode
(add-hook 'writeroom-mode-hook (add-hook 'writeroom-mode-hook
(defun +zen-cleaner-org () (defun +zen-cleaner-org ()
(when (and (eq major-mode 'org-mode) writeroom-mode) (when (and (eq major-mode 'org-mode) writeroom-mode)
(setq-local -display-line-numbers display-line-numbers (setq-local -display-line-numbers display-line-numbers
display-line-numbers nil) display-line-numbers nil)
(setq-local -org-indent-mode org-indent-mode) (setq-local -org-indent-mode org-indent-mode)
(org-indent-mode -1) (org-indent-mode -1)
(when (featurep 'org-superstar) (when (featurep 'org-superstar)
(setq-local -org-superstar-headline-bullets-list org-superstar-headline-bullets-list (setq-local -org-superstar-headline-bullets-list org-superstar-headline-bullets-list
;; org-superstar-headline-bullets-list '("🙐" "🙑" "🙒" "🙓" "🙔" "🙕" "🙖" "🙗") ;; org-superstar-headline-bullets-list '("🙐" "🙑" "🙒" "🙓" "🙔" "🙕" "🙖" "🙗")
org-superstar-headline-bullets-list '("🙘" "🙙" "🙚" "🙛") org-superstar-headline-bullets-list '("🙘" "🙙" "🙚" "🙛")
-org-superstar-remove-leading-stars org-superstar-remove-leading-stars -org-superstar-remove-leading-stars org-superstar-remove-leading-stars
org-superstar-remove-leading-stars t) org-superstar-remove-leading-stars t)
(org-superstar-restart))))) (org-superstar-restart)))))
(add-hook 'writeroom-mode-disable-hook (add-hook 'writeroom-mode-disable-hook
(defun +zen-dirty-org () (defun +zen-dirty-org ()
(when (eq major-mode 'org-mode) (when (eq major-mode 'org-mode)
(setq-local display-line-numbers -display-line-numbers) (setq-local display-line-numbers -display-line-numbers)
(when -org-indent-mode (when -org-indent-mode
(org-indent-mode 1)) (org-indent-mode 1))
(when (featurep 'org-superstar) (when (featurep 'org-superstar)
(setq-local org-superstar-headline-bullets-list -org-superstar-headline-bullets-list (setq-local org-superstar-headline-bullets-list -org-superstar-headline-bullets-list
org-superstar-remove-leading-stars -org-superstar-remove-leading-stars) org-superstar-remove-leading-stars -org-superstar-remove-leading-stars)
(org-superstar-restart)))))) (org-superstar-restart))))))
(use-package! nov (use-package! nov
:mode ("\\.epub\\'" . nov-mode) :mode ("\\.epub\\'" . nov-mode)
:config :config
(map! :map nov-mode-map (map! :map nov-mode-map
:n "RET" #'nov-scroll-up) :n "RET" #'nov-scroll-up)
(defun doom-modeline-segment--nov-info () (defun doom-modeline-segment--nov-info ()
(concat (concat
" " " "
(propertize (propertize
(cdr (assoc 'creator nov-metadata)) (cdr (assoc 'creator nov-metadata))
'face 'doom-modeline-project-parent-dir) 'face 'doom-modeline-project-parent-dir)
" " " "
(cdr (assoc 'title nov-metadata)) (cdr (assoc 'title nov-metadata))
" " " "
(propertize (propertize
(format "%d/%d" (format "%d/%d"
(1+ nov-documents-index) (1+ nov-documents-index)
(length nov-documents)) (length nov-documents))
'face 'doom-modeline-info))) 'face 'doom-modeline-info)))
(advice-add 'nov-render-title :override #'ignore) (advice-add 'nov-render-title :override #'ignore)
(defun +nov-mode-setup () (defun +nov-mode-setup ()
(face-remap-add-relative 'variable-pitch (face-remap-add-relative 'variable-pitch
:family "Merriweather" :family "Merriweather"
:height 1.4 :height 1.4
:width 'semi-expanded) :width 'semi-expanded)
(face-remap-add-relative 'default :height 1.3) (face-remap-add-relative 'default :height 1.3)
(setq-local line-spacing 0.2 (setq-local line-spacing 0.2
next-screen-context-lines 4 next-screen-context-lines 4
shr-use-colors nil) shr-use-colors nil)
(require 'visual-fill-column nil t) (require 'visual-fill-column nil t)
(setq-local visual-fill-column-center-text t (setq-local visual-fill-column-center-text t
visual-fill-column-width 80 visual-fill-column-width 80
nov-text-width 80) nov-text-width 80)
(visual-fill-column-mode 1) (visual-fill-column-mode 1)
(hl-line-mode -1) (hl-line-mode -1)
(add-to-list '+lookup-definition-functions #'+lookup/dictionary-definition) (add-to-list '+lookup-definition-functions #'+lookup/dictionary-definition)
(setq-local mode-line-format (setq-local mode-line-format
`((:eval `((:eval
(doom-modeline-segment--workspace-name)) (doom-modeline-segment--workspace-name))
(:eval (:eval
(doom-modeline-segment--window-number)) (doom-modeline-segment--window-number))
(:eval (:eval
(doom-modeline-segment--nov-info)) (doom-modeline-segment--nov-info))
,(propertize ,(propertize
" %P " " %P "
'face 'doom-modeline-buffer-minor-mode) 'face 'doom-modeline-buffer-minor-mode)
,(propertize ,(propertize
" " " "
'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive) 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)
'display `((space 'display `((space
:align-to :align-to
(- (+ right right-fringe right-margin) (- (+ right right-fringe right-margin)
,(* (let ((width (doom-modeline--font-width))) ,(* (let ((width (doom-modeline--font-width)))
(or (and (= width 1) 1) (or (and (= width 1) 1)
(/ width (frame-char-width) 1.0))) (/ width (frame-char-width) 1.0)))
(string-width (string-width
(format-mode-line (cons "" '(:eval (doom-modeline-segment--major-mode)))))))))) (format-mode-line (cons "" '(:eval (doom-modeline-segment--major-mode))))))))))
(:eval (doom-modeline-segment--major-mode))))) (:eval (doom-modeline-segment--major-mode)))))
(add-hook 'nov-mode-hook #'+nov-mode-setup)) (add-hook 'nov-mode-hook #'+nov-mode-setup))
(after! treemacs (after! treemacs
(defvar treemacs-file-ignore-extensions '() (defvar treemacs-file-ignore-extensions '()
"File extension which `treemacs-ignore-filter' will ensure are ignored") "File extension which `treemacs-ignore-filter' will ensure are ignored")
(defvar treemacs-file-ignore-globs '() (defvar treemacs-file-ignore-globs '()
"Globs which will are transformed to `treemacs-file-ignore-regexps' which `treemacs-ignore-filter' will ensure are ignored") "Globs which will are transformed to `treemacs-file-ignore-regexps' which `treemacs-ignore-filter' will ensure are ignored")
(defvar treemacs-file-ignore-regexps '() (defvar treemacs-file-ignore-regexps '()
"RegExps to be tested to ignore files, generated from `treeemacs-file-ignore-globs'") "RegExps to be tested to ignore files, generated from `treeemacs-file-ignore-globs'")
(defun treemacs-file-ignore-generate-regexps () (defun treemacs-file-ignore-generate-regexps ()
"Generate `treemacs-file-ignore-regexps' from `treemacs-file-ignore-globs'" "Generate `treemacs-file-ignore-regexps' from `treemacs-file-ignore-globs'"
(setq treemacs-file-ignore-regexps (mapcar 'dired-glob-regexp treemacs-file-ignore-globs))) (setq treemacs-file-ignore-regexps (mapcar 'dired-glob-regexp treemacs-file-ignore-globs)))
(if (equal treemacs-file-ignore-globs '()) nil (treemacs-file-ignore-generate-regexps)) (if (equal treemacs-file-ignore-globs '()) nil (treemacs-file-ignore-generate-regexps))
(defun treemacs-ignore-filter (file full-path) (defun treemacs-ignore-filter (file full-path)
"Ignore files specified by `treemacs-file-ignore-extensions', and `treemacs-file-ignore-regexps'" "Ignore files specified by `treemacs-file-ignore-extensions', and `treemacs-file-ignore-regexps'"
(or (member (file-name-extension file) treemacs-file-ignore-extensions) (or (member (file-name-extension file) treemacs-file-ignore-extensions)
(let ((ignore-file nil)) (let ((ignore-file nil))
(dolist (regexp treemacs-file-ignore-regexps ignore-file) (dolist (regexp treemacs-file-ignore-regexps ignore-file)
(setq ignore-file (or ignore-file (if (string-match-p regexp full-path) t nil))))))) (setq ignore-file (or ignore-file (if (string-match-p regexp full-path) t nil)))))))
(add-to-list 'treemacs-ignored-file-predicates #'treemacs-ignore-filter)) (add-to-list 'treemacs-ignored-file-predicates #'treemacs-ignore-filter))
(setq treemacs-file-ignore-extensions (setq treemacs-file-ignore-extensions
'(;; LaTeX '(;; LaTeX
"aux" "aux"
"ptc" "ptc"
"fdb_latexmk" "fdb_latexmk"
"fls" "fls"
"synctex.gz" "synctex.gz"
"toc" "toc"
;; LaTeX - glossary ;; LaTeX - glossary
"glg" "glg"
"glo" "glo"
"gls" "gls"
"glsdefs" "glsdefs"
"ist" "ist"
"acn" "acn"
"acr" "acr"
"alg" "alg"
;; LaTeX - pgfplots ;; LaTeX - pgfplots
"mw" "mw"
;; LaTeX - pdfx ;; LaTeX - pdfx
"pdfa.xmpi" "pdfa.xmpi"
)) ))
(setq treemacs-file-ignore-globs
(setq treemacs-file-ignore-globs '(;; LaTeX
'(;; LaTeX "*/_minted-*"
"*/_minted-*" ;; AucTeX
;; AucTeX "*/.auctex-auto"
"*/.auctex-auto" "*/_region_.log"
"*/_region_.log" "*/_region_.tex"))
"*/_region_.tex"))
(use-package! org-super-agenda (use-package! org-super-agenda
:after org-agenda :after org-agenda
:init :init

@ -0,0 +1,13 @@
(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.
'(org-agenda-files
'("~/org/roam/20210219203225-acknowledge_him.org" "/home/kore/org/diluted-opinion.org" "/home/kore/org/todo.org")))
(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.
)

@ -1,53 +1,53 @@
;; -*- no-byte-compile: t; -*- ;; -*- no-byte-compile: t; -*-
;;; $DOOMDIR/packages.el ;;; $DOOMDIR/packages.el
;; To install a package with Doom you must declare them here and run 'doom sync' ;; To install a package with Doom you must declare them here and run 'doom sync'
;; on the command line, then restart Emacs for the changes to take effect -- or ;; on the command line, then restart Emacs for the changes to take effect -- or
;; use 'M-x doom/reload'. ;; use 'M-x doom/reload'.
;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror: ;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
;(package! some-package) ;(package! some-package)
;; To install a package directly from a remote git repo, you must specify a ;; To install a package directly from a remote git repo, you must specify a
;; `:recipe'. You'll find documentation on what `:recipe' accepts here: ;; `:recipe'. You'll find documentation on what `:recipe' accepts here:
;; https://github.com/raxod502/straight.el#the-recipe-format ;; https://github.com/raxod502/straight.el#the-recipe-format
;(package! another-package ;(package! another-package
; :recipe (:host github :repo "username/repo")) ; :recipe (:host github :repo "username/repo"))
;; If the package you are trying to install does not contain a PACKAGENAME.el ;; If the package you are trying to install does not contain a PACKAGENAME.el
;; file, or is located in a subdirectory of the repo, you'll need to specify ;; file, or is located in a subdirectory of the repo, you'll need to specify
;; `:files' in the `:recipe': ;; `:files' in the `:recipe':
;(package! this-package ;(package! this-package
; :recipe (:host github :repo "username/repo" ; :recipe (:host github :repo "username/repo"
; :files ("some-file.el" "src/lisp/*.el"))) ; :files ("some-file.el" "src/lisp/*.el")))
;; If you'd like to disable a package included with Doom, you can do so here ;; If you'd like to disable a package included with Doom, you can do so here
;; with the `:disable' property: ;; with the `:disable' property:
;(package! builtin-package :disable t) ;(package! builtin-package :disable t)
;; You can override the recipe of a built in package without having to specify ;; You can override the recipe of a built in package without having to specify
;; all the properties for `:recipe'. These will inherit the rest of its recipe ;; all the properties for `:recipe'. These will inherit the rest of its recipe
;; from Doom or MELPA/ELPA/Emacsmirror: ;; from Doom or MELPA/ELPA/Emacsmirror:
;(package! builtin-package :recipe (:nonrecursive t)) ;(package! builtin-package :recipe (:nonrecursive t))
;(package! builtin-package-2 :recipe (:repo "myfork/package")) ;(package! builtin-package-2 :recipe (:repo "myfork/package"))
;; Specify a `:branch' to install a package from a particular branch or tag. ;; Specify a `:branch' to install a package from a particular branch or tag.
;; This is required for some packages whose default branch isn't 'master' (which ;; This is required for some packages whose default branch isn't 'master' (which
;; our package manager can't deal with; see raxod502/straight.el#279) ;; our package manager can't deal with; see raxod502/straight.el#279)
;(package! builtin-package :recipe (:branch "develop")) ;(package! builtin-package :recipe (:branch "develop"))
;; Use `:pin' to specify a particular commit to install. ;; Use `:pin' to specify a particular commit to install.
;(package! builtin-package :pin "1a2b3c4d5e") ;(package! builtin-package :pin "1a2b3c4d5e")
;; Doom's packages are pinned to a specific commit and updated from release to ;; Doom's packages are pinned to a specific commit and updated from release to
;; release. The `unpin!' macro allows you to unpin single packages... ;; release. The `unpin!' macro allows you to unpin single packages...
;(unpin! pinned-package) ;(unpin! pinned-package)
;; ...or multiple packages ;; ...or multiple packages
;(unpin! pinned-package another-pinned-package) ;(unpin! pinned-package another-pinned-package)
;; ...Or *all* packages (NOT RECOMMENDED; will likely break things) ;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
;(unpin! t) ;(unpin! t)
(package! zetteldeft) (package! zetteldeft)
(package! org-roam-server) (package! org-roam-server)
(package! org-super-agenda) (package! org-super-agenda)

Loading…
Cancel
Save