- Elpaca
- Init File wrapper
- Init.el Creation Zone
- Cache
- Backup
- PERSONAL DETAILS
- USER-INTERFACE CUSTOMIZATION
- Modal Editing
- Dired
- NEO-TREE
- Keybindings
- Predicting layers
- MERMAID Setup
- wORG Microsome
- IDEA RSS
- CALIBRE
- TERMINAL
- Custom Configuration
;; -*- lexical-binding: t; -*-
; The loading of the Vibraniums
(add-to-list 'load-path "~/.config/emacs/vibraniums/")
;; The Elpaca Package Manager
(require 'elpaca-setup)
(elpaca-wait)
(use-package compat
:ensure t
:after elpaca)
(elpaca-wait)(let ((file-name-handler-alist nil)) "~/.config/emacs/init.el")This snippet adds a hook to org-mode buffers so that dr/org-babel-tangle-config gets executed each time such a buffer gets saved. This function checks to see if the file being saved is the Emacs.org file you’re looking at right now, and if so, automatically exports the configuration here to the associated output files.
;; Automatically tangle our config.org config file when we save it
(defun dr/org-babel-tangle-config ()
(when (string-equal (buffer-file-name)
(expand-file-name "~/.config/emacs/README.org"))
;; Dynamic scoping to the rescue
(let ((org-confirm-babel-evaluate nil))
(org-babel-tangle)
)))
(add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'dr/org-babel-tangle-config nil 'make-it-local)))To execute or export code in org-mode code blocks, you’ll need to set up org-babel-load-languages for each language you’d like to use.
(org-babel-do-load-languages
'org-babel-load-languages
'((emacs-lisp . t)
(python . t)
(R . t)
(scheme . t)
))
(push '("conf-unix" . conf-unix) org-src-lang-modes)(add-to-list 'native-comp-eln-load-path (expand-file-name "eln-cache/" user-emacs-directory))(setq backup-directory-alist '((".*" . "~/.config/emacs/.trash")))(setq user-full-name "Ivan Pereira"
user-mail-address "ivan.pereira@mailfence.com")This section configures basic UI settings that remove unneeded elements to make Emacs look a lot more minimal and modern.
;; Disable line numbers for some modes
(dolist (mode '(
term-mode-hook
shell-mode-hook
treemacs-mode-hook
eshell-mode-hook))
(add-hook mode (lambda () (display-line-numbers-mode 0))))(setq default-frame-alist '((undecorated . t)))
(add-to-list 'default-frame-alist '(internal-border-width . 5))
(add-to-list 'default-frame-alist '(drag-internal-border . 1))(use-package fontaine
:ensure t)
(elpaca-wait)
(setq fontaine-latest-state-file
(locate-user-emacs-file "fontaine-latest-state.eld"))
(setq fontaine-presets
'((tiny
:default-family "Liberation Mono"
:default-height 130)
(small
:default-family "Liberation Mono"
:default-height 150)
(regular
:default-height 160)
(medium
:default-height 170)
(large
;:default-weight semilight
:default-height 190
:bold-weight extrabold)
(presentation
;:default-weight semilight
:default-height 190
:bold-weight extrabold)
(jumbo
;:default-weight semilight
:default-height 240
:bold-weight extrabold)
(t
;; I keep all properties for didactic purposes, but most can be
;; omitted. See the fontaine manual for the technicalities:
;; <https://protesilaos.com/emacs/fontaine>.
:default-family "Liberation Mono"
:default-weight regular
:default-height 160
:fixed-pitch-family nil ; falls back to :default-family
:fixed-pitch-weight nil ; falls back to :default-weight
:fixed-pitch-height 1.0
:fixed-pitch-serif-family nil ; falls back to :default-family
:fixed-pitch-serif-weight nil ; falls back to :default-weight
:fixed-pitch-serif-height 1.0
:variable-pitch-family "Liberation Monos"
:variable-pitch-weight nil
:variable-pitch-height 1.0
:bold-family nil ; use whatever the underlying face has
:bold-weight bold
:italic-family nil
:italic-slant italic
:line-spacing nil)))
;; Recover last preset or fall back to desired style from
;; `fontaine-presets'.
(fontaine-set-preset (or (fontaine-restore-latest-preset) 'regular))
;; The other side of `fontaine-restore-latest-preset'.
(add-hook 'kill-emacs-hook #'fontaine-store-latest-preset)
;; fontaine does not define any key bindings. This is just a sample that
;; respects the key binding conventions. Evaluate:
;;;; Enable line numbers
(global-display-line-numbers-mode t)(use-package all-the-icons
:if (display-graphic-p))(use-package nerd-icons)(use-package dashboard
:config
(dashboard-setup-startup-hook)
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))))
;; Set the title
(setq dashboard-banner-logo-title "Welcome to Forgers Board")
;; Set the banner
;; (setq dashboard-startup-banner 'logo)
(setq dashboard-startup-banner "~/Pictures/DP/CosmoDoc-modified.png")
;; Show shortcut indicators
(setq dashboard-show-shortcuts t)
;; Value can b
;; - nil to display no banner
;; - 'official which displays the official emacs logo
;; - 'logo which displays an alternative emacs logo
;; - 1, 2 or 3 which displays one of the text banners
;; - "path/to/your/image.gif", "path/to/your/image.png" or "path/to/your/text.txt" which displays whatever gif/image/text you would prefer
;; - cons of '("path/to/your/image.png" . "path/to/your/text.txt")
(setq dashboard-items '((recents . 5) ;; Display 5 recent files
(agenda . 5) ;; Display 5 agenda items
(bookmarks . 5) ;; Display 5 bookmarked files
;; Add other sections as needed
))
;; Content is not centered by default. To center, set
(setq dashboard-center-content t)
(add-hook 'dashboard-setup-startup-hook (lambda () (display-line-numbers-mode 0)))
;; To disable shortcut "jump" indicators for each section, set
(setq dashboard-show-shortcuts t)
(setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal
(setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package- I need to find out why this not considered to be not safe
- What is the reason
(use-package ef-themes
:config
(load-theme 'ef-elea-dark :no-confirm)) (use-package doom-modeline
:init (doom-modeline-mode 1)
:custom ((doom-modeline-height 30)))(use-package diminish)(use-package bufler
:ensure (bufler :fetcher github :repo "alphapapa/bufler.el"
:files (:defaults (:exclude "helm-bufler.el")))) (use-package smartparens
:ensure (smartparens :host github :repo "Fuco1/smartparens")
:config
(smartparens-global-mode t) )
;; Customize smartparens behavior for ~
;(sp-pair "~" "~" :trigger "~"))(use-package rainbow-delimiters
:hook (prog-mode . rainbow-delimiters-mode))(use-package meow
:config
(require 'meow-qwerty)
(meow-setup)
(meow-global-mode 1)
(setq meow-expand-exclude-mode-list (remove 'org meow-expand-exclude-mode-list))
(setq meow-use-clipboard t)
)(use-package all-the-icons-dired
:hook (dired-mode . (lambda () (all-the-icons-dired-mode t))))this helps to open specific files
(use-package dired-open
:config
;; Doesn't work as expected!
;;(add-to-list 'dired-open-functions #'dired-open-xdg t)
(setq dired-open-extensions '(("png" . "feh")
("mkv" . "mpv")))) (use-package neotree
:config
(setq neo-theme (if (display-graphic-p) 'icons 'arrow))
(add-hook 'find-file-hook (lambda () (display-line-numbers-mode 0)))) (use-package vertico
:custom
(vertico-cycle t)
:config
(vertico-mode 1))- you can also use “vertico-extension/postframe” for having afloting menu
:M-x
(use-package corfu
;; `global-corfu-modes' to exclude certain modes.
:init
(global-corfu-mode)
;; Optional customizations
:custom
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
(corfu-auto t) ;; Enable auto-completion
;; (corfu-separator ?\s) ;; Orderless field separator
;; (corfu-quit-at-boundary nil) ;; Never quit at completion boundary
;; (corfu-quit-no-match nil) ;; Never quit, even if there is no match
;; (corfu-preview-current nil) ;; Disable current candidate preview
(corfu-preselect 'prompt) ;; Preselect the prompt
;; (corfu-on-exact-match nil) ;; Configure handling of exact matches
;; (corfu-scroll-margin 5) ;; Use scroll margin
(corfu-auto-delay 0.0) ;; Enable auto-completion
;; Enable Corfu only for certain modes.
;; :hook ((prog-mode . corfu-mode)
;; (shell-mode . corfu-mode)
;; (eshell-mode . corfu-mode))
;; Recommended: Enable Corfu globally. This is recommended since Dabbrev can
;; be used globally (M-/). See also the customization variable
:bind
(:map corfu-map
("TAB" . corfu-next)
([backtab] . corfu-previous)))
(use-package nerd-icons-corfu
:after corfu
:init (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter)) (use-package marginalia
:init
(marginalia-mode)
:custom
(marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil))) (use-package orderless
:init
;; Tune the global completion style settings to your liking!
;; This affects the minibuffer and non-lsp completion at point.
(setq completion-styles '(orderless partial-completion basic)
completion-category-defaults nil
completion-category-overrides nil)
)(use-package consult)(use-package embark
:config
(setq embark-action-indicator
(lambda (map)
(which-key--show-keymap "Embark" map nil nil 'no-paging)
#'which-key--hide-popup-ignore-command)
embark-become-indicator embark-action-indicator))
(use-package embark-consult)(setq savehist-mode t)(use-package langtool
:ensure (langtool :host github :repo "mhayashi1120/Emacs-langtool")
:init
(setq langtool-language-tool-jar "~/.config/emacs/LanguageTool/languagetool-commandline.jar")
(setq langtool-default-language "en-GB"))(use-package ob-mermaid
:config
(org-babel-do-load-languages 'org-babel-load-languages '((mermaid . t)))) (setq org-startup-indented t
org-pretty-entities t
org-hide-emphasis-markers t
org-startup-with-inline-images t)
(add-hook 'org-mode-hook (lambda () (display-line-numbers-mode 0))) (use-package org-modern
:ensure(org-modern :host github :repo "minad/org-modern")
:init
(with-eval-after-load 'org (global-org-modern-mode))
)
(setq
;; Edit settings
org-auto-align-tags nil
org-tags-column 0
org-catch-invisible-edits 'show-and-error
org-special-ctrl-a/e t
org-insert-heading-respect-content t
;; Org styling, hide markup etc.
org-hide-emphasis-markers t
org-pretty-entities t
org-ellipsis "…"
;; Agenda styling
org-agenda-tags-column 0
org-agenda-block-separator ?─
org-agenda-time-grid
'((daily today require-timed)
(800 1000 1200 1400 1600 1800 2000)
" ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")
org-agenda-current-time-string
"◀── now ─────────────────────────────────────────────────")
(use-package org-sticky-header
:ensure (org-sticky-header :host github :repo "alphapapa/org-sticky-header")
:after (org)
:demand t
:after org
:hook (org-mode . org-sticky-header-mode)
:config
(setq org-sticky-header-full-path 'full)
(setq org-sticky-header-outline-path-separator " ❱ ")
(setq org-sticky-header-face-list
'((header-line . (:inherit mode-line :background "gray90" :foreground "black" :box nil)))))(use-package org-journal)(setq org-agenda-start-on-weekday 0) ; 0 for Sunday, 1 for Monday, and so on
(setq org-log-done t)(setq org-todo-keywords '((sequence "IDEA(i)" "PLAN(p)" "SCHEDULE(s)" "TODO(t)" "In-Progress(r)" "CANCELLED(c)" "DEFERRED(f)" "DONE(d)")))(setq org-highest-priority ?A ; Highest priority is 'A'
org-lowest-priority ?D ; Lowest priority is 'D'
org-default-priority ?C) ; Default priority is 'C'(use-package org-recur
:hook ((org-mode . org-recur-mode)
(org-agenda-mode . org-recur-agenda-mode))
:demand t
:config
(setq org-recur-finish-done t
org-recur-finish-archive t));; Customize the variable org-refile-targets to specify the refile targets.
;; The example below sets it to refile headlines in the current buffer,
;; as well as in the "~/path/to/destination.org" file.
(setq org-refile-targets '(;(nil :maxlevel . 7)
("/home/Dr.Eccentric/Documents/wORG/My-Personal/Transmogrify/Niflheim.org" :maxlevel . 7)))
;; Optionally, set org-refile-use-outline-path to t to show the full outline path in the completion.
(setq org-refile-use-outline-path t)
;; Optionally, set org-outline-path-complete-in-steps to t for better completion.
(setq org-outline-path-complete-in-steps t)
;; Optionally, set org-refile-allow-creating-parent-nodes to t to allow creating non-existing parent nodes.
(setq org-refile-allow-creating-parent-nodes 'confirm) (use-package org-super-agenda
:demand t
:init
(setq org-super-agenda-mode 1)
(setq org-agenda-custom-commands
'(("x" "Eisenhower Matrix"
((agenda ""
((org-agenda-span 'week)
(org-agenda-start-day "+0d")
(org-super-agenda-groups
'((:name "Urgent & Important" :priority "A")
(:name "Important, Not Urgent" :priority "B")
(:name "Urgent, Not Important" :priority "C")
(:name "Not Urgent & Not Important" :priority "D")))))))))) (use-package org-hyperscheduler
:ensure (org-hyperscheduler :fetcher github :repo "dmitrym0/org-hyperscheduler"))
;(org-hyper-schedule-mode))
(setq org-hyperscheduler-exclude-from-org-roam t) (use-package org-caldav
:config
(setq org-caldav-url "https://cloud.disroot.org/remote.php/dav/"
org-caldav-calendar-id "calendars/xanaus/transmogrify/"
org-caldav-inbox "/home/Dr.Eccentric/Documents/wORG/My-Personal/Transmogrify/caldav.org"
org-caldav-files '("/home/Dr.Eccentric/Documents/wORG/My-Personal/Transmogrify/GTD.org"
"/home/Dr.Eccentric/Documents/wORG/My-Personal/Transmogrify/appointment.org"
"/home/Dr.Eccentric/Documents/wORG/My-Personal/Transmogrify/birthday.org"
"/home/Dr.Eccentric/Documents/wORG/My-Personal/Transmogrify/Stone-Tablet.org"))
(setq org-caldav-save-directory "/home/Dr.Eccentric/Documents/wORG/My-Personal/Transmogrify/caldav")
(setq org-caldav-delete-org-entries 'always
org-caldav-delete-calendar-entries 'never)
) (use-package org-roam
:ensure (org-roam :host github :repo "org-roam/org-roam"
:files (:defaults "extensions/*") )
:init
(setq org-roam-v2-ack t)
(org-roam-db-autosync-mode)
(require 'org-roam-protocol)
:config
(setq org-id-location "~/Documents/wORG/Org-ROAM/Alexandria" )
(setq org-fold-catch-invisible-edits t)
)(setq org-roam-db-node-include-function
(lambda ()
(not (member "ATTACH" (org-get-tags))))) (use-package org-roam-dblocks
:ensure (org-roam-dblocks :host github :repo "chrisbarrett/nursery" :files (:exclude "images/*") :main "lisp/org-roam-dblocks.el")
n :hook (org-mode . org-roam-dblocks-autoupdate-mode))(setq org-directory "~/Documents/wORG/Colloquy")
(setq org-agenda-files '("~/Documents/wORG/My-Personal/Transmogrify"))
(setq org-journal-dir "~/Documents/wORG/MyPersonal/My-Microsome")
(setq org-roam-directory "~/Documents/wORG/Org-ROAM/Alexandria") (use-package org-remark
:ensure (org-remark :host github :repo "nobiot/org-remark")
;; Alternative way to enable `org-remark-global-tracking-mode' in
;; `after-init-hook'.
;; :hook (after-init . org-remark-global-tracking-mode)
:init
;; It is recommended that `org-remark-global-tracking-mode' be
;; enabled when Emacs initializes. Alternatively, you can put it to
;; `after-init-hook' as in the comment above
(org-remark-global-tracking-mode 1))
(elpaca-wait)
(require 'org-remark-info)
(org-remark-info-mode 1)
(require 'org-remark-eww)
(org-remark-eww-mode 1)
; Optional if you would like to highlight EPUB books via nov.el
(with-eval-after-load 'nov
(org-remark-nov-mode +1))
; (require 'org-remark-nov)
; (org-remark-nov-mode 1)
(use-package org-roam-timestamps
:after org-roam
:config (org-roam-timestamps-mode))
(setq org-roam-timestamps-timestamp-parent-file t)
(setq org-roam-timestamps-remember-timestamps t)
(setq org-roam-timestamps-minimum-gap 3600)(require 'org-tempo)
(add-to-list 'org-structure-template-alist '("sh" . "src shell"))
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("mer" . "src mermaid"))
(add-to-list 'org-structure-template-alist '("py" . "src python"))(define-abbrev global-abbrev-table "m" "* Thyroid\n** Embryology\n** Anatomy** Physiology Functions\n** Pathology** Clinical Parameters to look out for\n** Pharmacology")
(setq-default abbrev-mode t)(use-package org-side-tree) (use-package olivetti
:demand t
:hook
(org-mode . olivetti-mode)
:init
(setq olivetti-body-width 140)
)In the past, textbooks were sometimes published as interleaved editions. That meant, each page was followed by a blank page and ambitious students/scholars had the ability to take their notes directly in their copy of the textbook.
(use-package org-noter)(use-package nov
:mode ("\\.epub\\'" . nov-mode))
(use-package pdf-tools)
(use-package djvu)(use-package consult-org-roam
:demand t
:after org-roam
:init
(require 'consult-org-roam)
;; Activate the minor mode
(consult-org-roam-mode 1)
:custom
;; Use `ripgrep' for searching with `consult-org-roam-search'
(consult-org-roam-grep-func #'consult-ripgrep)
;; Configure a custom narrow key for `consult-buffer'
(consult-org-roam-buffer-narrow-key ?r)
;; Display org-roam buffers right after non-org-roam buffers
;; in consult-buffer (and not down at the bottom)
(consult-org-roam-buffer-after-buffers t)
:config
;; Eventually suppress previewing for certain functions
(consult-customize
consult-org-roam-forward-links
:preview-key "M-.")
:bind
;; Define some convenient keybindings as an addition
("C-c r c f" . consult-org-roam-file-find)
("C-c r c b" . consult-org-roam-backlinks)
("C-c r c l" . consult-org-roam-forward-links)
("C-c r c s" . consult-org-roam-search))(use-package org-present
:demand t
:config
(setq org-present-text-scale 3
org-present-mode-hook
(lambda ()
(org-present-big)
(org-display-inline-images)
(org-present-hide-cursor)
(org-present-read-only))))(setq org-journal-date-prefix "#+TITLE:"
org-journal-time-prefix "* "
org-journal-date-format "%A, %F"
org-journal-file-format "%F.org")(setq org-roam-capture-templates
`(("d" "Default" plain "%?"
:target (file+head "${slug}.org" "#+title:${title}\n#+filetags: ${tag}\n#+OPTIONS: toc:nil timestamp:t")
:unnarrowed t)
("r" "Roam Note" plain "%?"
:target (file+head "${slug}.org" "#+title: ${title}\n#+filetags: ${tag}\n#+OPTIONS: toc:nil timestamp:t\n\n* Thing that I have understood\n\n* Thing that I have 50-50% Confidence\n\n* Thing that I blew past my head and need to review\n\n* Research Article\n\n* Devil's Advocate Corner\n\n")
:unnarrowed t)))
(use-package elfeed
:demand t)
(use-package elfeed-score
:demand t
:config
(elfeed-score-enable))
; (require 'zotearo)(use-package relative-date
:ensure (relative-date :host github :repo "rougier/relative-date"))
(use-package nano-elfeed
:ensure (nano-elfeed :host github :repo "rougier/nano-elfeed"));; Configure Elfeed with org mode
(use-package elfeed-org
:config
(elfeed-org)
:custom
(rmh-elfeed-org-files (list ews-elfeed-config-file)))
;; Easy insertion of weblinks
(use-package org-web-tools
:bind
(("C-c w w" . org-web-tools-insert-link-for-url)))(use-package elfeed-dashboard
:ensure t
:config
(setq elfeed-dashboard-file "~/elfeed-dashboard.org")
;; update feed counts on elfeed-quit
(advice-add 'elfeed-search-quit-window :after #'elfeed-dashboard-update-links)) (use-package eat
:ensure (eat
:host codeberg
:repo "akib/emacs-eat"
:files ("*.el" ("term" "term/*.el") "*.texi"
"*.ti" ("terminfo/e" "terminfo/e/*")
("terminfo/65" "terminfo/65/*")
("integration" "integration/*")
(:exclude ".dir-locals.el" "*-tests.el")))) (global-set-key (kbd "C-c e") 'open-my-config)
(defun open-my-config ()
"Open README.org ."
(interactive)
(find-file "~/.config/emacs/README.org"))
(global-set-key (kbd "C-c b") 'bufler-switch-buffer)
(global-set-key (kbd "C-c K") 'kill-this-buffer)
(global-set-key (kbd "C-c t") 'eat)(global-set-key (kbd "C-x b") 'org-switchb)
(global-set-key (kbd "C-c o c i") 'org-clock-in)
(global-set-key (kbd "C-c o c o") 'org-clock-out)
(global-set-key (kbd "C-c o n") 'my-create-org-file)
;; Function to create a new org file
(defun my-create-org-file ()
"Create a new org file with a prompt for the file name."
(interactive)
(let ((org-file-name (read-file-name "Enter org file name: ")))
(find-file (concat org-file-name ".org"))
(insert "#+TITLE: " (file-name-base org-file-name) "\n\n")
(org-mode)))
;; You can add more custom keybindings or configurations below if needed.(global-set-key (kbd "C-c a") 'org-agenda)
(global-set-key (kbd "C-c o a") 'org-capture)
(global-set-key (kbd "C-c l") 'org-store-link)the following is used to assign the files to which the agenda is to be captured
(setq org-capture-templates
'(("a" "Appointment" entry (file+headline "~/Documents/wORG/My-Personal/Transmogrify/appointment.org" "Tasks")
"* PLAN %?\nSCHEDULED: %^T\n")
("b" "Birthday" entry (file+headline "~/Documents/wORG/My-Personal/Transmogrify/birthday.org" "Birthdays")
"* PLAN %?\nSCHEDULED: %^T\n")
("g" "GTD Task" entry (file+headline "~/Documents/wORG/My-Personal/Transmogrify/GTD.org" "Tasks")
"* PLAN %?\nSCHEDULED: %^T\n")
("p" "Project" entry (file+headline "~/Documents/wORG/My-Personal/Transmogrify/Stone-Tablet.org" "Projects")
"* PLAN %?\nSCHEDULED: %^T\n")
;; Add more templates as needed
))(global-set-key (kbd "C-c r n") 'org-roam-capture)
(global-set-key (kbd "C-c r f") 'org-roam-node-find)
(global-set-key (kbd "C-c r m") 'completion-at-point)
(global-set-key (kbd "C-c r a t") 'org-roam-tag-add)
(global-set-key (kbd "C-c r a r") 'org-roam-ref-add) (setq custom-file "~/.config/emacs/custom.el")
(add-hook 'elpaca-after-init-hook
(lambda ()
(when (file-exists-p custom-file)
(load custom-file 'noerror))))
;; Local Variables:
;; no-byte-compile: t
;; End: