My GNU Emacs configuration
A personal emacs configuration

;;; -*- mode: emacs-lisp; lexical-binding: t -*-
;;; init.el --- Configuration of Emacs

;;; Commentary:

;; From https://gitlab.com/buildfunthings/emacs-config/blob/master/init.el

;;; Code:
(message "*** Reading from %s ***" (buffer-name))

;; Debug startup
(setq debug-on-error t)
(setq debug-on-quit t)

;; Garbage collection
;; Increase the garbage collection threshold to make startup faster
(setq gc-cons-threshold (* 50 1024 1024))
(setq garbage-collection-messages nil)

;; From emacs-from-scratch https://github.com/daviwil/emacs-from-scratch/blob/master/init.el
(defun efs/display-startup-time ()
  "Prints the startup time for Emacs."
  (message "*** Emacs loaded in %s with %d garbage collections."
           (format "%.2f seconds"
                   (float-time
                    (time-subtract after-init-time before-init-time)))
           gcs-done))

(add-hook 'emacs-startup-hook #'efs/display-startup-time)

(defvar start-time (float-time (current-time)))

(defun my/format-time (time)
  "Displays formatted TIME."
  (format-time-string "%Y-%m-%d %H:%M:%S" time))

(defun my/startup-timer ()
  "Measures time differences."
  (format-time-string "%M:%S.%3N" (- (float-time (current-time)) start-time)))

(message "*** Started emacs @ %s" (my/format-time start-time))
(message "*** Reading configuration from init.el...")

(require 'server)
(unless (server-running-p)
    (server-start))

;; install straight package manager
(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 6))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

;; Also install use-package and Org.
(straight-use-package 'org)
(straight-use-package 'use-package)
(customize-set-variable 'straight-use-package-by-default t)
(customize-set-variable 'straight-host-usernames
                        '((github . "sdaaish")
                          (gitlab . "sdaaish")))

(use-package diminish)

(use-package gcmh
  :diminish gcmh-mode
  :custom
  (gcmh-idle-delay 3)
  :config
  (gcmh-mode 1))

;; Install latest version of org and org-plus-contrib
(use-package org
  :bind (:map org-mode-map
              ("C-c C-<tab>" . org-force-cycle-archived)
              ("C-c C-h" . org-tags-view)
              ("C-*" . org-jump-to-heading-beginning))
  :hook (org-mode . (lambda ()
                           (customize-set-variable 'org-use-speed-commands t))))

(use-package org-contrib)

(defvar my/init-dir (file-name-directory (or load-file-name (buffer-file-name))))
(defvar my/emacs-orgfile (expand-file-name "emacs.org" my/init-dir))
(defvar my/emacs-elfile (expand-file-name "init.el" my/init-dir))

(use-package no-littering)

(cond ((eq system-type 'gnu/linux)(defconst my/onedrive-dir (expand-file-name "OneDrive/" "~")))
      ((eq system-type 'windows-nt)(defconst my/onedrive-dir (expand-file-name  "OneDrive/" (getenv "UserProfile")))))

(defconst my/emacs-shared-dir (concat my/onedrive-dir "emacs/"))

(defconst my/private-orgfile (expand-file-name "private.org" my/emacs-shared-dir))
(defconst my/private-elfile (expand-file-name "private.el" my/emacs-shared-dir))

(defconst my/emacs-backup-dir
   (expand-file-name "backup/" no-littering-var-directory))

(if (eq system-type 'gnu/linux)
    (defconst my/repo-dir (expand-file-name "repos/" "~")))
(if (eq system-type 'windows-nt)
    (defconst my/repo-dir (concat (getenv "UserProfile") "\\Repos\\")))

(defun my/read-lines (filePath)
  "Return a list of lines of a file at filePath."
  (if (file-exists-p filePath)
      (with-temp-buffer
        (insert-file-contents filePath)
        (split-string (buffer-string) "\n" t))))

(defun my/fullpath (filepath directory)
  "Concatenate directory to names in filepath and return as list."
  (let (value)
    (setq list (my/read-lines filepath))
    (dolist (shortfile list value)
      (setq fullpath (concat directory shortfile))
      (setq value (cons fullpath value)))))

;; Define constants
(defconst my/org-directory (expand-file-name "Org/" my/onedrive-dir))
(defconst my/notes-file (expand-file-name "notes.org" my/org-directory))
(defconst my/diary-file (expand-file-name "diary.org" my/org-directory))
(defconst my/org-agenda-files (expand-file-name ".agenda-files" my/org-directory))
(defvar my/mobile-target-file (expand-file-name  ".mobile-files" my/org-directory))
;; My org-files directory
(setq org-directory my/org-directory)
;; Org-agenda can read from a file
(setq org-agenda-files my/org-agenda-files)
;; Store notes here
(setq org-default-notes-file my/notes-file)
;; Choose targets to refile to.
(customize-set-variable 'org-refile-targets '((nil :maxlevel . 3)(org-agenda-files :maxlevel . 3)))
;; Files for mobile sync
(defvar my/mobile-files (my/fullpath my/mobile-target-file my/org-directory))

(setq message-log-max (* 256 1024))

(if (and (version< emacs-version "26.3") (>= libgnutls-version 30604))
    (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3"))

;; Hydra keymapping support
(use-package hydra)

(require 'whitespace)
(defhydra hydra-toggle (:color pink :timeout 3)
  "
        _a_ abbrev-mode:       %`abbrev-mode
        _c_ flycheck-mode:     %`flycheck-mode
        _d_ debug-on-error:    %`debug-on-error
        _f_ auto-fill-mode:    %`auto-fill-function
        _t_ truncate-lines:    %`truncate-lines
        _v_ visual-lines:      %`visual-line-mode
        _w_ whitespace-mode:   %`whitespace-mode
        _l_ linenumber:        %`display-line-numbers-mode
        _r_ relative-lines:    %`display-line-numbers-type
        _R_ rainbow-delimiters %`rainbow-delimiters-mode
        _C_ rainbow-mode       %`rainbow-mode
  "
  ("a" abbrev-mode nil)
  ("c" flycheck-mode nil)
  ("C" rainbow-mode nil)
  ("d" toggle-debug-on-error nil)
  ("f" auto-fill-mode nil)
  ("l" my/line-number-t nil)
  ("r" my/line-number-relative nil)
  ("R" rainbow-delimiters-mode nil)
  ("t" toggle-truncate-lines nil)
  ("v" visual-line-mode nil)
  ("w" whitespace-mode nil)
  ("q" nil "cancel" :color blue))
(bind-key "C-c v" 'hydra-toggle/body)

(global-set-key (kbd "C-<kp-add>") 'text-scale-increase)
(global-set-key (kbd "C-<kp-subtract>") 'text-scale-decrease)
(setq text-scale-mode-step 1.05)

(defhydra hydra-font (global-map "<f2>" :timeout 3)
  "Change fonts to next/previous"
  ("n" my/cycle-font-next "next font")
  ("p" my/cycle-font-previous "previous font")
  ("q" nil "cancel" :color blue))

(defhydra hydra-config-files (:color blue :columns 3)
  "Emacs config files"
  ("c" (find-file custom-file) "customize.el")
  ("e" (find-file my/emacs-orgfile) "emacs.org")
  ("i" (find-file my/emacs-elfile) "init.el")
  ("j" (find-file (expand-file-name "early-init.el" user-emacs-directory)) "early-init.el")
  ("k" my/server-shutdown "Save&kill")
  ("p" (find-file my/private-orgfile) "private.org")
  ("r" (load-file user-init-file) "Reload emacs")
  ("s" (find-file (expand-file-name "my-cheats.el" (expand-file-name "lisp/" "~/.config/"))) "Cheat sheet")
  ("q" nil "cancel"))
(bind-key "<f8> i" 'hydra-config-files/body)
(defun my/server-shutdown ()
  "Save buffers, Quit, and Shutdown (kill) server"
  (interactive)
  (save-some-buffers)
  (kill-emacs)
  )

(defhydra hydra-org-stuff (:color blue :columns 3)
  "Org mode stuff"
  ("c" my/org-gcal-sync "Sync Google Calender")
  ("g" my/org-mobile-sync "Synchronize mobile")
  ("P" org-publish-project "org-publish-project")
  ("o" org-iswitchb "Switch org-buffer")
  ("r" org-revert-all-org-buffers "Refresh all org-buffers")
  ("s" org-save-all-org-buffers "Save Org buffers")
  ("v" org-tags-view)
  ("q" nil "cancel"))
(bind-key "<f8> o" 'hydra-org-stuff/body)
(defun my/org-gcal-sync()
  "Synchronizes Google calendar with Org"
  (interactive)
  (org-save-all-org-buffers)
  (org-gcal-sync))
(defun my/org-mobile-sync()
  "Synchronizes agenda files with mobile app."
  (interactive)
  (org-save-all-org-buffers)
  (org-mobile-pull)
  (org-mobile-push)
  (message "Synced mobile agendas."))

(defhydra hydra-launcher (:color blue :columns 4)
  "Launch programs"
  ("b" hydra-better-shell/body "Better Shell")
  ("c" cheat-sh "Cheat sheet online")
  ("e" eshell "Eshell")
  ("E" eww "EWW")
  ("f" free-keys "Free keys")
  ("g" (browse-url "https://git-scm.com/docs/") "Git Book")
  ("h" man "man")
  ("H" (browse-url "http://localhost:1313/") "Local Hugo site")
  ("n" hackernews "Hackernews")
  ("p" (powershell) "Powershell")
  ("r" (browse-url "http://www.reddit.com/r/emacs/") "Reddit")
  ("t" (counsel-tramp) "Counsel-TRAMP")
  ("T" twit "Twitter mode")
  ("R" bjm/elfeed-load-db-and-open "RSS")
  ("s" shell "Shell")
  ("v" (shell-command (concat "code " buffer-file-name)) "VSCode")
  ("w" (browse-url "http://www.emacswiki.org/") "Emacs Wiki")
  ("W" wiki-summary "Wiki summary")
  ("q" nil "quit"))
(bind-key "C-c b" 'hydra-launcher/body)

  (defhydra hydra-straight-helper (:hint nil)
    "
  _c_heck all       |_f_etch all     |_m_erge all      |_n_ormalize all   |p_u_sh all
  _C_heck package   |_F_etch package |_M_erge package  |_N_ormlize package|p_U_sh package
  ----------------^^+--------------^^+---------------^^+----------------^^+------------||_q_uit||
  _r_ebuild all     |_p_ull all      |_v_ersions freeze|_w_atcher start   |_g_et recipe
  _R_ebuild package |_P_ull package  |_V_ersions thaw  |_W_atcher quit    |prun_e_ build
  _h_ Describe package"
    ("c" straight-check-all)
    ("C" straight-check-package)
    ("r" straight-rebuild-all)
    ("R" straight-rebuild-package)
    ("f" straight-fetch-all)
    ("F" straight-fetch-package)
    ("p" straight-pull-all)
    ("P" straight-pull-package)
    ("m" straight-merge-all)
    ("M" straight-merge-package)
    ("n" straight-normalize-all)
    ("N" straight-normalize-package)
    ("u" straight-push-all)
    ("U" straight-push-package)
    ("v" straight-freeze-versions)
    ("V" straight-thaw-versions)
    ("w" straight-watcher-start)
    ("W" straight-watcher-quit)
    ("g" straight-get-recipe)
    ("e" straight-prune-build)
    ("h" describe-package)
    ("q" nil))
(global-set-key (kbd "C-h P") 'hydra-straight-helper/body)

(use-package magit
  :diminish magit-status
  :bind ("C-x g" . magit-status)
  :config
  (setq magit-completing-read-function 'ivy-completing-read)
  (if (eq system-type 'windows-nt)
      (setq-default with-editor-emacsclient-executable "emacsclientw.exe")
    (setq-default with-editor-emacsclient-executable "emacsclient"))
  :custom (magit-submodule-list-columns
           '(("Path" 35 magit-modulelist-column-path nil)
             ("Version" 25 magit-repolist-column-version
              ((:sort magit-repolist-version<)))
             ("Branch" 15 magit-repolist-column-branch nil)
             ("B<U" 3 magit-repolist-column-unpulled-from-upstream
              ((:right-align t)
               (:sort <)))
             ("B>U" 3 magit-repolist-column-unpushed-to-upstream
              ((:right-align t)
               (:sort <)))
             ("B<P" 3 magit-repolist-column-unpulled-from-pushremote
              ((:right-align t)
               (:sort <)))
             ("B>P" 3 magit-repolist-column-unpushed-to-pushremote
              ((:right-align t)
               (:sort <)))
             ("B" 3 magit-repolist-column-branches
              ((:right-align t)
               (:sort <)))
             ("S" 3 magit-repolist-column-stashes
              ((:right-align t)
               (:sort <))))))

(use-package forge
  :after gh)

(use-package magit-gitflow
  :after magit
  :hook
  (magit-mode . turn-on-magit-gitflow)
  :config
  (setq magit-gitflow-release-finish-arguments '("--fetch" "--push")))

(use-package magit-find-file
  :after magit
  :bind ("C-c m" . magit-find-file-completing-read))

(use-package gh
  :commands gist)
(use-package gist
  :config (setq gist-view-gist t)
  :bind (("C-x j" . gist-list)))

(use-package git-link
  :config
  (defhydra hydra-git-link (:color blue)
    "Copy git-link"
    ("h" git-link-homepage "Copy homepage")
    ("l" git-link "Copy link")
    ("c" git-link-commit "Copy commit"))
  :bind ("C-c L" . hydra-git-link/body))

(defhydra hydra-projectile-other-window (:color teal)
  "projectile-other-window"
  ("f"  projectile-find-file-other-window        "file")
  ("g"  projectile-find-file-dwim-other-window   "file dwim")
  ("d"  projectile-find-dir-other-window         "dir")
  ("b"  projectile-switch-to-buffer-other-window "buffer")
  ("q"  nil                                      "cancel" :color blue))

(defhydra hydra-projectile (:color teal :hint nil)
  "
                   PROJECTILE: %(projectile-project-root)

                   Find File            Search/Tags          Buffers                Cache
              ------------------------------------------------------------------------------------------
                _F_: file            _a_: ag                _i_: Ibuffer           _c_: cache clear
               _ff_: file dwim       _g_: update gtags      _b_: switch to buffer  _x_: remove known project
               _fd_: file curr dir   _m_: multi-occur       _k_: Kill all buffers  _X_: cleanup non-existing
                _r_: recent file                                               ^^^^_z_: cache current
                _d_: dir

              "
  ("a"   projectile-ag)
  ("b"   projectile-switch-to-buffer)
  ("c"   projectile-invalidate-cache)
  ("d"   projectile-find-dir)
  ("s-f" projectile-find-file)
  ("F"   projectile-find-file)
  ("ff"  projectile-find-file-dwim)
  ("fd"  projectile-find-file-in-directory)
  ("g"   ggtags-update-tags)
  ("i"   projectile-ibuffer)
  ("k"   projectile-kill-buffers)
  ("m"   projectile-multi-occur)
  ("p"   projectile-switch-project "switch project")
  ("r"   projectile-recentf)
  ("x"   projectile-remove-known-project)
  ("X"   projectile-cleanup-known-projects)
  ("z"   projectile-cache-current-file)
  ("'"   hydra-projectile-other-window/body "open other window")
  ("q"   nil "cancel" :color blue))

(use-package projectile
  :diminish projectile-mode
  :init (when (file-directory-p "~/repos")
          (setq projectile-project-search-path '("~/repos")))
  :config
  (projectile-mode t)
  (setq projectile-completion-system 'ivy)
  (setq projectile-switch-project-action 'projectile-dired)
  :bind (("C-c p" . hydra-projectile/body)
         (:map projectile-mode-map
               ("C-c P" . projectile-command-map))))

(use-package counsel-projectile
  :init (counsel-projectile-mode 1))

(use-package winner
  :config (winner-mode 1))

(use-package bind-key
    :bind ("C-h B" . describe-personal-keybindings))

(use-package diff-hl
:hook ((prog-mode vc-dir-mode) . diff-hl-mode))

(defun my/line-number-relative ()
  "Display relative line numbers."
  (interactive)
  (setq-local display-line-numbers-type 'visual)
  (display-line-numbers-mode 'toggle))

(defun my/line-number-t ()
  "Display absolute line numbers."
  (interactive )
  (setq-local display-line-numbers-type t)
  (display-line-numbers-mode 'toggle))

(use-package aggressive-indent
  :config (global-aggressive-indent-mode t))

(use-package which-key
  :diminish which-key-mode
  :init (which-key-mode t)
  :custom
  (which-key-idle-delay 0.2)
  (which-key-sort-order 'which-key-key-order-alpha))

(use-package ace-window
  :custom
  (aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
  (aw-background nil)
  (aw-dispatch-always t)
  :bind (("M-o" . ace-window)
         ("C-x o" . aw-flip-window))
  :custom-face (aw-leading-char-face
                ((t (:foreground "light sky blue"
                                 :background "#434343"
                                 :weight bold :height 2.0)))))

(use-package resize-window
  :bind ("C-;" . resize-window))

(use-package org-bullets
  :custom (org-bullets-bullet-list  '("" "" "" "" ""))
  :hook (org-mode . org-bullets-mode))

(use-package better-shell
      :config
  (defhydra hydra-better-shell (:color blue :columns 2)
    "Better Shell commands"
    ("s" better-shell-shell "Cycle shell" :color red)
    ("c" better-shell-for-current-dir  "New shell for current dir")
    ("r" better-shell-remote-open "Open remote shell")
    ("h" better-shell-sudo-here "Sudo here")
    ("p" better-shell-for-projectile-root "Shell for Projectile root")
    ("q" nil "cancel")
    ("RET" nil))
  :bind ("C-c S" . hydra-better-shell/body))

(use-package copy-as-format
  :config
  (defhydra hydra-copy-as-format (:color blue :columns 3)
    "Copy as format"
    ("a" copy-as-format-asciidoc "asciidoc")
    ("d" copy-as-format-disqus   "disqus")
    ("g" copy-as-format-github   "github/lab/bucket")
    ("H" copy-as-format-hipchat  "hipchat")
    ("h" copy-as-format-html     "html")
    ("j" copy-as-format-jira     "jira")
    ("m" copy-as-format-markdown "markdown")
    ("M" copy-as-format-mediawik "mediawiki")
    ("o" copy-as-format-org-mode "org-mode")
    ("p" copy-as-format-pod      "pod")
    ("r" copy-as-format-rst      "rst")
    ("s" copy-as-format-slack    "slack")
    ("q" nil "quit"))
  :bind ("C-c w" . hydra-copy-as-format/body)
  )

(use-package try
  :commands try)

(use-package htmlize)

(use-package ipcalc
  :bind ("C-c i" . ipcalc))

(use-package treemacs
  :bind (("C-x t" . treemacs)
         :map treemacs-mode-map
         ("C-x t" . treemacs-toggle))
  :config
  (setq treemacs-follow-after-init t
        treemacs-show-hidden-files t)
  (treemacs-follow-mode t)
  (pcase (cons (not (null (executable-find "git")))
               (not (null (executable-find "python3")))
               (`(t . t)
                (treemacs-git-mode 'extended))
               (`(t . _)
                (treemacs-git-mode 'simple)))))

(use-package ztree
  :bind ("C-x z" . ztree-dir)
  :config (setq-default ztree-dir-show-filtered-files t))

(use-package verify-url)

(use-package undo-tree
  :diminish
  :demand
  :config
  (global-undo-tree-mode 1)
  (setq undo-tree-visualizer-diff t)
  :bind (("C-z" . undo)
         ("C-S-z" . undo-tree-redo)))

(use-package hungry-delete
  :diminish hungry-delete-mode
  :config
  (global-hungry-delete-mode t)
  :custom (hungry-delete-except-modes '(minibuffer-mode)))

(use-package avy
  :bind (("C-." . avy-goto-char)
         ("C-:" . avy-goto-char-2)))

(use-package ag
  :commands counsel-ag)

(use-package rg
  :config (rg-enable-default-bindings))

(use-package macrostep
  :bind ("C-c e" . macrostep-mode))

(use-package docker
:bind ("C-c d" . docker))

(use-package apib-mode)

(use-package rainbow-delimiters
      :hook
      ((org-mode prog-mode) . rainbow-delimiters-mode))

(use-package rainbow-mode
  :diminish rainbow-mode)

(use-package restclient
  :commands restclient
  :config
  (use-package ob-restclient
    :after org)
  (use-package company-restclient
    :after company
    :hook (restclient-mode .
                           (lambda ()
                             (set (make-local-variable 'company-backends)
                                  '(company-restclient))))))

(use-package smartparens
  :diminish
  :config (sp-local-pair 'org-mode "=" "=")
  :hook
  ((org-mode prog-mode shell-mode) . smartparens-mode))

(use-package rfc-mode
  :config (setq rfc-mode-directory (expand-file-name "rfc/cache" no-littering-var-directory)))

(use-package disable-mouse
  :hook (after-init)
  :custom (disable-mouse-mode-global-lighter nil)
  :config (global-disable-mouse-mode t))

(use-package ws-butler
  :diminish
  :hook ((prog-mode org-mode conf-mode) . ws-butler-mode))

(use-package dumb-jump
  :custom
  (xref-show-definitions-function #'xref-show-definitions-completing-read)
  :init
  (add-hook 'xref-backend-functions #'dumb-jump-xref-activate))

(if (file-exists-p my/private-orgfile)
    (when (not (and (file-exists-p my/private-elfile)
                    (file-newer-than-file-p my/private-elfile my/private-orgfile)))
      (my/tangle-config-org my/private-orgfile my/private-elfile)))

;; Load the el-file
(if (file-exists-p my/private-elfile)
    (load-file my/private-elfile))

(setq custom-file (expand-file-name "customize.el" user-emacs-directory))
(when (file-exists-p custom-file)
  (load custom-file 'noerror))

(advice-add 'custom-save-all :around
            (lambda (orig)
              (let ((print-quoted t))
                (funcall orig))))

;; Local lisp-directory
(when (not (file-exists-p "lisp"))
      (make-directory (concat user-emacs-directory "lisp") t))
(add-to-list 'load-path (concat user-emacs-directory "lisp"))

(setq lispdir (let (lispdir) (expand-file-name ".config/lisp/" (getenv "HOME"))))

(when (file-exists-p lispdir)
  (add-to-list 'load-path lispdir))

(defun my-minibuffer-setup-hook ()
  (setq gc-cons-threshold (* 50 1024 1024)))

(defun my-minibuffer-exit-hook ()
  (setq gc-cons-threshold (* 5 1024 1024)))

(defun my-projectile-before-switch-project-hook ()
  (setq gc-cons-threshold (* 50 1024 1024)))

(add-hook 'minibuffer-setup-hook #'my-minibuffer-setup-hook)
(add-hook 'minibuffer-exit-hook #'my-minibuffer-exit-hook)
(add-hook 'projectile-before-switch-project-hook #'my-projectile-before-switch-project-hook)

(when (eq system-type 'windows-nt)
  (set-clipboard-coding-system 'utf-16le-dos))

(setq sentence-end-double-space nil)

(when (eq system-type 'windows-nt)
     (setq w32-capslock-is-shiftlock nil)
     (setq w32-enable-caps-lock nil))

(bind-key "M-SPC" 'set-mark-command)

(use-package ibuffer
  :straight (:type built-in)
  :bind ("C-x C-b" . ibuffer)
  :config
  (setq ibuffer-saved-filter-groups
        (quote (("default"
                 ("Dired" (mode . dired-mode))
                 ("Shell" (or
                           (mode . eshell-mode)
                           (mode . shell-mode)))
                 ("PowerShell" (mode . powershell-mode))
                 ("code" (mode . prog-mode))
                 ("Magit" (or
                           (name . "^magit")
                           (name . "\\*magithub.*")))
                 ("Emacs" (or
                           (name . "^\\*scratch\\*$")
                           (name . "^\\*Messages\\*$")
                           (mode . emacs-lisp-mode)))
                 ("Errors" (or
                            (name . ".*error*")
                            (name . ".*[wW]arning")
                            (mode . special-mode)))
                 ("Tramp" (or (filename . "^\\/scp:")
                              (name . "^\\*tramp")))
                 ("iBuffer" (mode . ibuffer-mode))
                 ("Gists" (name . "^\\*gist.*"))
                 ("Org" (or
                         (mode . org-mode)
                         (name . "^\\*Org Agenda\\*$")))
                 ("Help" (or (name . "\\*Help\\*")
                             (name . "\\*Apropos\\*")
                             (name . "\\*info\\*")
                             (mode . help-mode)
                             (mode . helpful-mode))))
                ("Help"
                 ("Man" (mode . man-mode))
                 ("Help" (or (name . "\\*Help\\*")
                             (name . "\\*Apropos\\*")
                             (name . "\\*info\\*")
                             (mode . help-mode)
                             (mode . helpful-mode)))
                 ("Magit" (name . "^magit"))
                 ("dired" (mode . dired-mode)))
                ("Org"
                 ("Org" (or
                         (mode . org-mode)
                         (name . "^\\*Org Agenda\\*$")))))))
  (customize-set-variable 'ibuffer-show-empty-filter-groups nil)
  (customize-set-variable 'ibuffer-expert t)
  (customize-set-variable 'ibuffer-use-other-window t)
  :hook (ibuffer-mode .
                      (lambda ()
                        (ibuffer-auto-mode 1)
                        (ibuffer-switch-to-saved-filter-groups "default")
                        (unless (eq ibuffer-sorting-mode 'alphabetic)
                          (ibuffer-do-sort-by-alphabetic)))))

(use-package ibuffer-vc
  :config
  (setq ibuffer-formats
        '((mark modified read-only vc-status-mini " "
                (name 18 18 :left :elide)
                " "
                (size 9 -1 :right)
                " "
                (mode 16 16 :left :elide)
                " "
                (vc-status 16 16 :left)
                " "
                filename-and-process)))
  :hook (ibuffer-mode .
                      (lambda ()
                        (ibuffer-vc-set-filter-groups-by-vc-root)
                        (unless (eq ibuffer-sorting-mode 'alphabetic)
                          (ibuffer-do-sort-by-alphabetic))))
  )

(use-package ibuffer-projectile
  :bind (:map ibuffer-mode-map
              ("c" . ibuffer-projectile-set-filter-groups)
              ("/ -" . ibuffer-filter-by-directory)))

(use-package amx
  :custom
  (amx-save-file (expand-file-name "smex-save.el" no-littering-var-directory))
  :config
  (amx-mode t))

(use-package swiper
  :config
  (setq ivy-use-selectable-prompt t
        swiper-action-recenter t
        swiper-include-line-number-in-search t
        swiper-goto-start-of-match t
        swiper-stay-on-quit nil)
  (set-face-background 'swiper-line-face "Light Slate Grey"))

(use-package counsel
  :diminish
  :config
  (setq counsel-describe-function-function #'helpful-callable
        counsel-describe-variable-function #'helpful-variable)
  (counsel-mode 1)
  :bind
  ("M-x" . counsel-M-x)
  ("C-h f" . counsel-describe-function)
  ("C-h v" . counsel-describe-variable))

(use-package ivy-hydra)

(use-package ivy-rich
  :init  (ivy-rich-mode 1)
  :config
  (setcdr (assq t ivy-format-functions-alist) #'ivy-format-function-line)
  (customize-set-variable 'ivy-rich-path-style 'abbrev))

(add-hook 'org-shiftup-final-hook 'windmove-up)
(add-hook 'org-shiftleft-final-hook 'windmove-left)
(add-hook 'org-shiftdown-final-hook 'windmove-down)
(add-hook 'org-shiftright-final-hook 'windmove-right)
(setq org-support-shift-select 'always)

(setq-default truncate-lines nil)
(setq truncate-partial-width-windows nil)
(bind-key "C-c t" 'toggle-truncate-lines)

(setq-default visual-line-mode t)

(setq-default case-fold-search t)

(customize-set-variable 'read-buffer-completion-ignore-case t)

(defhydra hydra-scroll (:color pink)
  "Scroll buffers"
  ("v" scroll-up-command "Up")
  ("b" scroll-down-command "Down")
  ("M-v" scroll-down-command)
  ("V" scroll-other-window "Other window up")
  ("B" scroll-other-window-down "Other window down")
  ("q" nil "cancel"))
(bind-key "M-v" 'hydra-scroll/body)

(use-package doom-themes
  :config (load-theme 'doom-vibrant t nil))

(defun my/load-themes ()
  "Loads my themes."
  (interactive)
  (load-theme 'doom-vibrant t nil))

(set-face-attribute 'default nil :font "CaskaydiaCove Nerd Font-12")
(set-face-attribute 'fixed-pitch nil :family "CaskaydiaCove Nerd Font Mono-12")
(set-face-attribute 'fixed-pitch-serif nil :family "CaskaydiaCove Nerd Font Mono-12")
(set-face-attribute 'variable-pitch nil :family "CaskaydiaCove Nerd Font-12")
(add-to-list 'default-frame-alist '(font . "CaskaydiaCove Nerd Font-12"))
(set-frame-font "CaskaydiaCove Nerd Font-11" nil t)
(add-to-list 'default-frame-alist '(fullscreen . maximized))

(defun demo-mode-on ()
  "Increases text-size when presenting."
  (interactive)
  (set-frame-font "CaskaydiaCove Nerd Font Mono-14" nil t))

(defun demo-mode-off ()
  "Decrease text-size to normal."
  (interactive)
  (set-frame-font "CaskaydiaCove Nerd Font-11" nil t))

;; Startup settings
(setq inhibit-splash-screen t
      inhibit-startup-screen t
      initial-scratch-message nil
      initial-major-mode 'org-mode)

;; No menubar, toolbar or scrollbar
(defun my/no-toolbars ()
  "Dont load toolbars or menubars, if in gui-mode"
  (when (display-graphic-p)
  (tool-bar-mode -1)
  (menu-bar-mode -1)
  (set-scroll-bar-mode nil)))

;; Load this when started as server (daemon)
(add-hook 'after-make-frame-functions
  (lambda (frame)
  (select-frame frame)
  (my/no-toolbars)))

;; Don't display toolbars when in gui-mode
(when (display-graphic-p)
  (my/no-toolbars))

;; Start in fullscreen when server
(set-frame-parameter nil 'fullscreen 'fullboth)

(use-package powerline
  :config
  (powerline-default-theme))

;; Press y or n for yes or no
(defalias 'yes-or-no-p 'y-or-n-p)

(setenv "PAGER" "cat")
(bind-key "C-c RET" 'eshell)

(require 'em-tramp) ; to load eshell’s sudo
(require 'password-cache) ;Load password-cache
(setq eshell-prefer-lisp-functions t
      eshell-prefer-lisp-variables t
      password-cache t
      password-cache-expiry 3600
      eshell-history-size 10000
      eshell-buffer-maximum-lines 10000
      eshell-hist-ignoredups t
      eshell-scroll-to-bottom-on-input t)
(customize-set-variable 'eshell-aliases-file (expand-file-name ".config/eshell/aliases" (getenv "HOME")))
(with-eval-after-load 'esh-opt
  (setq eshell-destroy-buffer-when-process-dies t)
  (setq eshell-visual-commands '("htop" "zsh" "vim")))

(use-package eshell-git-prompt
  :straight (eshell-git-prompt :fork t)
  :config (eshell-git-prompt-use-theme 'robbyrussell)
  :custom-face
  (eshell-git-prompt-directory-face ((t (:foreground "cornflower blue"))))
  (eshell-git-prompt-robyrussell-git-face ((t (:foreground "cyan"))))
  (eshell-git-prompt-robyrussell-branch-face ((t (:foreground "deepskyblue"))))
  (eshell-git-prompt-robyrussell-git-dirty-face ((t (:foreground "orange"))))
  (eshell-git-prompt-exit-fail-face ((t (:foreground "red")))))

(cond ((eq system-type 'windows-nt)
       (setq explicit-shell-file-name "pwsh.exe"
             explicit-pwsh.exe-args '())))

;; From https://github.com/magnars/.emacs.d
;; Write backup files to own directory
(setq backup-directory-alist
      `((".*" . ,my/emacs-backup-dir)))

;; Make backups of files, even when they're in version control
(setq delete-old-versions t
      version-control t
      vc-make-backup-files t
      backup-by-copying t
      kept-old-versions 10
      kept-new-versions 20
      auto-save-interval 50
      delete-by-moving-to-trash t)

;; Save point position between sessions
(use-package saveplace
  :config
  (save-place-mode 1)
  (setq save-place-file (expand-file-name ".places" no-littering-var-directory)))

(setq savehist-file (expand-file-name ".savehist" no-littering-var-directory))
(savehist-mode 1)
(setq
 history-length 50
 history-delete-duplicates t
 savehist-save-minibuffer-history t
 savehist-additional-variables
 '(kill-ring
   search-ring
   regexp-search-ring))

(use-package super-save
  :diminish super-save-mode
  :custom
  (super-save-auto-save-when-idle t)
  (super-save-idle-duration 8)
  (super-save-remote-files nil)
  (super-save-exclude '(".gpg"))
  (auto-save-default nil)
  (auto-save-no-message t)
  :config
  (add-to-list 'super-save-triggers 'ace-window)
  (add-to-list 'super-save-triggers 'magit-status)
  (add-to-list 'super-save-hook-triggers 'find-file-hook)
  (add-to-list 'super-save-hook-triggers 'org-after-refile-insert-hook)
  :hook (prog-mode . (lambda ()
                       (super-save-mode 1))))

(defun my/denote-journal ()
  "Create an entry tagged 'journal', while prompting for a title."
  (interactive)
  (denote
   (denote--title-prompt)
   '("journal")))

(with-eval-after-load 'org-capture
  (setq denote-org-capture-specifiers "%l\n%i\n%?")
  (add-to-list 'org-capture-templates
               '("d" "New denote, note with Denote)" plain
                 (file denote-last-path)
                 #'denote-org-capture
                 :no-save t
                 :immediate-finish nil
                 :kill-buffer t
                 :jump-to-captured t)))

(defun my/denote-split-org-subtree ()
  "Create new Denote note as an Org file using current Org subtree."
  (interactive)
  (let ((text (org-get-entry))
        (heading (org-get-heading :no-tags :no-todo :no-priority :no-comment))
        (tags (org-get-tags)))
    (delete-region (org-entry-beginning-position) (org-entry-end-position))
    (denote heading tags 'org)
    (insert text)))

(defun my/denote-create-new-note-from-region (beg end)
  "Create note whose contents include the text between BEG and END.
Prompt for title and keywords of the new note."
  (interactive "r")
  (if-let (((region-active-p))
           (text (buffer-substring-no-properties beg end)))
      (progn
        (denote (denote--title-prompt) (denote--keywords-prompt))
        (insert text))
    (user-error "No region is available")))

(with-eval-after-load 'denote
  (customize-set-variable 'denote-templates
                          `((memo . ,(concat "* Content"
                                             "\n\n"
                                             "* Topics"
                                             "\n\n"))
                            (meeting-notes . ,(concat "* Notes\n"
                                                      "- Subject:\n"
                                                      "- Date:\n"
                                                      "- Attendees:\n"))))
  (when (file-readable-p (expand-file-name "denote-templates.el" user-emacs-directory))
    (load-file (expand-file-name "denote-templates.el" user-emacs-directory))))

(require 'ob-shell)
(require 'ob-eshell)
(require 'ob-python)
(require 'ob-C)

(setq org-agenda-custom-commands
      '(("c" "Weekly schedule"
         ((agenda ""
                  ((org-agenda-span 10)
                   (org-agenda-start-on-weekday nil)
                   (org-agenda-repeating-timestamp-show-all t)
                   (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline 'scheduled))))
          (alltodo ""
                   ((org-agenda-time-grid nil)
                    (org-deadline-warning-days 90))))
         ((org-agenda-compact-blocks t)))

        ("d" "Upcoming dates"
         ((agenda ""
                  ((org-agenda-entry-types '(:deadline))))
          (agenda ""
                  ((org-agenda-entry-types '(:scheduled)))))
         ((org-agenda-time-grid nil)
          (org-agenda-start-on-weekday nil)
          (org-agenda-span 1)
          (org-deadline-warning-days 14)
          (org-agenda-time-grid nil)
          (org-agenda-compact-blocks t)))

        ("l" "Log for last week"
         ((agenda ""
                  ((org-agenda-span 14)
                   (org-agenda-start-day "-7d")
                   (org-agenda-repeating-timestamp-show-all t)
                   (org-agenda-include-inactive-timestamps t))))
         ((org-agenda-compact-blocks t)))

        ("h" . "Hemma|Huset")
        ("hh" "Agenda and Home-related tasks" tags-todo "Hemma|Huset"
         ((agenda "")
          (org-agenda-sorting-strategy '(priority-up effort-down))))
        ("hc" "Todo" tags-todo "Cyklar"
         ((agenda "")
          (todo "TODO|IN-PROGRESS")
          (org-agenda-sorting-strategy '(priority-up effort-down))))
        ("hf" "Todo" tags-todo "Fordon"
         ((agenda "")
          (todo "TODO|IN-PROGRESS")
          (org-agenda-sorting-strategy '(priority-up effort-down))))
        ("hu" "Todo" tags-todo "Huset"
         ((agenda "")
          (todo "TODO|IN-PROGRESS")
          (org-agenda-sorting-strategy '(priority-up effort-down))))

        ("w" "Agenda and Office-related tasks" tags-todo "work|office"
         ((agenda "")
          (todo "TODO|IN-PROGRESS")
          (org-agenda-sorting-strategy '(priority-up effort-down))))
        ))

(setq org-capture-templates
      `(("t" "To do items" entry (file+headline my/notes-file "To Do Items")
         "* TODO %^{Description of todo}\nAdded: %U\n\n%?" :prepend t)

        ;; Blog
        ("b" "Blog idea" entry (file+headline my/notes-file "Blog Topics")
         "* IDEA %^{Title} :Blog:\nAdded: %U\n\n%?" :prepend t)

        ;;Links
        ("l" "Link" entry (file+headline my/notes-file "Links")
         "* [[%^C][%^{Title}]]  %^G\nAdded: %U\n%?" :prepend t)

        ;; Notes
        ("n" "Note" entry (file+headline my/notes-file "Notes")
         "* %^{Title} :NOTE:\n%U\n%a\n\n%?" :clock-in t :clock-resume t)

        ;; Idea
        ("i" "Idea" entry (file+headline my/notes-file "Someday")
         "* IDEA %^{Title}\nAdded: %U\n%?" :prepend t)

        ;; Journal
        ("j" "Journal" entry (file+olp+datetree my/diary-file)
         "* %^{Enter title}\n%U\n%?" :clock-in t :clock-resume t)

        ;; Notes for code
        ("c" "Coding stuff")
        ("cc" "note with code" entry (file+headline my/notes-file "Code")
         "* %? \nAdded: %U\n#+begin_src %^{Language?|emacs-lisp|sh|powershell|python|html}\n%^C\n#+end_src\n")
        ("cs" "note with code, source" entry (file+headline my/notes-file "Code")
         "* %? \nAdded: %U\n#+begin_src %^{Language?|emacs-lisp|sh|powershell|python|html}\n%^C\n#+end_src\n%a\n")

        ;; Reports and bugs
        ("r" "Reporting")
        ("rb" "Bug" entry (file+headline my/notes-file "Reports")
         "* BUG %^{Description of bug} %^G\nAdded: %U\n%?")
        ("rr" "Report" entry (file+headline my/notes-file "Reports")
         "* REPORT %^{Description of report} %^G\nAdded: %U\n#+begin_example\n%^C\n#+end_example\n%?")
        ))

(load "sv-kalender")

(load "sv-kalender-namnsdagar")

(use-package org-mobile
  :straight (:type built-in)
  :init
  (autoload 'org-mobile-pull "org-mobile" nil t)
  (autoload 'org-mobile-push "org-mobile" nil t)
  :config
  (setq org-mobile-directory (expand-file-name "mobileorg/" my/emacs-shared-dir))
  (setq org-mobile-inbox-for-pull (expand-file-name "sync.org" my/org-directory))
  (setq org-mobile-files my/mobile-files)
  (setq org-mobile-agendas 'default)
  (setq org-mobile-force-id-on-agenda-items nil))

(require 'ox-publish)

(setq org-publish-timestamp-directory (expand-file-name ".org-timestamps/" no-littering-var-directory))
(setq org-publish-project-alist
`(("org" :components ("org-notes" "org-static"))
("org-notes"
:base-directory ,my/org-directory
:base-extension "org"
:publishing-directory ,(concat my/onedrive-dir "emacs/html")
:recursive t
:publishing-function org-html-publish-to-html
:headline-levels 4
:auto-preamble t
)
("org-static"
 :base-directory ,my/org-directory
 :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
 :publishing-directory ,(concat my/onedrive-dir "emacs/html")
 :recursive t
 :publishing-function org-publish-attachment
 )
("OL-event"
:base-directory ,(concat my/repo-dir "OL-Event/")
:base-extension "org"
:publishing-directory ,(concat my/repo-dir "OL-Event/")
:publishing-function org-gfm-export-to-markdown
:recursive t
)))

(defun my/org-babel-tangle-config ()
  (when (string-equal (buffer-file-name) my/emacs-orgfile)
    (let ((org-confirm-babel-evaluate nil))
      (org-babel-tangle))))

(add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'my/org-babel-tangle-config)))

(org-clock-persistence-insinuate)
(setq org-clock-display-default-range 'thisweek)
(setq org-clock-persist t)
(setq org-clock-idle-time 60)
(setq org-clock-history-length 35)
(setq org-clock-in-resume t)
(setq org-clock-out-remove-zero-time-clocks t)

(use-package powershell
  :straight (powershell :fork t)
  :commands powershell
  :config
  (setq powershell-eldoc-def-files (list (expand-file-name ".config/eldoc/powershell-eldoc.el" (getenv "HOME"))))
  (if (eq system-type 'gnu/linux)
      (setq powershell-location-of-exe "/usr/bin/pwsh")
    (setq powershell-location-of-exe "pwsh.exe")))
;; Comment these out while troubleshooting.
;;    (setq explicit-powershell\.exe-args '("-NoLogo" "-NoProfile" "-Command" "-"))
;;    (setq explicit-pwsh\.exe-args '("-NoLogo" "-NoProfile" "-Command" "-")))

(use-package ob-powershell
  :config (require 'ob-powershell)
  :custom (ob-powershell-powershell-command "pwsh -NoProfile -NoLogo"))

(org-babel-do-load-languages
 'org-babel-load-languages
 '((shell      . t)
   (eshell     . t)
   (python     . t)
   (lisp       . t)
   (powershell . t)
   (perl       . t)
   (emacs-lisp . t)))

(use-package markdown-mode
  :commands
    (markdown-mode gfm-mode)
  :mode
    (("README\\.md\\'" . gfm-mode)
    ("\\.md\\'" . markdown-mode)
    ("\\.markdown\\'" . markdown-mode))
  :init
    (setq markdown-command "multimarkdown")
  :config
    (add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
    (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
    (add-to-list 'auto-mode-alist '("README\\.md\\'" . gfm-mode)))

(use-package markdown-preview-mode
  :commands markdown-preview)

(use-package ssh-config-mode
:config
 (add-to-list 'auto-mode-alist '("/\\.ssh/config\\'"     . ssh-config-mode))
 (add-to-list 'auto-mode-alist '("/sshd?_config\\'"      . ssh-config-mode))
 (add-to-list 'auto-mode-alist '("/known_hosts\\'"       . ssh-known-hosts-mode))
 (add-to-list 'auto-mode-alist '("/authorized_keys2?\\'" . ssh-authorized-keys-mode))
 (add-hook 'ssh-config-mode-hook 'turn-on-font-lock)
)

(use-package ahk-mode)

(use-package yara-mode)

(use-package es-mode
      :config
  (add-to-list 'auto-mode-alist '("\\.es$" . es-mode)))

(use-package logstash-conf
  :mode  (("logstash.*\\.conf\\'" . logstash-conf-mode)
          ("pipeline.*\\.conf\\'" . logstash-conf-mode)))

(use-package ini-mode
  :mode "\\.ini\\'")

(use-package csv-mode)

(use-package dockerfile-mode)

(use-package docker-compose-mode)

(use-package toml-mode)

(use-package x509-mode
  :config
  (add-to-list 'auto-mode-alist '("\\.cer\\'" . x509-mode))
  (add-to-list 'auto-mode-alist '("\\.crt\\'" . x509-mode))
  (add-to-list 'auto-mode-alist '("\\.crl\\'" . x509-mode))
  (add-to-list 'auto-mode-alist '("\\.csr\\'" . x509-mode))
  (add-to-list 'auto-mode-alist '("\\.pem\\'" . x509-mode))
  (add-to-list 'auto-mode-alist '("\\.key\\'" . x509-mode))
  (defhydra hydra-x509 (:color blue :columns 2)
    "X509 commands"
    ("a" x509-viewasn1 "View ASN1")
    ("c" x509-viewcert "View certificate")
    ("d" x509-viewdh "View DH")
    ("k" x509-viewkey "View key")
    ("r" x509-viewcrl "View CRL")
    ("q" nil "cancel"))
  :bind (:map x509-mode-map
              ("h" . hydra-x509/body))
  )

(use-package json-mode
  :hook (json-mode . (lambda ()
                                   (make-local-variable 'js-indent-level)
                                   (setq js-indent-level 2))))

(add-to-list 'auto-mode-alist '("\\.pac\\'" . javascript-mode))
(add-to-list 'auto-mode-alist '("wpad\\.dat\\'" . javascript-mode))

(use-package lua-mode
  :config
  (add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
  (add-to-list 'auto-mode-alist '("\\.nse$" . lua-mode))
  (add-to-list 'interpreter-mode-alist '("lua" . lua-mode)))

(use-package elpy
  :custom (python-indent-offset 4))

(use-package editorconfig
  :diminish
  :hook (prog-mode . editorconfig-mode))

(use-package chezmoi
  :config (setq-default chezmoi-template-display-p t)
  :bind
  ("C-c C f" .  #'chezmoi-find)
  ("C-c C s" .  #'chezmoi-write)
  :hook (chezmoi-mode . (lambda ()
                               (if chezmoi-mode
                                   (add-to-list 'company-backends 'chezmoi-company-backend)
                                 (delete 'chezmoi-company-backend 'company-backends)))))

(require 'package)
(add-to-list 'package-archives
  '("melpa" .           "https://melpa.org/packages/") t)

(use-package cheat-sh
  :commands cheat-sh)

(use-package free-keys
  :commands free-keys)

(use-package info-colors
  :hook (Info-selection . info-colors-fontify-node)
  :custom-face
  (info-colors-lisp-code-block ((t (:foreground "LightSkyBlue" :weight normal))))
  (info-xref ((t (:foreground "DeepSkyBlue" :weight normal))))
  (Info-quoted ((t (:foreground "SkyBlue" :weight normal)))))

(use-package helpful
  :custom (counsel-describe-function-function #'helpful-callable)
  (counsel-describe-variable-function #'helpful-variable)
  :custom-face (helpful-heading ((t (:foreground "GreenYellow" :weight bold))))
  :bind (("C-h h" . #'helpful-at-point)
         ("C-h C" . #'helpful-command)
         ("C-h F" . #'helpful-function)
         ("C-h M" . #'helpful-macro)
         ([remap describe-key] . helpful-key)
         ([remap describe-variable] . helpful-variable)
         ([remap describe-function] . helpful-callable)
         ([remap describe-symbol] . helpful-callable)
         ([remap describe-command] . helpful-command)))

(use-package hackernews
  :commands hackernews
  :custom-face
  (hackernews-link ((t (:foreground "gold" :weight normal))))
  (hackernews-link-visited ((t (:foreground "LimeGreen" :weight normal))))
  :config
  (customize-set-variable 'hackernews-visited-links-file (concat my/emacs-shared-dir "shared/visited-links.el"))
  (customize-set-variable 'hackernews-items-per-page 60)
  (customize-set-variable 'hackernews-item-format "%-7s%-80t %15c\n"))

(use-package sx
  :config
  (setq sx-cache-directory (expand-file-name "sx/cache/" no-littering-var-directory))

  (defhydra hydra-sx (:color blue :columns 4)
    "Stack Exchange"
    ("t" sx-tab-all-questions "All questions")
    ("i" sx-inbox "Inbox")
    ("o" sx-open-link "Open link")
    ("u" sx-tab-unanswered-my-tags "Unanswered")
    ("a" sx-ask "Ask")
    ("s" sx-search "Search")
    ("q" nil "Cancel"))

  :bind ("C-c x" . hydra-sx/body))

(use-package wiki-summary
  :commands wiki-summary)

(use-package xkcd
  :commands xkcd
  :config
  (defhydra hydra-xkcd (:color pink :hint nil)
    "
   ^Navigate^              ^Move^             ^Extra^
   -----------------------------------------------------------
   _b_: Browse             ^_k_ ↑^            _e_: Explanation
   _r_: Random         ← _h_    _l_ →         _c_: Copy link
   _g_: Update             ^_j_ ↓^            _a_: Alternate text
   _G_: Get                  ^^             ^^_q_: Quit
   "
    ("b"       xkcd-open-browser)
    ("r"       xkcd-rand)
    ("a"       xkcd-alt-text)
    ("g"       xkcd-get-latest)
    ("S-g"     xkcd-get)
    ("G"       xkcd-get)
    ("j"       scroll-up-command)
    ("SPC"     scroll-up-command)
    ("k"       scroll-down-command)
    ("S-SPC"   scroll-up-command)
    ("<left>"  xkcd-prev)
    ("h"       xkcd-prev)
    ("<right>" xkcd-next)
    ("l"       xkcd-next)
    ("e"       xkcd-open-explanation-browser)
    ("c"       xkcd-copy-link)
    ("q"       xkcd-kill-buffer :color blue)
    )
  :bind (:map xkcd-mode-map
              ("h" . hydra-xkcd/body))
  :hook (xkcd-mode . hydra-xkcd/body))

(defun my-nov-font-setup ()
  (face-remap-add-relative 'variable-pitch :family "CaskaydiaCove Nerd Font Mono"
                           :height 1.0))
(use-package nov
  :config (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
  :hook (nov-mode . my-nov-font-setup))