From 47a2b2c8caff2a59ab6d67ffae837811fc24ccf5 Mon Sep 17 00:00:00 2001 From: jdlugosz963 Date: Sun, 2 Jul 2023 15:52:32 +0200 Subject: Remove old org config files. --- Desktop.org | 525 ---------------------------- Emacs.org | 1091 ----------------------------------------------------------- Mail.org | 142 -------- 3 files changed, 1758 deletions(-) delete mode 100644 Desktop.org delete mode 100644 Emacs.org delete mode 100644 Mail.org diff --git a/Desktop.org b/Desktop.org deleted file mode 100644 index 595e278..0000000 --- a/Desktop.org +++ /dev/null @@ -1,525 +0,0 @@ -#+title: Desktop Configuration -#+author: jdlugosz963 -#+PROPERTY: header-args:emacs-lisp :tangle .config/emacs/exwm/desktop.el - - -* EXWM -** Config - -#+begin_src emacs-lisp - - (defun jd/exwm-update-class () - (exwm-workspace-rename-buffer exwm-class-name)) - - (defun jd-exwm/run-in-background (command) - (let ((command-parts (split-string command "[ ]+"))) - (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts))))) - - (defun jd-exwm/restart-process (program-name) - (call-process "killall" nil nil nil program-name) - (jd-exwm/run-in-background program-name)) - - (defun jd-exwm/exwm-init-hook () - (jd-exwm/run-in-background "nitrogen --restore") - (start-process-shell-command "xinput" nil "xinput set-prop 'ETPS/2 Elantech Touchpad' 'Synaptics Tap Action' 1 1 1 2 1") - (start-process-shell-command "syndaemon" nil "syndaemon -i 0.8 -K -R -d") - - (jd-exwm/restart-process "polybar") - (jd-exwm/restart-process "nm-applet") - (jd-exwm/restart-process "redshift-gtk -l 54.37:18.6") - (jd-exwm/restart-process "blueman-applet")) - - (defun jd-exwm/exwm-update-title () - (exwm-workspace-rename-buffer exwm-title)) - - (defun jd-exwm/configure-window-by-class () - (interactive) - (pcase exwm-class-name - ("firefox" (exwm-workspace-move-window 2)) - ("Brave" (exwm-workspace-move-window 2)) - ("qutebrowser" (exwm-workspace-move-window 2)) - ("discord" (exwm-workspace-move-window 5)) - ("obs" (exwm-workspace-move-window 5)) - ("Virt-manager" (exwm-workspace-move-window 4)))) - - (use-package exwm - :config - (setq exwm-workspace-number 10) - - (add-hook 'exwm-init-hook #'jd-exwm/exwm-init-hook) - (add-hook 'exwm-update-class-hook #'jd/exwm-update-class) - (add-hook 'exwm-update-title-hook #'jd-exwm/exwm-update-title) - (add-hook 'exwm-manage-finish-hook #'jd-exwm/configure-window-by-class) - - (require 'exwm-randr) - (setq exwm-randr-workspace-monitor-plist '(9 "eDP-1" 0 "eDP-1")) - (exwm-randr-enable) - - (setq exwm-input-simulation-keys - '(([?\C-h] . [left]) - ([?\C-l] . [right]) - ([?\C-k] . [up]) - ([?\C-j] . [down]))) - - (setq exwm-input-prefix-keys - '(?\C-x - ?\C-u - ?\C-h - ?\M-x - ?\M-` - ?\M-& - ?\M-: - ?\C-\M-j - ?\C-\ )) - - (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key) - (exwm-input-set-key (kbd "s-p") 'counsel-linux-app) - - (setq exwm-input-global-keys - `(([?\s-R] . exwm-reset) - - - ([?\s-r] . (lambda (command) - (interactive (list (read-shell-command "$ "))) - (start-process-shell-command command nil command))) - - ([?\s-W] . exwm-workspace-move-window) - ([?\s-w] . exwm-workspace-switch) - - ,@(mapcar (lambda (i) - `(,(kbd (format "s-%d" i)) . - (lambda () - (interactive) - (exwm-workspace-switch-create ,i)))) - (number-sequence 0 9)))) - - (exwm-enable)) - -#+end_src -** Desktop mode - -#+begin_src emacs-lisp - - (use-package desktop-environment - :after exwm - :config (desktop-environment-mode) - :custom - (desktop-environment-brightness-small-increment "2%+") - (desktop-environment-brightness-small-decrement "2%-") - (desktop-environment-brightness-normal-increment "5%+") - (desktop-environment-brightness-normal-decrement "5%-")) - -#+end_src - -** Transparency - -#+begin_src emacs-lisp - - (set-frame-parameter (selected-frame) 'alpha '(90 . 90)) - (add-to-list 'default-frame-alist `(alpha . (90 . 90))) - (set-frame-parameter (selected-frame) 'fullscreen 'maximized) - (add-to-list 'default-frame-alist '(fullscreen . maximized)) - -#+end_src - -** Update colorsheme -#+begin_src emacs-lisp - - (defun jd-exwm/get-color (ATTRIBUTE) - (face-attribute 'default ATTRIBUTE)) - - (defun theme-to-xresources () - (interactive) - (require 'term) - (with-temp-buffer - (insert "! Generated by theme-to-xresources\n") - (dolist (spec - '(("emacs.background" :background "E6") - ("emacs.foreground" :foreground ""))) - (let ((color (jd-exwm/get-color (cadr spec)))) - (insert (format "%s: #%s%s\n" - (car spec) - (caddr spec) - (string-remove-prefix "#" color)))) - (write-region (point-min) (point-max) "~/.Xresources"))) - (call-process "xrdb" nil nil nil "-merge" (expand-file-name "~/.Xresources"))) - - (defun jd/theme-sync () - (interactive) - (theme-to-xresources) - (setq org-confirm-babel-evaluate nil) - (org-babel-tangle-file "~/dotfiles/Desktop.org") - (setq org-confirm-babel-evaluate 't) - (call-process "killall" nil nil nil "dunst") ;; TODO: prevent clear notification history - (jd-exwm/restart-process "polybar")) - - (add-hook 'jd/load-theme-hook #'jd/theme-sync) - (add-hook 'exwm-init-hook #'jd/theme-sync) - - -#+end_src -** Start emacs - -#+begin_src sh :tangle ~/.config/emacs/exwm/start.sh - #!/bin/sh - - picom & - - xss-lock -- slock & - - export VISUAL="emacsclient -a vim" - export EDITOR="$VISUAL" - export GTK_THEME="Adwaita:dark" - export CALIBRE_USE_DARK_PALETTE=1 - - gentoo-pipewire-launcher & - - exec dbus-launch --exit-with-session emacs -mm --debug-init -l ~/.config/emacs/exwm/desktop.el - -#+end_src - -* Dunst -*Dunst keybinds in Emacs* - -#+begin_src emacs-lisp - - (defun jd/dunst-show-history () - (interactive) - (start-process-shell-command "dunstctl" nil "dunstctl history-pop")) - - (defun jd/dunst-close () - (interactive) - (start-process-shell-command "dunstctl" nil "dunstctl close")) - - (defun jd/dunst-close-all () - (interactive) - (start-process-shell-command "dunstctl" nil "dunstctl close-all")) - - (jd/leader-key-def - "d" '(nil :which-key "dunst") - "dh" '(jd/dunst-show-history :which-key "show history") - "dc" '(jd/dunst-close :which-key "close") - "da" '(jd/dunst-close-all :which-key "close all")) - -#+end_src - -*Get emacs colors* -#+NAME: get-color -#+BEGIN_SRC elisp :var ATTR="" :tangle no :eval yes - (if (and (stringp ATTR) (s-prefix-p ":" ATTR)) - (jd-exwm/get-color (intern ATTR)) - "") -#+END_SRC - -*dunstrc* - -#+begin_src conf :tangle .config/dunst/dunstrc :noweb yes :eval yes - - [global] - frame_width = 2 - frame_color = "<>" - font = sourcecodepro - - # Allow a small subset of html markup: - # bold - # italic - # strikethrough - # underline - # - # For a complete reference see - # . - # If markup is not allowed, those tags will be stripped out of the - # message. - markup = yes - - # The format of the message. Possible variables are: - # %a appname - # %s summary - # %b body - # %i iconname (including its path) - # %I iconname (without its path) - # %p progress value if set ([ 0%] to [100%]) or nothing - # Markup is allowed - format = "%s %p\n%b" - - # Sort messages by urgency. - sort = yes - - # Show how many messages are currently hidden (because of geometry). - indicate_hidden = yes - - # Alignment of message text. - # Possible values are "left", "center" and "right". - alignment = left - - # The frequency with wich text that is longer than the notification - # window allows bounces back and forth. - # This option conflicts with "word_wrap". - # Set to 0 to disable. - bounce_freq = 5 - - - # Show age of message if message is older than show_age_threshold - # seconds. - # Set to -1 to disable. - show_age_threshold = 60 - - # Split notifications into multiple lines if they don't fit into - # geometry. - word_wrap = no - - # Ignore newlines '\n' in notifications. - ignore_newline = no - - - # The geometry of the window: - # [{width}]x{height}[+/-{x}+/-{y}] - # The geometry of the message window. - # The height is measured in number of notifications everything else - # in pixels. If the width is omitted but the height is given - # ("-geometry x2"), the message window expands over the whole screen - # (dmenu-like). If width is 0, the window expands to the longest - # message displayed. A positive x is measured from the left, a - # negative from the right side of the screen. Y is measured from - # the top and down respectevly. - # The width can be negative. In this case the actual width is the - # screen width minus the width defined in within the geometry option. - geometry = "500x10-10+50" - - # Shrink window if it's smaller than the width. Will be ignored if - # width is 0. - shrink = yes - - # The transparency of the window. Range: [0; 100]. - # This option will only work if a compositing windowmanager is - # present (e.g. xcompmgr, compiz, etc.). - transparency = 15 - - # Don't remove messages, if the user is idle (no mouse or keyboard input) - # for longer than idle_threshold seconds. - # Set to 0 to disable. - # default 120 - idle_threshold = 120 - - # Which monitor should the notifications be displayed on. - monitor = 0 - - # Display notification on focused monitor. Possible modes are: - # mouse: follow mouse pointer - # keyboard: follow window with keyboard focus - # none: don't follow anything - # - # "keyboard" needs a windowmanager that exports the - # _NET_ACTIVE_WINDOW property. - # This should be the case for almost all modern windowmanagers. - # - # If this option is set to mouse or keyboard, the monitor option - # will be ignored. - follow = mouse - - # Should a notification popped up from history be sticky or timeout - # as if it would normally do. - sticky_history = yes - - # Maximum amount of notifications kept in history - history_length = 20 - - # Display indicators for URLs (U) and actions (A). - show_indicators = yes - - # The height of a single line. If the height is smaller than the - # font height, it will get raised to the font height. - # This adds empty space above and under the text. - line_height = 0 - - # Draw a line of "separator_height" pixel height between two - # notifications. - # Set to 0 to disable. - separator_height = 1 - - # Padding between text and separator. - # padding = 8 - padding = 8 - - # Horizontal padding. - horizontal_padding = 10 - - # Define a color for the separator. - # possible values are: - # * auto: dunst tries to find a color fitting to the background; - # * foreground: use the same color as the foreground; - # * frame: use the same color as the frame; - # * anything else will be interpreted as a X color. - separator_color = #263238 - - # Print a notification on startup. - # This is mainly for error detection, since dbus (re-)starts dunst - # automatically after a crash. - startup_notification = false - - # dmenu path. - dmenu = /usr/bin/dmenu -p dunst: - - # Browser for opening urls in context menu. - browser = palemoon - - # Align icons left/right/off - icon_position = left - - # Limit icons size. - max_icon_size=128 - - [urgency_low] - # IMPORTANT: colors have to be defined in quotation marks. - # Otherwise the "#" and following would be interpreted as a comment. - background = "<>" - foreground = "#888888" - timeout = 10 - # Icon for notifications with low urgency, uncomment to enable - #icon = /path/to/icon - - [urgency_normal] - background = "<>" - foreground = "<>" - timeout = 10 - # Icon for notifications with normal urgency, uncomment to enable - #icon = /path/to/icon - - [urgency_critical] - background = "#900000" - foreground = "#ffffff" - frame_color = "#ff0000" - timeout = 0 - # Icon for notifications with critical urgency, uncomment to enable - #icon = /path/to/icon -#+end_src - -* Polybar - -#+begin_src conf :tangle .config/polybar/config.ini - - [settings] - screenchange-reload = true - pseudo-transparency = true - - [colors] - background = ${xrdb:emacs.background} - foreground = ${xrdb:emacs.foreground} - primary = #7fd962 - disabled = #707880 - - [bar/example] - width = 100% - height = 18pt - - background = ${colors.background} - foreground = ${colors.foreground} - - line-size = 1.5pt - - padding-left = 0 - padding-right = 1 - - module-margin = 1 - - separator = | - separator-foreground = ${colors.disabled} - - font-0 = "sourcecodepro:size=11" - font-1 = "FontAwesome" - - modules-left = xworkspaces - modules-right = memory cpu battery date - - cursor-click = pointer - cursor-scroll = ns-resize - - enable-ipc = true - - tray-position = right - - [module/xworkspaces] - type = internal/xworkspaces - - icon-0 = 1;0 - icon-1 = 2;1 - icon-2 = 3;2 - icon-3 = 4;3 - icon-4 = 5;4 - icon-5 = 6;5 - icon-6 = 7;6 - icon-7 = 8;7 - icon-8 = 9;8 - icon-9 = 10;9 - - label-active = %icon% - label-active-background = ${colors.background-alt} - label-active-underline= ${colors.primary} - label-active-padding = 1 - - label-occupied = %icon% - label-occupied-padding = 1 - - label-urgent = %icon% - label-urgent-background = ${colors.alert} - label-urgent-padding = 1 - - label-empty = %icon% - label-empty-foreground = ${colors.disabled} - label-empty-padding = 1 - - [module/battery] - type = internal/battery - battery = BAT0 - adapter = ADP1 - - format-charging = - format-discharging = - format-low = - format-full = - - label-charging = %percentage%% - label-discharging = %percentage%% - label-low = LOW %percentage%% - label-full = FULL %percentage%% - - ramp-capacity-0 =  - ramp-capacity-1 =  - ramp-capacity-2 =  - ramp-capacity-3 =  - ramp-capacity-4 =  - ramp-capacity-foreground = ${colors.primary} - - animation-charging-0 =  - animation-charging-1 =  - animation-charging-2 =  - animation-charging-3 =  - animation-charging-4 =  - animation-charging-foreground = ${colors.primary} - animation-charging-framerate = 750 - - [module/memory] - type = internal/memory - interval = 2 - format-prefix = "RAM " - format-prefix-foreground = ${colors.primary} - label = %percentage_used:2%% - - [module/cpu] - type = internal/cpu - interval = 2 - format-prefix = "CPU " - format-prefix-foreground = ${colors.primary} - label = %percentage:2%% - - [module/date] - type = internal/date - interval = 1 - - date = %H:%M - date-alt = %Y-%m-%d %H:%M:%S - - label = %date% - label-foreground = ${colors.primary} - -#+end_src diff --git a/Emacs.org b/Emacs.org deleted file mode 100644 index 536aa85..0000000 --- a/Emacs.org +++ /dev/null @@ -1,1091 +0,0 @@ -#+author: jdlugosz963 -#+PROPERTY: header-args:emacs-lisp :tangle .config/emacs/init.el - -* Table of contents :toc: -- [[#startup-performance][Startup Performance]] -- [[#on-startup][On startup]] -- [[#user-information-setup][User information setup]] -- [[#stay-clean][Stay clean]] -- [[#package-setup][Package setup]] -- [[#keyboard-setup][Keyboard Setup]] - - [[#general-setup][General Setup]] - - [[#evil-mode-setup][Evil mode setup]] -- [[#ui-configuration][UI Configuration]] - - [[#basic-ui-setup][Basic UI setup]] - - [[#hl-todo][Hl todo]] - - [[#ivy-and-counsel][Ivy and Counsel]] - - [[#which-key][Which key]] - - [[#modline][Modline]] - - [[#hydra][Hydra]] - - [[#beacon][Beacon]] - - [[#other-keybindings][Other Keybindings]] -- [[#org][Org]] - - [[#org-mode-setup][Org-mode setup]] - - [[#org-evil][Org evil]] - - [[#org-make-toc][Org make toc]] - - [[#org-fonts][Org fonts]] - - [[#org-tempo-setup][Org tempo setup]] - - [[#org-babel-setup][Org babel setup]] - - [[#org-margin][Org margin]] - - [[#org-superstar][Org superstar]] - - [[#org-roam][Org roam]] - - [[#langtoolel][langtool.el]] -- [[#development][Development]] - - [[#languages][Languages]] - - [[#company][Company]] - - [[#projectile][Projectile]] - - [[#neotree][Neotree]] - - [[#magit][Magit]] -- [[#apps][Apps]] - - [[#vterm][Vterm]] - - [[#dired][Dired]] - - [[#emms][EMMS]] - - [[#pdf-tools][PDF Tools]] - - [[#mu4e][Mu4e]] - - [[#rss][RSS]] -- [[#custom][Custom]] -- [[#runtime-performance][Runtime Performance]] - -* Startup Performance - -#+begin_src emacs-lisp - - (setq gc-cons-threshold (* 50 1000 1000)) - - (defun jd/display-startup-time () - (message "Emacs loaded in %s with %d garbage collections." - (format "%.2f seconds" - (float-time - (time-subtract after-init-time before-init-time))) - gcs-done)) - -#+end_src - -* On startup -=jd/startup= function will be invoke after emacs startup - -#+begin_src emacs-lisp - (defun jd/startup () - (electric-pair-mode 1) - (global-company-mode 1) - (jd/display-startup-time)) - - (add-hook 'emacs-startup-hook #'jd/startup) -#+end_src - -* User information setup - -#+begin_src emacs-lisp - - (setq user-full-name "Jakub Dlugosz" - user-mail-address "jdlugosz963@gmail.com") - -#+end_src - -* Stay clean - -#+begin_src emacs-lisp - - (setq backup-directory-alist '(("." . "~/.cache/emacs/backup")) - backup-by-copying t - version-control t - delete-old-versions t - kept-new-versions 20 - kept-old-versions 5) - - (setq user-emacs-directory "~/.cache/emacs") - -#+end_src - -* Package setup - -#+begin_src emacs-lisp - - (require 'package) - (setq package-archives '(("melpa" . "https://melpa.org/packages/") - ("org" . "https://orgmode.org/elpa/") - ("gnu-devel" . "https://elpa.gnu.org/devel/") - ("elpa" . "https://elpa.gnu.org/packages/"))) - (package-initialize) - - (unless package-archive-contents - (package-refresh-contents)) - - (unless (package-installed-p 'use-package) - (package-install 'use-package)) - - (setq use-package-always-ensure t) - - (add-to-list 'load-path ".config/emacs/jd/") - - (require 'use-package) - -#+end_src - -* Keyboard Setup -** General Setup - -#+begin_src emacs-lisp - - (use-package general - :config - (general-create-definer jd/leader-key-def - :keymaps '(normal insert visual emacs) - :prefix "SPC" - :global-prefix "C-SPC") - - (general-create-definer jd/ctrl-c-keys - :prefix "C-c")) - -#+end_src - -** Evil mode setup - -#+begin_src emacs-lisp - - (use-package undo-tree - :diminish - :config - (setq undo-tree-auto-save-history nil) - (global-undo-tree-mode 1)) - - (use-package evil - :init - (setq evil-want-integration t) - (setq evil-want-keybinding nil) - (setq evil-want-C-u-scroll t) - (setq evil-want-Y-yank-to-eol t) - (setq evil-want-C-i-jump nil) - (setq evil-undo-system 'undo-tree) - (setq evil-kill-on-visual-paste nil) - :config - (evil-set-initial-state 'exwm-mode 'emacs) - (evil-mode 1)) - - (use-package evil-collection - :after evil - :config - (evil-collection-init)) - -#+end_src - -*Keybinds* - -#+begin_src emacs-lisp - - (jd/leader-key-def - "w" 'evil-window-map - "wr" '(hydra-resize-window/body :which-key "Rezize window") - "wd" '(evil-window-delete :which-key "Window delete")) - - (jd/leader-key-def - "ou" '(undo-tree-visualize :which-key "Open")) - - ;; remove . key - (define-key evil-normal-state-map (kbd ".") '()) -#+end_src - -* UI Configuration -** Basic UI setup -#+begin_src emacs-lisp - - (setq inhibit-startup-message t) - (setq visible-bell t) - (scroll-bar-mode -1) - (tool-bar-mode -1) - (tooltip-mode -1) - (menu-bar-mode -1) - (set-fringe-mode 10) - - (set-face-attribute 'default nil :font "sourcecodepro" :height 100) - - (add-hook 'prog-mode-hook 'menu-bar--display-line-numbers-mode-relative) - - (global-set-key (kbd "") 'keyboard-escape-quit) - - (global-prettify-symbols-mode 1) - - (defalias 'yes-or-no-p 'y-or-n-p) - - (use-package doom-themes - :config - (load-theme 'doom-ayu-dark t)) - - (use-package diminish) - -#+end_src - -** Hl todo - -#+begin_src emacs-lisp - - (use-package hl-todo - :init - (setq hl-todo-keyword-faces - '(("TODO" . "#FF0000") - ("FIXME" . "#FF0000") - ("DEBUG" . "#A020F0"))) - :config - (global-hl-todo-mode 1)) - -#+end_src - -** Ivy and Counsel - -#+begin_src emacs-lisp - - (defun jd/switch-buffer () - (interactive) - (let ((completion-regexp-list '("\\`[^*]" - "\\`\\([^T]\\|T\\($\\|[^A]\\|A\\($\\|[^G]\\|G\\($\\|[^S]\\|S.\\)\\)\\)\\).*"))) - (call-interactively 'counsel-switch-buffer))) - - (defvar jd/load-theme-hook nil) - (defun jd/load-theme () - (interactive) - (counsel-load-theme) - (run-hooks 'jd/load-theme-hook)) - - (use-package ivy - :diminish - :bind - (("C-s" . swiper) - :map ivy-minibuffer-map - ("C-k" . ivy-previous-line) - ("C-j" . ivy-next-line) - :map ivy-switch-buffer-map - ("C-k" . ivy-previous-line)) - :config - (ivy-mode 1)) - - (use-package counsel - :config - (counsel-mode 1)) - -#+end_src - -*Keybinds* - -#+begin_src emacs-lisp - - (jd/leader-key-def - "t" '(:ignore t :which-key "Toggle") - "tT" '(toggle-truncate-lines :which-key "Toggle truncate lines") - "tt" '(jd/load-theme :which-key "Choose theme")) - - (jd/leader-key-def - "bb" '(jd/switch-buffer :which-key "Buffer switch") - "ba" '(counsel-switch-buffer :which-key "Buffer switch") - "b" '(:ignore t :which-key "Buffer") - "," '(counsel-switch-buffer :which-key "Buffer switch")) - -#+end_src - -** Which key - -#+begin_src emacs-lisp - - (use-package which-key - :diminish - :config - (which-key-mode) - (setq which-key-idle-delay 0.3)) - -#+end_src - -** Modline - -#+begin_src emacs-lisp - - (use-package all-the-icons) - - (use-package doom-modeline - :init (doom-modeline-mode 1) - :custom ((doom-modeline-height 15))) - -#+end_src - -** Hydra - -#+begin_src emacs-lisp - - (use-package hydra - :defer t) - - (defun jd/text-scale-increase () - (interactive) - (let ((old-face-attribute (face-attribute 'default :height))) - (set-face-attribute 'default nil :height (+ old-face-attribute 10)))) - - (defun jd/text-scale-decrease () - (interactive) - (let ((old-face-attribute (face-attribute 'default :height))) - (set-face-attribute 'default nil :height (- old-face-attribute 10)))) - - (defhydra hydra-resize-window (:timeout 4) - ("h" evil-window-decrease-width "<") - ("l" evil-window-increase-width ">") - ("k" evil-window-decrease-height "^") - ("j" evil-window-increase-height "v") - ("q" nil "finished" :exit t)) - - (defhydra hydra-text-scale-global (:timeout 4) - "scale text" - ("j" jd/text-scale-increase "in") - ("k" jd/text-scale-decrease "out") - ("q" nil "finished" :exit t)) - - (defhydra hydra-text-scale (:timeout 4) - "scale text" - ("j" text-scale-increase "in") - ("k" text-scale-decrease "out") - ("q" nil "finished" :exit t)) - - (jd/leader-key-def - "tS" '(hydra-text-scale-global/body :which-key "Scale text") - "ts" '(hydra-text-scale/body :which-key "Scale text")) - -#+end_src - -** Beacon - -#+begin_src emacs-lisp - - (use-package beacon - :config - (beacon-mode 1)) - -#+end_src - -** Other Keybindings -*** Files - -#+begin_src emacs-lisp - - (jd/leader-key-def - "f" '(:ignore t :which-key "Files") - "fs" '(save-buffer :which-key "File save") - "." '(find-file :which-key "Find file") - "ff" '(find-file :which-key "Find file")) - -#+end_src - -*** Eval - -#+begin_src emacs-lisp - - (jd/leader-key-def - "e" '(:ignore t :which-key "Eval") - "eb" '(eval-buffer :which-key "Eval buffer") - "ee" '(eval-defun :which-key "Eval defun")) - - (jd/leader-key-def - :keymaps '(visual) - "er" '(eval-region :which-key "Eval region")) - -#+end_src - -*** Buffers - -#+begin_src emacs-lisp - - (defun jd/kill-other-buffers () - (interactive) - (mapc 'kill-buffer (cdr (buffer-list (current-buffer))))) - - (jd/leader-key-def - "bK" '(jd/kill-other-buffers :which-key "Kill other buffers") - "bk" '(kill-current-buffer :which-key "Kill buffer") - "bB" '(ibuffer :which-key "Open ibuffer")) - -#+end_src - -* Org -** Org-mode setup - -*Define variables* - -#+begin_src emacs-lisp - (setq jd/org-home "~/Documents/Org") - (setq jd/org-roam-home (concat jd/org-home "/roam")) - (setq jd/org-roam-daily-home (concat jd/org-home "/roam/daily")) -#+end_src - -#+begin_src emacs-lisp - - (defun jd/org-mode-setup () - (org-indent-mode) - (variable-pitch-mode 1) - (visual-line-mode 1)) - - (use-package org - :pin org - :commands (org-capture org-agenda) - :hook (org-mode . jd/org-mode-setup) - :config - (setq org-directory (file-truename "~/Documents/Org/")) - (setq org-mobile-inbox-for-pull (concat org-directory "flagged.org")) - (setq org-mobile-directory "~/Dropbox/Apps/MobileOrg") - (setq org-agenda-files - '("Tasks.org")) - (setq org-ellipsis " ▾") - (setq org-agenda-start-with-log-mode t) - (setq org-log-done 'time) - (setq org-log-into-drawer t) - (setq org-return-follows-link t) - (setq org-capture-templates - `(("t" "Tasks / Projects") - ("tt" "Task" entry (file+olp "Tasks.org" "Inbox") - "* TODO %?\n %t\n %a\n %i" :empty-lines 1) - ("tT" "Task for tomorow" entry (file+olp "Tasks.org" "Inbox") - "* TODO %?\n %t\n SCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+1d\"))\n %a\n %i" :empty-lines 1) - - ("m" "Metrics Capture") - ("mm" "Metrics" table-line (file+headline "Metrics.org" "Metrics") - "| %U | %^{Weight} | %^{Waist} | %^{Notes} |" :kill-buffer t))) - - (setq org-latex-listings 'minted - org-latex-packages-alist '(("" "minted")) - org-latex-pdf-process - '("pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f" - "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f")) - - (require 'org-tempo)) - -#+end_src - -*Keybinds* - -#+begin_src emacs-lisp - - (jd/leader-key-def - "o" '(:ignore t :which-key "Open/Org") - "oc" '(org-capture :which-key "Open org-capture") - "oop" '(org-mobile-pull :which-key "Org mobile pull") - "ooP" '(org-mobile-push :which-key "Org mobile push") - "oa" '(org-agenda :which-key "Open org-agenda")) - -#+end_src - -** Org evil - -#+begin_src emacs-lisp - - (use-package evil-org - :after org - :hook (org-mode . (lambda () evil-org-mode)) - :config - (require 'evil-org-agenda) - (evil-org-agenda-set-keys)) - -#+end_src - -** Org make toc - -#+begin_src emacs-lisp - - (use-package toc-org - :config - (add-hook 'org-mode-hook 'toc-org-mode)) - -#+end_src - -** Org fonts - -#+begin_src emacs-lisp - - (defun jd/org-font-setup () - ;; Replace list hyphen with dot - (font-lock-add-keywords 'org-mode - '(("^ *\\([-]\\) " - (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•-")))))) - - ;; Set faces for heading levels - (dolist (face '((org-level-1 . 1.3) - (org-level-2 . 1.2) - (org-level-3 . 1.1) - (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 "sans" :weight 'Bold :height (cdr face))) - - ;; Ensure that anything that should be fixed-pitch in Org files appears that way - (set-face-attribute 'org-block nil :font "hack" :inherit 'fixed-pitch) - (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-table nil :font "hack ":inherit '(shadow 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) - (set-face-attribute 'line-number nil :inherit 'fixed-pitch) - (set-face-attribute 'line-number-current-line nil :inherit 'fixed-pitch)) - - (with-eval-after-load 'org-faces (jd/org-font-setup)) - -#+end_src - -** Org tempo setup - -#+begin_src emacs-lisp - - (defun jd/org-tempo-setup () - (add-to-list 'org-structure-template-alist '("s" . "src")) - (add-to-list 'org-structure-template-alist '("sql" . "src sql")) - (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 '("li" . "src 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 '("go" . "src go")) - (add-to-list 'org-structure-template-alist '("yaml" . "src yaml"))) - - (with-eval-after-load 'org-tempo (jd/org-tempo-setup)) - -#+end_src - -** Org babel setup - -*** Load languages - -#+begin_src emacs-lisp - - (org-babel-do-load-languages - 'org-babel-load-languages - '((emacs-lisp . t) - (python . t))) - -#+end_src - -*** Auto tangle - -#+begin_src emacs-lisp - - (defun jd/org-babel-tangle-config () - (when (string-equal (file-name-directory (buffer-file-name)) - (expand-file-name "~/dotfiles/")) - ;; 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 #'jd/org-babel-tangle-config))) - -#+end_src - -** Org margin - -#+begin_src emacs-lisp - - (defun jd/org-mode-visual-fill () - (setq visual-fill-column-width 100 - visual-fill-column-center-text t) - (visual-fill-column-mode 1)) - - (use-package visual-fill-column - :hook (org-mode . jd/org-mode-visual-fill)) - -#+end_src - -** Org superstar - -#+begin_src emacs-lisp - - (use-package org-superstar - :hook (org-mode . org-superstar-mode) - :init - (setq org-superstar-special-todo-items t) - (setq org-superstar-remove-leading-stars t) - (setq org-superstar-headline-bullets-list '("◉" "○" "●" "○" "●" "○" "●"))) - -#+end_src - -** Org roam - -#+begin_src emacs-lisp - - (defun jd/org-roam-filter-by-tag (tag-name) - (lambda (node) - (member tag-name (org-roam-node-tags node)))) - - (defun jd/org-roam-list-notes-by-tag (tag-name) - (mapcar #'org-roam-node-file - (seq-filter - (jd/org-roam-filter-by-tag tag-name) - (org-roam-node-list)))) - - (defun jd/org-roam-refreshagenda-list () - (interactive) - (setq org-agenda-files (org-roam-list-files))) - - (use-package org-roam - :custom - (org-roam-directory (file-truename jd/org-roam-home)) - :bind (("C-c n l" . org-roam-buffer-toggle) - ("C-c n f" . org-roam-node-find) - ("C-c n g" . org-roam-graph) - ("C-c n i" . org-roam-node-insert) - ("C-c n c" . org-roam-capture) - ;; Dailies - ("C-c n j" . org-roam-dailies-capture-today)) - :bind-keymap - ("C-c n d" . org-roam-dailies-map) - :config - ;; If you're using a vertical completion framework, you might want a more informative completion interface - (setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag))) - (setq org-roam-capture-templates - '(("a" "workstuff" plain (file (concat org-roam-directory "/work")) - :target (file+head "work/%<%Y%m%d%H%M%S>-${slug}.org" - "#+title: ${title}\n") :unnarrowed t) - ("b" "research" plain (file "~/Documents/roam/study/templates/research.org") - :target (file+head "study/%<%Y%m%d%H%M%S>-${slug}.org" - "#+title: ${title}\n") :unnarrowed t) - )) - - (org-roam-db-autosync-mode)) - -#+end_src - -** langtool.el - -#+begin_src emacs-lisp - - (use-package langtool - :config - (setq langtool-language-tool-jar "/home/jakub/Documents/LanguageTool-6.0/languagetool-commandline.jar") - (setq langtool-default-language "pl-PL")) - - (jd/leader-key-def - "l" '(:ignore t :which-key "langtool") - "lc" 'langtool-check-buffer - "ld" 'langtool-check-done - "li" 'langtool-interactive-correction) - - -#+end_src - -* Development -** Languages - -*** C - -#+begin_src emacs-lisp - - (setq c-default-style "linux" - c-basic-offset 8) - - (setq gdb-many-windows t) - -#+end_src - -*** Lsp - -#+begin_src emacs-lisp - - (use-package lsp-mode - :commands (lsp lsp-deferred) - :init - (setq lsp-headerline-breadcrumb-enable nil) - (setq lsp-diagnostics-provider :none) - (setq lsp-modeline-diagnostics-enable nil) - (setq lsp-keymap-prefix "C-c l") - :config - (lsp-enable-which-key-integration t)) - - (use-package lsp-ivy - :after lsp) - -#+end_src - -*** Lisp - -#+begin_src emacs-lisp - - (use-package paredit) - (use-package evil-paredit) - (use-package rainbow-delimiters) - - (defun jd/lisp-mode-setup () - (rainbow-delimiters-mode) - (evil-paredit-mode) - (paredit-mode)) - - (add-hook 'emacs-startup-hook - (lambda () - (add-hook 'scheme-mode-hook 'jd/lisp-mode-setup) - (add-hook 'emacs-lisp-mode-hook 'jd/lisp-mode-setup) - (add-hook 'lisp-mode-hook 'jd/lisp-mode-setup))) - - (evil-define-key 'normal paredit-mode-map (kbd "g h") 'paredit-forward-barf-sexp) - (evil-define-key 'normal paredit-mode-map (kbd "g l") 'paredit-forward-slurp-sexp) - - (evil-define-key 'normal paredit-mode-map (kbd "g H") 'paredit-backward-slurp-sexp) - (evil-define-key 'normal paredit-mode-map (kbd "g L") 'paredit-backward-barf-sexp) - - (use-package geiser) - (use-package geiser-guile) - -#+end_src - -*** Python - -#+begin_src emacs-lisp - - (defun jd/python-mode-setup () - (let ((project-venv-path (concat (projectile-project-root) "venv/"))) - (when (projectile--directory-p project-venv-path) - (pyvenv-activate project-venv-path) - (pyvenv-mode)))) - - ;; (use-package python-mode ;;TODO: find alternative - ;; :hook (python-mode . lsp-deferred) - ;; :hook (python-mode . jd/python-mode-setup) - ;; :config - ;; (add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))) - - (use-package pyvenv - :after python-mode) - -#+end_src - -*** TypeScript - -#+begin_src emacs-lisp - - (use-package typescript-mode - :mode ("\\.ts\\'") - :config - (setq typescript-indent-level 2)) - - (defun jd/activate-tide-mode () - (when (and (stringp buffer-file-name) - (string-match "\\.[tj]sx?\\'" buffer-file-name)) - (tide-setup) - (tide-hl-identifier-mode))) - - (use-package tide - :after (typescript-mode company web-mode)) - - (use-package flycheck - :hook ((after-init . global-flycheck-mode))) - - (use-package web-mode - :hook ((web-mode . jd/activate-tide-mode)) - :mode - ("\\.ejs\\'" "\\.hbs\\'" "\\.html\\'" "\\.php\\'" "\\.[jt]sx?\\'") - :config - (setq web-mode-content-types-alist '(("jsx" . "\\.[jt]sx?\\'"))) - (setq web-mode-markup-indent-offset 2) - (setq web-mode-css-indent-offset 2) - (setq web-mode-code-indent-offset 2) - (setq web-mode-script-padding 2) - (setq web-mode-block-padding 2) - (setq web-mode-style-padding 2) - (setq web-mode-enable-auto-pairing t) - (setq web-mode-enable-auto-closing t) - (setq web-mode-enable-current-element-highlight t)) - -#+end_src - -*** Yaml - -#+begin_src emacs-lisp - - (use-package yaml-mode) - -#+end_src - -*** Docker - -#+begin_src emacs-lisp - - (use-package docker) - -#+end_src - -*Keybinds* - -#+begin_src emacs-lisp - - (jd/leader-key-def - "d" '(:ignore t :which-key "Docker") - "dc" '(docker-containers :which-key "Docker containers") - "dd" '(docker :which-key "Docker")) - -#+end_src - -** Company - -#+begin_src emacs-lisp - - (use-package company - :after lsp-mode - :hook (lsp-mode . company-mode) - :bind (:map company-active-map - ("" . company-complete-selection)) - (:map lsp-mode-map - ("" . company-indent-or-complete-common)) - :custom - (company-minimum-prefix-length 1) - (company-idle-delay 0.0) - :config - (global-company-mode)) - - (use-package company-box - :hook (company-mode . company-box-mode)) - -#+end_src - -** Projectile - -#+begin_src emacs-lisp - - (use-package projectile - :diminish projectile-mode - :init - (when (file-directory-p "~/Documents/code") - (setq projectile-project-search-path '("~/Documents/code/"))) - :custom ((projectile-Completion-system 'ivy)) - :config - (setq projectile-switch-project-action #'projectile-dired) - (projectile-mode)) - -#+end_src - -*Keybinds* - -#+begin_src emacs-lisp - - (jd/leader-key-def - "p" '(projectile-command-map :which-key "Project") - "p " '() - "SPC" '(projectile-find-file :which-key "Find file in project")) - -#+end_src - -** Neotree - -#+begin_src emacs-lisp - - (defun jd/neotree-project-dir () - "Open NeoTree using the git root." - (interactive) - (let ((project-dir (projectile-project-root)) - (file-name (buffer-file-name))) - (neotree-toggle) - (if project-dir - (if (neo-global--window-exists-p) - (progn - (neotree-dir project-dir) - (neotree-find file-name))) - (message "Could not find git project root.")))) - - (use-package neotree - :init - (setq neo-theme 'icons) - :config - - (evil-define-key 'normal neotree-mode-map (kbd "TAB") 'neotree-enter) - (evil-define-key 'normal neotree-mode-map (kbd "C-RET") 'neotree-quick-look) - (evil-define-key 'normal neotree-mode-map (kbd "q") 'neotree-hide) - (evil-define-key 'normal neotree-mode-map (kbd "RET") 'neotree-enter) - (evil-define-key 'normal neotree-mode-map (kbd "g") 'neotree-refresh) - (evil-define-key 'normal neotree-mode-map (kbd "A") 'neotree-stretch-toggle) - (evil-define-key 'normal neotree-mode-map (kbd "H") 'neotree-hidden-file-toggle)) - -#+end_src - -*Keybinds* - -#+begin_src emacs-lisp - - (jd/leader-key-def - "op" '(jd/neotree-project-dir :which-key "Open neotree")) - -#+end_src - -** Magit - -#+begin_src emacs-lisp - - (use-package magit - :custom - (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1)) - -#+end_src - -*Keybinds* - -#+begin_src emacs-lisp - - (jd/leader-key-def - "g" '(:ignore t :which-key "Git") - "gg" '(magit-status-here :which-key "Magit status")) - -#+end_src - -* Apps -** Vterm - -#+begin_src emacs-lisp - - (defun jd/open-new-vterm (&optional jd/vterm-buffer-name) - (interactive) - (let ((buffer-name (generate-new-buffer-name vterm-buffer-name))) - (when jd/vterm-buffer-name - (setq buffer-name jd/vterm-buffer-name)) - (switch-to-buffer buffer-name) - (vterm-mode))) - - - (use-package vterm - :init - (add-to-list 'project-switch-commands '(project-vterm "Vterm") t) - (add-to-list 'project-kill-buffer-conditions '(major-mode . vterm-mode)) - (setq vterm-copy-exclude-prompt t) - :config - (setq vterm-buffer-name "vterm") - (evil-set-initial-state 'vterm-mode 'emacs) - (setq vterm-tramp-shells (append '(("ssh" "/bin/bash")) vterm-tramp-shells))) - -#+end_src - -*Keybinds* - -#+begin_src emacs-lisp - - (jd/leader-key-def - "ot" '(jd/open-new-vterm :which-key "Open terminal in current window")) - -#+end_src - -** Dired - -#+begin_src emacs-lisp - - (use-package all-the-icons-dired - :hook (dired-mode . all-the-icons-dired-mode)) - - (use-package dired-ranger) - - (use-package dired - :ensure nil - :commands (dired dired-jump) - :custom ((dired-listing-switches "-agho --group-directories-first")) - :config - (evil-collection-define-key 'normal 'dired-mode-map - "y" 'dired-ranger-copy - "p" 'dired-ranger-paste - "X" 'dired-ranger-move - "h" 'dired-up-directory - "t" 'dired-create-empty-file - "T" 'dired-toggle-marks - "l" 'dired-find-file) - (setq dired-kill-when-opening-new-dired-buffer t) - (evil-define-key 'normal dired-mode-map (kbd "q") 'kill-current-buffer)) - - -#+end_src - -** EMMS - -#+begin_src emacs-lisp - - (use-package emms - :config - (require 'emms-setup) - (emms-all) - (emms-standard) - (emms-default-players) - (emms-mode-line-disable) - ; (setq emms-info-functions '(emms-info-tinytag)) - (setq emms-browser-covers 'emms-browser-cache-thumbnail-async) - ;; (setq emms-lyrics-dir "~/Documents/music/lyrics") - (emms-add-directory-tree "~/Documents/Music/")) - -#+end_src - -** PDF Tools - -#+begin_src emacs-lisp - - (use-package pdf-tools) - -#+end_src - -** Mu4e -- Load my [[./Mail.org][mu4e]] config - -#+begin_src emacs-lisp - (require 'jd-mu4e) -#+end_src - -** RSS - -#+begin_src emacs-lisp - - (use-package elfeed - :config - (setq elfeed-feeds - '(("https://www.reddit.com/r/emacs.rss" emacs) - ("https://www.reddit.com/r/gnu.rss" gnu) - ("https://stallman.org/rss/rss.xml" stallman)))) - -#+end_src - -* Custom - -#+begin_src emacs-lisp - (defun jd/generete-qr-from-clipboard () - (interactive) - (let ((clipboard-value (x-get-clipboard)) - (clipboard-file-path "/tmp/clipboard_value.txt") - (clipboard-out-image "/tmp/qr.png")) - (with-temp-file clipboard-file-path - (insert clipboard-value)) - (shell-command (concat - "qrencode -o " - clipboard-out-image - " < " - clipboard-file-path)) - (find-file clipboard-out-image))) - - - ;; (defun jd/screenshot () - ;; (inactive) - ;; (let* ((screenshot-command '("import" "png:-")) - ;; (image - ;; (with-temp-buffer - ;; (set-buffer-multibyte nil) - ;; (apply #'call-process - ;; (car screenshot-command) nil (current-buffer) nil - ;; (cdr screenshot-command)) - ;; (buffer-string)))) - ;; (set-mark (point)) - ;; (insert-image - ;; (create-image image 'png t - ;; :max-width (truncate (* (frame-pixel-width) 0.8)) - ;; :max-height (truncate (* (frame-pixel-height) 0.8)) - ;; :scale 1) - ;; (format "<#part type=\"image/png\" disposition=inline data-encoding=base64 raw=t>\n%s\n<#/part>" - ;; ;; Get a base64 version of the image -- this avoids later - ;; ;; complications if we're auto-saving the buffer and - ;; ;; restoring from a file. - ;; (with-temp-buffer - ;; (set-buffer-multibyte nil) - ;; (insert image) - ;; (base64-encode-region (point-min) (point-max) t) - ;; (buffer-string)))) - ;; (insert "\n\n") - ;; (message ""))) - -#+end_src - -* Runtime Performance - -#+begin_src emacs-lisp - (setq gc-cons-threshold (* 2 1000 1000)) -#+end_src diff --git a/Mail.org b/Mail.org deleted file mode 100644 index 1ded00d..0000000 --- a/Mail.org +++ /dev/null @@ -1,142 +0,0 @@ -#+TITLE: MU4E Configuration -#+PROPERTY: header-args:emacs-lisp :tangle .config/emacs/jd/jd-mu4e.el - -* jd-mu4e.el -#+begin_src emacs-lisp - (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e") - - (use-package org-msg) - - (use-package mu4e - :defer 20 - :ensure nil - :config - (require 'org-mu4e) - - (setq mu4e-update-interval (* 10 60)) - (setq mu4e-get-mail-command "mbsync -a") - (setq mu4e-maildir "~/Mail") - - (setq mu4e-completing-read-function #'ivy-completing-read) - - (setq mu4e-change-filenames-when-moving t) - - (setq mu4e-contexts - `(,(make-mu4e-context - :name "Abaks" - :match-func (lambda (msg) (when msg - (string-prefix-p "/abaks" (mu4e-message-field msg :maildir)))) - :vars '( - (user-full-name . "Jakub Dlugosz") - (user-mail-address . "jakub@abaks.pl") - (mu4e-sent-folder . "/abaks/Sent Items") - (mu4e-trash-folder . "/abaks/Trash") - (mu4e-drafts-folder . "/abaks/Drafts") - (mu4e-refile-folder . "/abaks/Archive") - (smtpmail-local-domain . "pl") - (smtpmail-smtp-server . "smtp.abaks.pl") - (mu4e-sent-messages-behavior . sent) - )) - ,(make-mu4e-context - :name "Gmail" - :match-func (lambda (msg) (when msg - (string-prefix-p "/gmail" (mu4e-message-field msg :maildir)))) - :vars '( - (user-full-name . "Jakub Dlugosz") - (user-mail-address . "jdlugosz963@gmail.com") - (mu4e-sent-folder . "/gmail/\[Gmail\]/Wys\&AUI-ane") - (mu4e-trash-folder . "/gmail/\[Gmail\]/Kosz") - (mu4e-drafts-folder . "/gmail/\[Gmail\]/Wersje\ robocze") - (mu4e-refile-folder . "/gmail/Archive") - (smtpmail-local-domain . "com") - (smtpmail-smtp-server . "smtp.gmail.com") - (mu4e-sent-messages-behavior . sent) - )))) - - (setq mail-user-agent 'mu4e-user-agent - mail-host-address nil - message-send-mail-function 'smtpmail-send-it - smtpmail-smtp-service 465 - smtpmail-stream-type 'ssl) - - (setq mu4e-compose-signature (concat - "Pozdrawiam,\n" - "Jakub Długosz")) - - (mu4e t)) - -#+end_src - -*mu4e-alert* - -#+begin_src emacs-lisp - (use-package mu4e-alert - :defer 20 - :config - (mu4e-alert-set-default-style 'libnotify) - (mu4e-alert-enable-mode-line-display) - (mu4e-alert-enable-notifications)) -#+end_src - -*mu4e bindings* - -#+begin_src emacs-lisp - (jd/leader-key-def - "m" '(:ignore t :which-key "mail") - "mm" 'mu4e - "mc" 'mu4e-compose-new) - - (provide 'jd-mu4e) -#+end_src - -* mbsyncrc - -#+begin_src conf :tangle .mbsyncrc -IMAPStore abaks-remote -Host imap.abaks.pl -Port 143 -SSLType None -AuthMechs LOGIN -User jakub@abaks.pl -PassCmd "pass email/jakub@abaks.pl" -CertificateFile /etc/ssl/certs/ca-certificates.crt - -MaildirStore abaks-local -Path ~/Mail/abaks/ -Inbox ~/Mail/abaks/INBOX -Subfolders Verbatim - -Channel abaks -Far :abaks-remote: -Near :abaks-local: -Patterns INBOX * !Sync* -Expunge None -CopyArrivalDate yes -Sync All -Create Near -SyncState * - -IMAPStore gmail-remote -Host imap.gmail.com -Port 993 -SSLType IMAPS -AuthMechs LOGIN -User jdlugosz963@gmail.com -PassCmd "pass email/jdlugosz963@gmail.com" -CertificateFile /etc/ssl/certs/ca-certificates.crt - -MaildirStore gmail-local -Path ~/Mail/gmail/ -Inbox ~/Mail/gmail/INBOX -Subfolders Verbatim - -Channel gmail -Far :gmail-remote: -Near :gmail-local: -Patterns INBOX * !Sync* -Expunge None -CopyArrivalDate yes -Sync All -Create Near -SyncState * -#+end_src -- cgit v1.2.3