dotemacs/init.org

#+PROPERTY: header-args :tangle yes :load yes

* init.org
** user interface
#+BEGIN_SRC emacs-lisp
(use-package cp-ui
  :demand
  :load-path "~/.emacs.d/contrapunctus/")
#+END_SRC
** ediff
#+BEGIN_SRC emacs-lisp
(use-package ediff
  :config
  (setq ediff-window-setup-function 'ediff-setup-windows-plain)
  ;; boon-like bindings
  (add-hook 'ediff-keymap-setup-hook
            (lambda ()
              (define-key ediff-mode-map (kbd "i") 'ediff-previous-difference)
              (define-key ediff-mode-map (kbd "o") 'ediff-next-difference))))
#+END_SRC
** atomic-chrome
#+BEGIN_SRC emacs-lisp
(require 'atomic-chrome)
(atomic-chrome-start-server)
(setq atomic-chrome-url-major-mode-alist
      '(("wikisource" . mediawiki-mode)))
#+END_SRC
** emacs settings
#+BEGIN_SRC emacs-lisp
(use-package emacs
  :config
  (setq gc-cons-threshold         100000000
        delete-by-moving-to-trash t
        trash-directory           "~/.trash/"
        history-length            1000
        use-file-dialog           nil)
  (setq-default undo-limit (* 80 1000)))
#+END_SRC
** esup, the Emacs StartUp Profiler
#+BEGIN_SRC emacs-lisp
(use-package esup
  :config (setq esup-depth 0))
#+END_SRC
** doc-view
#+BEGIN_SRC emacs-lisp
(use-package doc-view
  :config
  (setq doc-view-resolution 300))
#+END_SRC
** gnutls
#+BEGIN_SRC emacs-lisp
(use-package gnutls
  :config
  ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=36749
  (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3"))
#+END_SRC
** ag, the Silver Searcher
#+BEGIN_SRC emacs-lisp
(use-package ag
  :bind
  ("<f2> p" . ag)
  ("<f2> P" . ag-project-regexp)
  :config
  (setq ag-highlight-search t))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-modal)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-god)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-chronometrist)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package comint
  :bind (:map comint-mode-map
              ("M-p" . #'comint-previous-matching-input-from-input)
              ("M-n" . #'comint-next-matching-input-from-input)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package company-emoji
  :hook (text-mode . company-emoji-init)
  :config (add-to-list 'company-backends 'company-emoji))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package counsel
  :bind ("M-x" . counsel-M-x)
  :config
  (setq counsel-find-file-ignore-regexp "\\`\\."))

;; (use-package elsa
;;   :commands flycheck-elsa-setup)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(global-set-key (kbd "M-w") 'kill-ring-save)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(define-key emacs-lisp-mode-map (kbd "M-w") nil)
;; ;; M-d is useful in the minibuffer
;; (define-key emacs-lisp-mode-map (kbd "M-d") nil)
;; (global-set-key (kbd "M-d") 'easy-kill-delete-region)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package easy-kill
  :disabled
  :bind (("M-w" . easy-kill)
         ("M-d" . easy-kill-delete-region)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package elpher
  :bind (:map elpher-mode-map
              ("n" . elpher-next-link)
              ("p" . elpher-prev-link)
              ("b" . elpher-back)
              ("w" . elpher-copy-current-url)
              ("W" . elpher-copy-link-url)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package elfeed
  :bind (:map elfeed-show-mode-map
              ("v" . nil))
  :config
  (add-to-list 'boon-special-mode-list 'elfeed-show-mode)
  (add-to-list 'boon-special-mode-list 'elfeed-search-mode))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package hydra
  :commands defhydra)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-emms)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package eshell
  :config (setq eshell-history-size 999))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package eww
  :config
  (setq shr-image-animate nil)
  :bind
  ;; start boon specific config
  (:map shr-map
        ("v" . nil))
  (:map shr-image-map
        ("i" . nil)
        ("v" . nil))
  (:map eww-link-keymap
        ("i" . nil)
        ("v" . nil))
  ;; end boon-specific config
  (:map eww-mode-map
        ("b" . #'eww-back-url)
        ("f" . #'eww-forward-url)
        ("v" . nil)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package image-mode
  :bind
  (:map image-map
        ("o" . nil))
  (:map image-mode-map
        ("o" . nil)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package url-cookie
  :config
  (setq url-cookie-confirmation t))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package flx-ido
  :disabled
  :init (flx-ido-mode 1)
  (setq ido-enable-flex-matching t
        ido-use-faces nil))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package flx-isearch
  :disabled
  :bind
  ("C-s" . #'flx-isearch-forward)
  ("C-r" . #'flx-isearch-backward))

;; (use-package flycheck
;;   :ensure t
;;   :init (global-flycheck-mode))

;; (use-package flycheck-elsa
;;   :hook (emacs-lisp-mode . flycheck-elsa-setup))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setenv "PATH" (concat "/home/anon/bin:" (getenv "PATH")))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setenv "EDITOR" "emacsclient")

;; what on earth is this message after every init -
;; ad-handle-definition: `tramp-read-passwd' got redefined

;; ;; (profiler-start 'cpu)
;; (toggle-debug-on-error)
;; ;; (toggle-debug-on-quit)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'dash)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 's)
;; (add-to-list 'load-path "~/.emacs.d/elisp-git/yafolding.el/")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-to-list 'load-path "~/.emacs.d/user/")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-to-list 'load-path "~/.emacs.d/contrapunctus/")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-to-list 'load-path "~/.emacs.d/contrapunctus/fin/")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-to-list 'load-path "~/.emacs.d/contrapunctus/ido-mini/")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(load "cp")

;; (if (not (server-running-p)) (server-start))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(server-start)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package general
  :commands general-define-key)

;; 2017-06-09T00:24:36+0530
;; my laptop's X, W, and G keys gave up the ghost
;; temporary bindings, till my laptop keyboard is fixed

;; 2020-01-07T12:43:41+0530
;; update to use general, add M-f8 binding
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(general-define-key
 "<f8>"    'keyboard-quit
 "M-<f8>"  'eval-defun
 "M-<f9>"  'dired-jump
 "<f10>"   'save-buffer
 "M-<f10>" 'find-file
 "<f11>"   'ido-mini
 "M-<f11>" 'ibuffer
 "<f12>"   'execute-extended-command
 "M-<f12>" 'text-scale-adjust
 "C-c C-j" 'join-line
 "C-c C-r" (lambda () (interactive) (revert-buffer t t))
 ;; for swapped parenthesis and square brackets layout
 "C-)"     'abort-recursive-edit)

;;;; UTF-8 magic
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq locale-coding-system 'utf-8)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(set-terminal-coding-system 'utf-8)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(set-keyboard-coding-system 'utf-8)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(set-selection-coding-system 'utf-8)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(prefer-coding-system 'utf-8)

;;;; Linewrapping
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'org-mode-hook 'visual-line-mode)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'erc-mode-hook 'visual-line-mode)
;(global-set-key (kbd "C-x t") 'toggle-truncate-lines)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'text-mode-hook 'visual-line-mode)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-md)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(cl-loop for hook in
  '(dired-mode-hook prog-mode-hook diff-mode-hook message-mode-hook)
  do (add-hook hook (lambda () (toggle-truncate-lines 1))))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(global-visual-line-mode -1)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq truncate-partial-width-windows nil
      truncate-lines t)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'erc-mode-hook    'visual-line-mode)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'comint-mode-hook 'visual-line-mode)

;; commented out on 2018-03-19T14:18:34+0530
;; (add-hook 'markdown-mode-hook 'auto-fill-mode)
;; (add-hook 'text-mode-hook 'auto-fill-mode)

;; (add-hook 'paredit-mode-hook 'auto-fill-mode)

;;;; Tab settings
;; (setq default-tab-width 4)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq tab-width 4)
;(define-key text-mode-map (kbd "TAB") 'self-insert-command)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq-default indent-tabs-mode nil)
;;;; Fix scrolling
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq scroll-conservatively 10000
      scroll-preserve-screen-position t)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq auto-window-vscroll nil)
;;; Recenter screen on isearch matches
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'isearch-mode-hook 'recenter)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'isearch-update-post-hook 'recenter)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defadvice isearch-repeat-forward
    (after isearch-repeat-forward-recenter activate) (recenter))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defadvice isearch-repeat-backward
    (after isearch-repeat-backward-recenter activate) (recenter))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(ad-activate 'isearch-repeat-forward)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(ad-activate 'isearch-repeat-backward)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(global-set-key (kbd "C-s") 'isearch-forward-regexp)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(global-set-key (kbd "C-r") 'isearch-backward-regexp)

;;;; While we're at it, let's add that to next-error as well
;;;; (this affects jumping to match from M-x grep , too)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'next-error-hook 'recenter)

;;;; ...and to magit-toggle-section
;;; It'd be really cool to (recenter 3) when you /open/ a section,
;;; and (recenter) when you close a section
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defadvice magit-section-toggle
    (after magit-section-toggle-recenter activate) (recenter 3))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(ad-activate 'magit-section-toggle)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defadvice magit-unstage-item
    (after magit-unstage-item-move) (next-line))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(ad-activate 'magit-unstage-item)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defadvice magit-goto-next-section
    (after magit-next-section-recenter activate) (recenter 3))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(ad-activate 'magit-goto-next-section)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defadvice magit-goto-previous-section
    (after magit-previous-section-recenter activate) (recenter 3))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(ad-activate 'magit-goto-previous-section)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defun cp-insert-timestamp ()
  (interactive)
  (insert (format-time-string "%FT%T%z")))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defun cp-insert-date ()
  (interactive)
  (insert (format-time-string "%F")))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package fin)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defun cp/eval-sexp (arg)
  "In emacs-lisp-mode, just run eval-defun.

In other modes - jump to first Lisp expression in current line
and eval it."
  (interactive "P")
  (save-excursion
    (cond ((or
            (equal major-mode 'emacs-lisp-mode)
            (equal major-mode 'lisp-interaction-mode))
           (eval-defun arg))
          ((cp/re-search-line "(")
           (progn
             (forward-char -1)
             (forward-sexp)
             (eval-last-sexp arg)))
          (t nil))))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package helpful
  :bind (("<f1> <f1>" . #'helpful-at-point)
         ("<f1> f"    . #'helpful-callable)
         ("<f1> c"    . #'helpful-command)
         ("<f1> k"    . #'helpful-key)
         ("<f1> v"    . #'helpful-variable)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package ibuffer
  :bind
  (:map ibuffer-mode-map
        ("X" . 'ibuffer-do-kill-on-deletion-marks)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package info
  :config
  (info-initialize)
  (cl-loop for dir in
    '("~/.emacs.d/info/"
      "~/.emacs.d/elisp-git/geiser/doc/"
      "~/lilypond/usr/share/info/")
    do (add-to-list #'Info-directory-list dir))
  :bind
  (("<f1> i" . nil)
   ("<f1> i i" . info)
   ("<f1> i a" . info-apropos)
   ("<f1> i q" . (lambda () (interactive) (info "(emacs)")))
   ("<f1> i w" . (lambda () (interactive) (info "(elisp)")))
   ("<f1> i l" . (lambda () (interactive) (info "(lilypond-notation)")))
   ("<f1> i r" . (lambda () (interactive) (info "(lilypond-learning)")))
   ("<f1> i s" . (lambda () (interactive) (info "(stumpwm)")))
   ("<f1> i o" . (lambda () (interactive) (info "(org)")))
   ("<f1> i g" . (lambda () (interactive) (info "(guile)"))))
  :bind
  (:map Info-mode-map
        ("b" . Info-history-back)
        ("f" . Info-history-forward)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(general-define-key
 ;; "s-k"    'cp-kill-buffer
 "s-k"    'bury-buffer
 "C-x k"  'cp-kill-buffer
 "C-`"    'shell
 "M-`"    'eshell
 "M-<f2>" 'compile
 "M-<f3>" 'run-chicken
 "M-<f4>" 'run-lisp
 "M-<f5>" 'ielm)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(general-define-key
 :prefix "<f1>"
 "M"    'describe-mode
 "m"    'man
 "l"    'find-library)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(general-define-key
 :prefix "<f2>"
 ;; "<f2>" 'imenu
 "<f2>" 'xref-find-definitions
 "r"    'xref-find-references
 "m"    'imenu
 ;; "p" 'grep
 "o"    'find-grep
 "i"    'find-dired
 "h"    'proced)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(general-define-key
 :prefix "<f5>"
 "<f5>" 'eval-buffer
 "i"    'cp-open-init
 "v"    'visual-line-mode
 "f"    'cp-fcf-literally
 "f"    'fundamental-mode
 "t"    'text-mode
 "T"    'cp-insert-timestamp
 "d"    'cp-insert-date
 "c"    'calendar
 "p" 'list-packages)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(general-define-key
 ;; [down-mouse-1]   'mouse-set-point
 ;; [up-mouse-1]     'er/expand-region
 [s-mouse-3]      'bury-buffer
 [mouse-8]        'delete-window
 ;; (kbd "<mouse-9>")   'keyboard-quit
 ;; [mouse-9]        'buffer-menu
 [mouse-9]        'ibuffer
 [C-mouse-9]      'recentf-open-files
 [M-mouse-4]      'next-buffer
 [M-mouse-5]      'previous-buffer
 [M-mouse-8]      'split-window-right
 [M-mouse-9]      'split-window-below
 ;; quitting from helm-mini - whether with keyboard-quit or
 ;; keyboard-escape-quit - "banishes" the mouse pointer to the
 ;; top-right corner!? wtf, helm.
 ;; (kbd "s-<mouse-9>") 'helm-mini
 )
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package help-mode
  :bind
  (:map help-mode-map
        ("b" . help-go-back)
        ("f" . help-go-forward)))

;; More convenient Unicode keys
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(global-unset-key (kbd "M-["))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(general-def
  "C-' r"   (kbd "₹")
  "C-' C-r" (kbd "₹")
  "C-' e"   (kbd "€")
  "C-' b"   (kbd "←")
  "C-' f"   (kbd "→")
  "C-' p"   (kbd "↑")
  "C-' n"   (kbd "↓")
  "C-' l"   (kbd "λ")
  "C-' F"   (kbd "ƒ"))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq default-input-method "devanagari-itrans")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq backup-by-copying t
      backup-directory-alist '(("." . "~/.emacs.d/saves/"))
      delete-old-versions t
      kept-new-versions 2
      kept-old-versions 2
      version-control t)

;; SLIME opens CLHS links in Firefox, but I'd rather open them in Tor
;; Browser; Tor Browser, however, does not permit other applications
;; to open tabs in a running instance. So I wrote this to copy the
;; links automatically instead.
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package browse-url
  :config
  (defun cp-copy-url (url &rest args)
    (with-temp-buffer
      (insert url)
      (kill-ring-save (point-min) (point-max)))
    (message "Copied %s to kill ring" url))
  (setq browse-url-browser-function #'cp-copy-url))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package ivy
  :commands ivy-mode
  :init (ivy-mode)
  :config
  (setq ivy-re-builders-alist
        '((t . ivy--regex-ignore-order))))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package jabber
  :disabled
  :commands jabber-connect
  :config (global-unset-key (kbd "C-x C-j"))
  (global-set-key (kbd "C-x C-j") 'join-line)
  (setq jabber-history-enabled t
        jabber-history-muc-enabled t
        jabber-alert-presence-message-function nil))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package magit
  :bind (("<f5> m" . #'magit-status)
         :map magit-revision-mode-map
         ;; boon
         ("o" . magit-section-forward)
         ("i" . magit-section-backward)
         :map magit-status-mode-map
         ;; boon
         ("o" . magit-section-forward)
         ("i" . magit-section-backward)
         ;; ([mouse-3] . 'magit-section-toggle)
         ([down-mouse-3] . 'mouse-set-point)
         ([up-mouse-3] . 'magit-section-toggle))
  :commands magit-status
  :hook
  (magit-post-stage . (lambda () (recenter))))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package mediawiki
  :commands mediawiki-mode)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package midnight
  :init
  (midnight-mode)
  :config
  (setq clean-buffer-list-kill-regexps '("")
        clean-buffer-list-delay-general 1
        clean-buffer-list-delay-special (* 60 60 12))
  :hook
  (midnight . clean-buffer-list))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package nodejs-repl
  :disabled
  :config (setq nodejs-repl-command "nodejs"))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package nov
  :mode ("\\.epub\\'" . nov-mode))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package package
  :bind
  (:map package-menu-mode-map
        ("c" . package-autoremove))
  :config
  (when (featurep 'boon)
    (general-def package-menu-mode-map
      "X" 'package-menu-execute)))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package feather
  :diminish
  :hook (package-menu-mode . feather-mode)
  :bind ("<f5> p " . list-packages))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package powerline)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package rainbow-delimiters
  :hook (prog-mode . rainbow-delimiters-mode))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package swiper
  :bind
  (("C-s" . swiper)
   ("C-r" . swiper-backward))
  :config
  (setq swiper-action-recenter t))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package sxiv
  :config (setq sxiv-exclude-strings '("meh" "\\.NEF$")))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package time
  :config
  (setq display-time-next-load-average t)
  (add-to-list 'zoneinfo-style-world-list '("Europe/Berlin" "Berlin")))

;; (load "cp-adb")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-editing)
;; (load "cp-evil")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-fm)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-lily)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-sfz)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-prog)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-lisp)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-nav)

;; (ispell-change-dictionary "en")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq ispell-dictionary "en")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package undo-tree
  :commands global-undo-tree-mode
  :if (not (featurep 'evil))
  :diminish undo-tree-mode
  :init (global-undo-tree-mode))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(with-eval-after-load 'text-mode
  (define-key text-mode-map (kbd "M-p") 'org-drag-line-backward)
  (define-key text-mode-map (kbd "M-n") 'org-drag-line-forward))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(autoload 'byte-recompile-file "bytecomp" "byte-recompile-file" t)
;; (2017-12-29T13:21:57+0530
;;  TODO - watch Org and MD files and recompile it if they are newer
;;  than their associated HTML files (e.g. I edited the source on a
;;  phone and synced it back to the laptop)
;;  see (info "(elisp) File Notifications")
;;  and (describe-function 'file-newer-than-file-p)
;;  )
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defun cp/after-save ()
  (let* ((file-path       (buffer-file-name))
         (file-path-shell (shell-quote-argument file-path)))
    (cl-case major-mode
      ;; ;; This would be more useful if it was only displayed when
      ;; ;; tests failed. But even a constantly failing test result
      ;; ;; being shown each time you save can be annoying.
      ;; ('emacs-lisp-mode (let ((project-dir (locate-dominating-file file-path "Cask")))
      ;;                     (when project-dir
      ;;                       (cd project-dir)
      ;;                       (compile "cask exec buttercup -L . --traceback pretty"))))
      ('org-mode
       (pcase (file-name-nondirectory
               (buffer-file-name
                (current-buffer)))
         ((or "chronometrist.org" "chronometrist-key-values.org" "init.org") t)
         (_ (org-html-export-to-html))))
      ('LilyPond-mode
       (let ((project-dir (locate-dominating-file file-path ;; "build.scm""
                                                  "mkly-rules.scm")))
         (when project-dir
           (cd project-dir)
           (compile "~/bin/mkly dev"
                    ;; "./build.scm main pac=on"
                    ))))
      ('latex-mode
       (if (file-exists-p "Makefile")
           (compile (car compile-history))
         (compile (concat "xelatex " file-path-shell))))
      ;; ('markdown-mode (markdown-export))
      ('c-mode
       (compile (concat "gcc -static -o "
                        (shell-quote-argument
                         (file-name-base))
                        " "
                        file-path-shell))))))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(add-hook 'after-save-hook 'cp/after-save)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package compile
  :config
  ;; (add-hook 'compilation-start-hook
  ;;           (lambda (proc)
  ;;             (delete-other-windows)))
  (setq compilation-always-kill t))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-hindi)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-parens)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package keyfreq
  :disabled
  :init
  (keyfreq-mode 1)
  (keyfreq-autosave-mode 1))
;; ;; disabled on 2017-08-18T19:39:21+0530, no longer interested
;; (open-dribble-file (concat "~/.emacs.d/keylogs/"
;;                            (format-time-string "%Y%m%d-%H%M%S")
;;                            ".txt"))

;; 2017-10-14T15:22:56+0530 - I suspect devanagari-itrans tires the
;; left hand faster than the right - let's find out!

;; ;; 2020-08-05T16:28:07+0530 commented out, no longer interested
;; (add-hook
;;  'input-method-activate-hook
;;  (lambda ()
;;    (open-dribble-file
;;     (concat
;;      "~/.emacs.d/keylogs/"
;;      (format-time-string "%Y%m%d-%H%M%S")
;;      "-"
;;      current-input-method
;;      ".txt"))))
;; (add-hook
;;  'input-method-deactivate-hook
;;  (lambda () (open-dribble-file nil)))
#+END_SRC

** recentf
#+BEGIN_SRC emacs-lisp
(use-package recentf
  :init (recentf-mode 1)
  :bind ("C-x C-r C-o" . recentf-open-files)
  :config
  (setq recentf-auto-cleanup 'never
        recentf-max-menu-items 500
        recentf-max-saved-items 1000
        recentf-save-file "/home/anon/.emacs.d/recentf"
        recentf-exclude '("\\.html\\(\\.orig\\)?$"
                          "\\.jpe?g$"
                          "\\.png$"
                          "\\.mp4$"
                          "\\.etc"
                          "\\.umstuff"))
  :hook
  (kill-emacs . recentf-cleanup))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-ido)

;;;; text size change
;; nicked from wasamasa's init - https://github.com/wasamasa/dotemacs/blob/934d0b37692d62fe9af56b52accac5bcd4445ae3/init.org
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq default-frame-alist '((font . "DejaVu Sans Mono-10.5")))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(defun my-fix-emojis (&optional frame)
  (set-fontset-font "fontset-default" nil "Symbola" frame 'append))
(my-fix-emojis)
(add-hook 'after-make-frame-functions 'my-fix-emojis)
;; (set-face-attribute 'default nil :font "-outline-Bitstream Vera Sans Mono-normal-normal-normal-mono-12-*-*-*-c-*-iso8859-1")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(use-package wgrep
  :commands (wgrep-change-to-wgrep-mode))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(setq custom-file "~/.emacs.d/custom.el")
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(load custom-file)

;; must put this after loading the custom file, or I get prompted each time
#+END_SRC
** doom-acario-dark
#+BEGIN_SRC emacs-lisp
;; (require 'doom-themes)
;; (load-theme 'doom-acario-dark)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(mapc (lambda (command)
        (put command 'disabled nil))
      '(downcase-region
        upcase-region
        set-goal-column
        scroll-left
        erc-remove-text-properties-region))
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(require 'cp-org)
(require 'cp-desktop)
(require 'cp-mail)
#+END_SRC

**
#+BEGIN_SRC emacs-lisp
(put 'list-timers 'disabled nil)
#+END_SRC
** GC reset
#+BEGIN_SRC emacs-lisp
(setq gc-cons-threshold 400000)

;; (toggle-debug-on-quit)
;; (profiler-stop)
;; (emacs-init-time)
;; (profiler-report)

;; Local Variables:
;; nameless-current-name: "contrapunctus"
;; eval: (visual-fill-column-mode -1)
;; End:
#+END_SRC
** The End
#+BEGIN_SRC emacs-lisp
(provide 'init)
;;; init.el ends here
#+END_SRC