;; [[file:init-emacs.org::*Start][Start:1]]
;; -*- mode: emacs-lisp; lexical-binding: t; no-byte-compile: t -*-
;;==============================================================================
;;; init-emacs.el
;;
;;; Main Emacs Settings File
;;
;; Author: Kyle W T Sherman
;;
;; This file was generated from init-emacs.org and should not be edited
;; manually.
;;
;; init-emacs.org => init-emacs.el => init-emacs.elc (optionally)
;;==============================================================================
;;==============================================================================
;;; Start
;;==============================================================================
;; Start:1 ends here
;; [[file:init-emacs.org::*Start][Start:2]]
(defun message--with-timestamp (format-string &rest args)
"Add timestamps to `*Messages*' buffer."
(when (and (> (length format-string) 0)
(not (string= format-string " ")))
(let ((deactivate-mark nil))
(save-mark-and-excursion
(with-current-buffer "*Messages*"
(let ((inhibit-read-only t))
(goto-char (point-max))
(when (not (bolp)) (newline))
(insert (format-time-string "[%T] " (current-time)))))))))
;; advise `message'
(advice-add 'message :before #'message--with-timestamp)
(defun init-message (level format-string &rest args)
"Custom version of `message' to log messages during Emacs initialization.
LEVEL is the indentation level."
(let ((file (file-name-sans-extension
(file-name-nondirectory
(or load-file-name buffer-file-name (buffer-name))))))
(message (concat ";;; " file " "
(make-string (* 2 level) ?-)
"> " format-string) args)))
(init-message 1 "Start")
;; display load time after startup
(defun emacs-startup-hook--message-startup-time ()
"Message the Emacs startup time and number of garbage collections."
(message "Emacs startup time: %f seconds"
(float-time (time-subtract after-init-time before-init-time)))
(message "Emacs startup garbage collections: %d" gcs-done))
(add-hook 'emacs-startup-hook #'emacs-startup-hook--message-startup-time)
;; Start:2 ends here
;; [[file:init-emacs.org::*Start][Start:3]]
;; reduce frequency of garbage collections
(setq gc-cons-threshold (* 50 1000 1000)) ; defaults to 800000
;; Start:3 ends here
;; [[file:init-emacs.org::*Start][Start:4]]
;; generic advice wrapper function to ignore errors
(defun advice--ignore-errors (orig-fun &rest args)
"Ignore errors when interactively calling ORIG-FUN with ARGS."
(condition-case err
(apply orig-fun args)
('error
(if (called-interactively-p 'any)
(message "%s" err)
(error err)))))
;; Start:4 ends here
;; [[file:init-emacs.org::*Package Manager][Package Manager:1]]
;;==============================================================================
;;; Package Manager
;;==============================================================================
(init-message 1 "Package Manager")
;; Package Manager:1 ends here
;; [[file:init-emacs.org::*Straight][Straight:1]]
;;------------------------------------------------------------------------------
;;; Package Manager: Straight
;;------------------------------------------------------------------------------
(init-message 2 "Package Manager: Straight")
;; bootstrap
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
(bootstrap-version 5))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
;; use straight with `use-package'
(straight-use-package 'use-package)
;; Straight:1 ends here
;; [[file:init-emacs.org::*Environment Settings][Environment Settings:1]]
;;==============================================================================
;;; Environment Settings
;;==============================================================================
(init-message 1 "Environment Settings")
;; Environment Settings:1 ends here
;; [[file:init-emacs.org::*Debugging][Debugging:1]]
;;------------------------------------------------------------------------------
;;; Environment Settings: Debugging
;;------------------------------------------------------------------------------
(init-message 2 "Environment Settings: Debugging")
;; Debugging:1 ends here
;; [[file:init-emacs.org::*Debugging][Debugging:2]]
;; turn debugging on when errors occur
(setq debug-on-error t)
;; (defun after-init-hook--debug-on-error ()
;; "Hook to turn debugging on after init completes."
;; (setq debug-on-error t))
;; (add-hook 'after-init-hook #'after-init-hook--debug-on-error)
;; Debugging:2 ends here
;; [[file:init-emacs.org::*Modules][Modules:1]]
;; load modules that are used for initialization
(use-package async
;;:quelpa (async))
:straight t)
(use-package bind-key
;;:quelpa (bind-key)
:straight t
:init
;; extract docstrings from lambdas, closures and keymaps if possible
(setq bind-key-describe-special-forms t))
(use-package cl-generic)
(use-package cl-macs)
(use-package dash
;;:quelpa (dash)
:straight t
:demand t
:config
(use-package dash-functional
;;:quelpa (dash-functional)
:straight t
:demand t))
(use-package diminish
;;:quelpa (diminish :fetcher github :repo "myrjola/diminish.el"))
:straight (diminish :type git :host github :repo "myrjola/diminish.el"))
(use-package f
;;:quelpa (f)
:straight t
:demand t)
(use-package s
;;:quelpa (s)
:straight t
:demand t)
(use-package seq)
(use-package subr-x)
(use-package org)
(use-package org-table)
(use-package ob-tangle)
(use-package ox)
;; Modules:1 ends here
;; [[file:init-emacs.org::*Environment][Environment:1]]
;;------------------------------------------------------------------------------
;;; Environment Settings: Environment
;;------------------------------------------------------------------------------
(init-message 2 "Environment Settings: Environment")
;; Environment:1 ends here
;; [[file:init-emacs.org::*Environment][Environment:2]]
;; set coding system to UTF-8
(setq current-language-environment "UTF-8"
locale-coding-system 'utf-8)
(set-language-environment 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
;; Environment:2 ends here
;; [[file:init-emacs.org::*Environment][Environment:3]]
;; set timezone to CST
;;(setenv "TZ" "CDT+6")
(setenv "TZ" "America/Chicago")
;; Environment:3 ends here
;; [[file:init-emacs.org::*Environment][Environment:4]]
;; determine if running on a MS-Windows display
(defconst window-system-windows
;;(memq system-type '(emx win32 w32 mswindows ms-dos windows-nt))
(string= window-system "w32")
"Non-nil if running on a MS-Windows display.")
;; Environment:4 ends here
;; [[file:init-emacs.org::*Environment][Environment:5]]
;; determine if running on a macintosh gnustep or cocoa display
(defconst window-system-mac
(string= window-system "ns")
"Non-nil if running on a Macintosh GNUstep or Cocoa display.")
;; Environment:5 ends here
;; [[file:init-emacs.org::*Environment][Environment:6]]
;; determine if running on a Linux X display
(defconst window-system-linux
(string= window-system "x")
"Non-nil if running on a Linux X display.")
;; Environment:6 ends here
;; [[file:init-emacs.org::*Environment][Environment:7]]
;; determine if running on a work system
(defconst work-system
(file-exists-p "~/.work")
"Non-nil if running on a work system.")
;; Environment:7 ends here
;; [[file:init-emacs.org::*Environment][Environment:8]]
;; cd to home
(cd "~")
;; Environment:8 ends here
;; [[file:init-emacs.org::*Environment][Environment:9]]
;; shell environment
(setq shell-file-name (or (getenv "SHELL") "/bin/bash")
shell-command-switch "-c"
explicit-shell-file-name shell-file-name
explicit-sh-args '("-login" "-i"))
;; quote arguments on windows
(when window-system-windows
(defvar w32-quote-process-args ?\"
"Windows quote arguments."))
;; add /usr/local to path on mac
(when window-system-mac
(add-to-list 'exec-path "/usr/local/sbin")
(add-to-list 'exec-path "/usr/local/bin"))
;; Environment:9 ends here
;; [[file:init-emacs.org::*Environment][Environment:10]]
;; set object print depth (do not abbreviate printed objects)
(setq print-length nil
print-level nil
eval-expression-print-length nil
eval-expression-print-level nil)
;; ;; turn off print header
;; (setq ps-print-header nil)
;; Environment:10 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:1]]
;;------------------------------------------------------------------------------
;;; Environment Settings: Global Variables
;;------------------------------------------------------------------------------
(init-message 2 "Environment Settings: Global Variables")
;; Global Variables:1 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:2]]
;; set emacs home directory
(defconst emacs-home-dir
;;(file-truename "~/.emacs.d")
(expand-file-name "~/.emacs.d")
"Emacs configuration home directory.")
;; Global Variables:2 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:3]]
(defmacro emacs-home-sub-dir (dir)
"Return expanded directory name of DIR if found as a
sub-directory of `emacs-home-dir', or just `emacs-home-dir'
otherwise."
`(or (and (file-exists-p (expand-file-name ,dir emacs-home-dir))
(expand-file-name ,dir emacs-home-dir))
emacs-home-dir))
;; Global Variables:3 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:4]]
;; set emacs modules directory
(defconst emacs-modules-dir
(emacs-home-sub-dir "modules")
"Emacs modules directory.")
;; Global Variables:4 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:5]]
;; set local modules directory
(defconst local-modules-dir
(emacs-home-sub-dir "local-modules")
"Emacs local modules directory.")
;; Global Variables:5 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:6]]
;; set local work modules directory
(defconst local-work-modules-dir
(emacs-home-sub-dir "local-work-modules")
"Emacs local work modules directory.")
;; Global Variables:6 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:7]]
;; set customization file
(defconst customization-file
(expand-file-name "customization.el" emacs-home-dir)
"Emacs customization file.")
(setq custom-file customization-file)
;; Global Variables:7 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:8]]
;; set init-emacs.org true file name
(defconst init-emacs-true-file-name
(file-truename (expand-file-name "init-emacs.org" emacs-home-dir))
"The true file name of this buffer.")
;; Global Variables:8 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:9]]
;; set user name
(defconst user-name "kyle")
(defconst user-full-name "Kyle W T Sherman")
(defconst user-short-name "Kyle Sherman")
(defconst user-first-name "Kyle")
(defconst user-last-name "Sherman")
;; Global Variables:9 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:10]]
;; set email address
(defconst user-mail-address
(if (getenv "EMAIL")
(getenv "EMAIL")
(concat "kyle" "w" "sherman" "@" "gmail" "." "com"))
"User email address.")
;; Global Variables:10 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:11]]
;; set no-spam email address
(defconst user-mail-address-nospam
(replace-regexp-in-string "\\." " dot "
(replace-regexp-in-string "@" " at " user-mail-address))
"Slightly obfuscated user email address.")
;; Global Variables:11 ends here
;; [[file:init-emacs.org::*Global Variables][Global Variables:12]]
(defun signature (&optional fortune)
"Return a signature.
A fortune is added if FORTUNE is non-nil."
(let ((name (or user-short-name user-full-name))
(mail user-mail-address))
(let ((sig (if (and name mail)
(concat name " <" mail ">")
(if name
name
mail))))
(concat (if sig sig "")
(if (and sig fortune) "\n\n" "")
(if fortune
(shell-command-to-string
(concat "fortune -a "
(shell-quote-argument (expand-file-name "~/quotes"))
" | xargs echo -n"))
"")))))
;; Global Variables:12 ends here
;; [[file:init-emacs.org::*Load Path][Load Path:1]]
(init-message 2 "Environment Settings: Load Path")
;; add paths to the head of `load-path' in reverse order.
;; personal elisp projects
(when (file-exists-p local-modules-dir)
(add-to-list 'load-path local-modules-dir))
;; ;; personal emacs initialization scripts
;; (when (file-exists-p local-init-dir)
;; (add-to-list 'load-path local-init-dir))
;; ;; emacs home directory
;; (when (file-exists-p emacs-home-dir)
;; (add-to-list 'load-path emacs-home-dir))
;; emacs modules directory
(when (file-exists-p emacs-modules-dir)
(add-to-list 'load-path emacs-modules-dir))
;; ;; org-mode directory
;; (when (file-exists-p (expand-file-name "org-mode/contrib/lisp" emacs-modules-dir))
;; (add-to-list 'load-path (expand-file-name "org-mode/contrib/lisp" emacs-modules-dir)))
;; (when (file-exists-p (expand-file-name "org-mode/lisp" emacs-modules-dir))
;; (add-to-list 'load-path (expand-file-name "org-mode/lisp" emacs-modules-dir)))
;; Load Path:1 ends here
;; [[file:init-emacs.org::*General][General:1]]
;;------------------------------------------------------------------------------
;;; Environment Settings: General
;;------------------------------------------------------------------------------
(init-message 2 "Environment Settings: General")
;; General:1 ends here
;; [[file:init-emacs.org::*General][General:2]]
(init-message 3 "Disable Splash Screen")
;; disable splash screen
(setq inhibit-startup-screen t)
;; General:2 ends here
;; [[file:init-emacs.org::*General][General:3]]
;; prefer newer el files over elc
(setq load-prefer-newer t)
;; General:3 ends here
;; [[file:init-emacs.org::*General][General:4]]
(init-message 3 "Hide Menu Bar")
;; hide menu-bar (use C-M-z to activate)
(when (and (fboundp 'menu-bar-mode)
menu-bar-mode)
(menu-bar-mode -1))
;; General:4 ends here
;; [[file:init-emacs.org::*General][General:5]]
(init-message 3 "Set Default Buffer Mode to `org-mode'")
;; set default buffer mode to `org-mode'
(setq initial-major-mode 'org-mode)
;; General:5 ends here
;; [[file:init-emacs.org::*General][General:6]]
(init-message 3 "Start with Empty Scratch Buffer")
;; clear scratch buffer
(setq initial-scratch-message nil)
;; General:6 ends here
;; [[file:init-emacs.org::*General][General:7]]
(init-message 3 "Ask before Closing Emacs")
;; ask before closing emacs
(setq kill-emacs-query-functions
(cons (lambda () (yes-or-no-p "Really kill Emacs? "))
kill-emacs-query-functions))
;; General:7 ends here
;; [[file:init-emacs.org::*General][General:8]]
(init-message 3 "Make Backspace Key Work Correctly")
;; make baskspace key work
(normal-erase-is-backspace-mode 1)
;; General:8 ends here
;; [[file:init-emacs.org::*General][General:9]]
(init-message 3 "Add Some Characters to Word Boundaries")
;; add underscore to word boundaries
(modify-syntax-entry ?_ "w")
;; ;; add dash to word boundaries
;; (modify-syntax-entry ?- "w")
;; General:9 ends here
;; [[file:init-emacs.org::*General][General:10]]
(init-message 3 "Beginning of Defun is Outermost Level Open-Paren.")
(setq open-paren-in-column-0-is-defun-start nil
defun-prompt-regexp nil)
;; General:10 ends here
;; [[file:init-emacs.org::*General][General:11]]
(init-message 3 "Ignore Comments when Parsing S-Expressions")
;; do not parse comments in sexp's
(setq parse-sexp-ignore-comments t)
(setq-default parse-sexp-ignore-comments parse-sexp-ignore-comments)
;; General:11 ends here
;; [[file:init-emacs.org::*General][General:12]]
(init-message 3 "Wrap Lines by Default")
;; wrap lines
(setq truncate-lines nil)
;; General:12 ends here
;; [[file:init-emacs.org::*General][General:13]]
(init-message 3 "Turn Off `auto-fill-mode'")
;; do not automatically break lines by inserting newlines
(turn-off-auto-fill)
;; General:13 ends here
;; [[file:init-emacs.org::*General][General:14]]
(init-message 3 "Turn On `global-visual-line-mode'")
;; visually break lines that are longer than the screen width
;;(global-visual-line-mode 1)
(defun buffer-menu-mode-hook--visual-line-mode()
"Hook to turn on `visual-line-mode' in most buffers."
(when (not (string= (substring (buffer-name) 0 1) "*"))
(visual-line-mode 1)))
(add-hook 'buffer-menu-mode-hook #'buffer-menu-mode-hook--visual-line-mode)
;; use curly arrows to indicate a visual line wrap
(setq visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))
;; General:14 ends here
;; [[file:init-emacs.org::*General][General:15]]
(init-message 3 "Prevent `next-line' from Inserting Newlines")
;; stop cursor at the end of the file
(setq next-line-add-newlines nil)
;; General:15 ends here
;; [[file:init-emacs.org::*General][General:16]]
(init-message 3 "Keep the Cursor in the Same Column When Using Page-Up and Page-Down")
;; keep screen position when using page-up and page-down
(setq scroll-preserve-screen-position 'keep)
;; General:16 ends here
;; [[file:init-emacs.org::*General][General:17]]
(init-message 3 "Scroll Conservatively")
;; scroll one line at a time
(setq scroll-step 1)
;; scroll fewer lines
(setq scroll-conservatively 101)
;; turn off vertical auto-scroll
(setq auto-window-vscroll nil)
;; General:17 ends here
;; [[file:init-emacs.org::*General][General:18]]
(init-message 3 "Ignore Case on Search Matches")
;; make searches case-insensitive
(setq case-fold-search t)
;; General:18 ends here
;; [[file:init-emacs.org::*General][General:19]]
(init-message 3 "Highlight Search Matches")
;; highlight search matches
(setq search-highlight t
;;isearch-highlight t
query-replace-highlight t)
;; General:19 ends here
;; [[file:init-emacs.org::*General][General:20]]
(init-message 3 "Hightlight Marked Regions")
;; make current selection visible
(transient-mark-mode 1)
(setq-default transient-mark-mode t)
;; General:20 ends here
;; [[file:init-emacs.org::*General][General:21]]
(init-message 3 "Set Default Tab Indentation to Four Spaces and Turn on Auto-Complete")
;; set tab indentation, width, and convert tabs to spaces
(setq indent-tabs-mode nil ; do not insert tab characters
tab-width 4 ; default tab width is four spaces
standard-indent 4 ; default margin-changing functions indent
tab-always-indent 'complete ; tab key will try to auto-complete after auto-tabbing line
tab-stop-list (number-sequence 4 180 4)) ; tab stops set to every 4 spaces
(setq-default indent-tabs-mode indent-tabs-mode
tab-width tab-width
standard-indent standard-indent
tab-always-indent tab-always-indent
tab-stop-list tab-stop-list)
;; General:21 ends here
;; [[file:init-emacs.org::*General][General:22]]
(init-message 3 "Set Default Line-Wrapping Column to 78")
;; set default fill column for `auto-fill-mode' mode and `fill-paragraph'
(setq fill-column 78)
(setq-default fill-column fill-column)
;; General:22 ends here
;; [[file:init-emacs.org::*General][General:23]]
(init-message 3 "Set Default Right-Margin Comment Indent Column to 40")
;; set default comment column for in-line comments
(setq comment-column 40)
(setq-default comment-column comment-column)
;; set default comment fill column for in-line comments
(setq comment-fill-column nil)
(setq-default comment-fill-column comment-fill-column)
;; General:23 ends here
;; [[file:init-emacs.org::*General][General:24]]
(init-message 3 "Have Cursor Movements Attempt to Keep Point on Original Column")
;; turn on goal column support
(put 'set-goal-column 'disabled nil)
;; General:24 ends here
;; [[file:init-emacs.org::*General][General:25]]
(init-message 3 "Sentences and Colons Should Have Two Spaces after Them")
;; insert two spaces after a sentence when filling text
(setq sentence-end-double-space t)
;; insert two spaces after a colon when filling text
(setq colon-double-space t)
;; General:25 ends here
;; [[file:init-emacs.org::*General][General:26]]
(init-message 3 "Highlight Matching Parenthesis")
;; highlight matching parenthesis
(show-paren-mode 1)
;; General:26 ends here
;; [[file:init-emacs.org::*General][General:27]]
(init-message 3 "Highlight TABs")
;; highlight tabs
(setq highlight-tabs t)
(setq-default highlight-tabs highlight-tabs)
;; General:27 ends here
;; [[file:init-emacs.org::*General][General:28]]
(init-message 3 "Highlight Tabs and Trailing Whitespace")
;; ;; highlight trailing white spaces
;; (setq show-trailing-whitespace t)
;; (setq-default show-trailing-whitespace show-trailing-whitespace)
;; highlight tabs and trailing white spaces
(setq whitespace-style '(face trailing tab-mark))
(custom-set-faces '(whitespace-tab ((t (:foreground "green" :background "black")))))
(setq whitespace-display-mappings
'((space-mark 32 [183] [46]) ; 32 space ' ', 183 middle dot '·', 46 full stop '.'
(newline-mark 10 [182 10]) ; 10 linefeed '\n', 182 ??? '¶'
(tab-mark 9 [9655 9] [92 9]))) ; 9 tab '\t', 9655 '▷', 92 backslash '\'
(global-whitespace-mode) ; enable whitespace mode everywhere
;; General:28 ends here
;; [[file:init-emacs.org::*General][General:29]]
(init-message 3 "Highlight Current Line")
;; highlight current line
(hl-line-mode 1)
(global-hl-line-mode 1)
;; General:29 ends here
;; [[file:init-emacs.org::*General][General:30]]
(init-message 3 "Turn on Syntax Highlighting")
;; turn on global font lock mode and syntax highlighting
(global-font-lock-mode 1)
(setq font-lock-maximum-decoration t)
;; General:30 ends here
;; [[file:init-emacs.org::*General][General:31]]
(init-message 3 "Typing Replaces Highlighted Text")
;; replace highlighted text with typed text
(delete-selection-mode t)
;; General:31 ends here
;; [[file:init-emacs.org::*General][General:32]]
(init-message 3 "Set Commenting Style to Indent")
;; ;; set comment start (default) and padding
;; (setq comment-start "#"
;; comment-padding " ")
;; set comment style
(setq comment-style 'indent)
;; General:32 ends here
;; [[file:init-emacs.org::*General][General:33]]
(init-message 3 "Have `apropos' Search All Symbols and Order by Relevance")
;; make apropos command search all symbols
(setq apropos-do-all t)
;; make apropos command list results by relevance
(setq apropos-sort-by-scores t
apropos-documentation-sort-by-scores t)
;; General:33 ends here
;; [[file:init-emacs.org::*General][General:34]]
(init-message 3 "Set Default `grep' Command")
;; set grep command
(setq grep-command "grep -n -H -i -r -e ")
;; General:34 ends here
;; [[file:init-emacs.org::*General][General:35]]
(init-message 3 "Set Email Sources")
;; email settings
(setq mail-sources `((pop :server "pop.gmail.com" :port 995
:user ,user-mail-address
:connection ssl :leave t)))
;; General:35 ends here
;; [[file:init-emacs.org::*General][General:36]]
(init-message 3 "Set Default Browser")
;; set default browser
;;(setq browse-url-generic-program "x-www-browser")
;;(setq browse-url-generic-program "w3m")
;;(setq browse-url-generic-program "mozilla")
;;(setq browse-url-browser-function 'browse-url-generic)
(setq browse-url-browser-function 'eww-browse-url)
;;(setq browse-url-browser-function 'w3m-browse-url)
;;(setq browse-url-browser-function 'browse-url-firefox
;; browse-url-new-window-flag t
;; browse-url-firefox-new-window-is-tab t)
;; set secondary browser
(setq browse-url-secondary-browser-function 'browse-url-default-browser)
;; General:36 ends here
;; [[file:init-emacs.org::*General][General:37]]
(init-message 3 "Single Character Deletion Commands Delete Active Regions Without Saving to the Kill Ring")
;; when deleting an active region via single character deletion command,
;; do not save to kill ring
(setq delete-active-region t)
;; General:37 ends here
;; [[file:init-emacs.org::*General][General:38]]
(init-message 3 "Disable `vc-git'.")
;; disable vc-git
(setq vc-handled-backends nil)
;; General:38 ends here
;; [[file:init-emacs.org::*General][General:39]]
;; (init-message 3 "Recenter window after `next-error'.")
;; ;; always recenter after `next-error'
;; (setq next-error-recenter '(4))
;; ;;(add-hook 'next-error-hook #'recenter :append)
;; General:39 ends here
;; [[file:init-emacs.org::*General][General:40]]
(init-message 3 "Recenter window after `occur-mode-goto-occurrence'.")
;; always recenter after `occur-mode-goto-occurrence'
(defun occur-mode-goto-occurrence--recenter (&optional arg)
"Recenter when an `occur' result is selected."
(recenter))
;; advise `occur-mode-goto-occurrence'
(advice-add 'occur-mode-goto-occurrence :after #'occur-mode-goto-occurrence--recenter)
;; General:40 ends here
;; [[file:init-emacs.org::*General][General:41]]
(init-message 3 "Set time zones to use for `display-time-world'.")
;; set display-time-world time zones
(setq display-time-world-list
'(("Etc/UTC" "UTC")
("America/Los_Angeles" "San Diego")
("America/Chicago" "Minneapolis")
("America/New_York" "New York")
("Etc/GMT" "GMT")
("Europe/London" "London")
("Europe/Paris" "Paris")
("Asia/Tokyo" "Tokyo")))
;; General:41 ends here
;; [[file:init-emacs.org::*General][General:42]]
(init-message 3 "Set `safe-local-variable-values'.")
;; set safe-local-variable-values
(setq safe-local-variable-values
'((org-babel-noweb-wrap-end . "}}}")
(org-babel-noweb-wrap-start . "{{{")))
;; General:42 ends here
;; [[file:init-emacs.org::*System][System:1]]
;;------------------------------------------------------------------------------
;;; Environment Settings: System
;;------------------------------------------------------------------------------
(init-message 2 "Environment Settings: System")
;; System:1 ends here
;; [[file:init-emacs.org::*System][System:2]]
;; set max variable bindings
(setq max-specpdl-size 10000) ; defaults to 1300
;; System:2 ends here
;; [[file:init-emacs.org::*System][System:3]]
;; set max eval depth
(setq max-lisp-eval-depth 10000) ; defaults to 600
;; System:3 ends here
;; [[file:init-emacs.org::*System][System:4]]
;; set max message log size
(setq message-log-max 2048) ; defaults to 1000
;; System:4 ends here
;; [[file:init-emacs.org::*System][System:5]]
;; set max history list size
(setq history-length 250) ; defaults to 30
;; remove duplicates from history lists
(setq history-delete-duplicates t) ; defaults to nil
;; System:5 ends here
;; [[file:init-emacs.org::*System][System:6]]
;; set max kill ring size
(setq kill-ring-max 100) ; defaults to 60
;; set max mark ring size
(setq mark-ring-max 32) ; defaults to 16
;; System:6 ends here
;; [[file:init-emacs.org::*System][System:7]]
;; change all calls to `yes-or-no-p' to `y-or-n-p'
(fset 'yes-or-no-p 'y-or-n-p)
;; System:7 ends here
;; [[file:init-emacs.org::*System][System:8]]
;; enable upercase region (C-x C-u)
(put 'upcase-region 'disabled nil)
;; enable lowercase region (C-x C-l)
(put 'downcase-region 'disabled nil)
;; enable narrow to region
(put 'narrow-to-region 'disabled nil)
;; turn off the disabling of certain commands
(setq disabled-command-function nil)
;; System:8 ends here
;; [[file:init-emacs.org::*System][System:9]]
;; turn off bidirectional paragraph formatting
(setq-default bidi-paragraph-direction 'left-to-right)
;; turn off bidirectional parentheses matching
(when (version<= "27.1" emacs-version)
(setq bidi-inhibit-bpa t))
;; turn on `so-long-mode' for files with long lines to help with performance
(when (version<= "27.1" emacs-version)
(global-so-long-mode 1))
;; System:9 ends here
;; [[file:init-emacs.org::*Files][Files:1]]
;;------------------------------------------------------------------------------
;;; Environment Settings: Files
;;------------------------------------------------------------------------------
(init-message 2 "Environment Settings: Files")
;; Files:1 ends here
;; [[file:init-emacs.org::*Files][Files:2]]
;; enable file variables
(setq enable-local-variables t
enable-local-eval 'maybe)
;; Files:2 ends here
;; [[file:init-emacs.org::*Files][Files:3]]
;; set temporary files dir to '/tmp/'
(setq temporary-file-directory "/tmp/")
;; Files:3 ends here
;; [[file:init-emacs.org::*Files][Files:4]]
;; delete auto-save files
(setq delete-auto-save-files t)
;; do not make auto-save files
(setq auto-save-default nil)
(setq-default auto-save-default nil)
(setq auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
auto-save-list-file-prefix temporary-file-directory
auto-save-list-file-name nil
auto-save-default nil)
;; Files:4 ends here
;; [[file:init-emacs.org::*Files][Files:5]]
;; do not make backup files
(setq make-backup-files nil)
(setq-default make-backup-files nil)
(setq backup-directory-alist `((".*" . ,temporary-file-directory))
make-backup-files nil
backup-by-copying t
version-control nil
delete-old-versions t)
;; Files:5 ends here
;; [[file:init-emacs.org::*Files][Files:6]]
;; do not make lock files
(setq create-lockfiles nil)
(setq-default create-lockfiles nil)
;; Files:6 ends here
;; [[file:init-emacs.org::*Files][Files:7]]
;; follow symlinks to version control files without asking or warning
(setq vc-follow-symlinks t)
(setq-default vc-follow-symlinks vc-follow-symlinks)
;; Files:7 ends here
;; [[file:init-emacs.org::*Files][Files:8]]
;; handle gzip/zip/jar/tar files
(auto-compression-mode t)
;; Files:8 ends here
;; [[file:init-emacs.org::*Files][Files:9]]
;; reuse existing buffers, following file links
(setq find-file-existing-other-name t)
;; Files:9 ends here
;; [[file:init-emacs.org::*Files][Files:10]]
;; end files with a newline
(setq require-final-newline t)
;; Files:10 ends here
;; [[file:init-emacs.org::*Files][Files:11]]
;; turn on auto buffer revert mode
(global-auto-revert-mode 1)
;; this is currently bugged and will cause the buffer to re-center vertically every couple of seconds
;; (setq global-auto-revert-non-file-buffers t ; auto refresh dired too
;; auto-revert-verbose nil) ; but, be quiet about it
;; Files:11 ends here
;; [[file:init-emacs.org::*Files][Files:12]]
(defun create-buffer-file-name-directory-if-needed ()
"Create `buffer-file-name' directory if it does not already exist."
(when (and buffer-file-name
(not (file-exists-p (file-name-directory buffer-file-name))))
(make-directory (file-name-directory buffer-file-name) t)))
;; create directories if needed on file save
(add-hook 'before-save-hook #'create-buffer-file-name-directory-if-needed)
;; Files:12 ends here
;; [[file:init-emacs.org::*Files][Files:13]]
;; delete trailing lines on call to `delete-trailing-whitespace'
(setq delete-trailing-lines t)
(defun delete-trailing-whitespace-if-not-read-only (&optional beg end)
"Call `delete-trailing-whitespace' if current buffer is not read-only."
(interactive (if (use-region-p)
(list (region-beginning) (region-end))
(list nil nil)))
(when (not buffer-read-only)
(delete-trailing-whitespace beg end)))
;; delete trailing whitespace on save
(add-hook 'before-save-hook #'delete-trailing-whitespace-if-not-read-only)
;; Files:13 ends here
;; [[file:init-emacs.org::*Files][Files:14]]
;; make shell scripts executable when saving (and reset the buffer mode)
(when (fboundp 'executable-make-buffer-file-executable-if-script-p)
(add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p))
;; Files:14 ends here
;; [[file:init-emacs.org::*Files][Files:15]]
;; set DOS file extensions
(add-to-list 'file-coding-system-alist '("\\.ASM\\'" . dos))
(add-to-list 'file-coding-system-alist '("\\.BAT\\'" . dos))
(add-to-list 'file-coding-system-alist '("\\.DO\\'" . dos))
(add-to-list 'file-coding-system-alist '("\\.SYS\\'" . dos))
;; Files:15 ends here
;; [[file:init-emacs.org::*Files][Files:16]]
;; auto-save bookmarks
(setq bookmark-save-flag 1)
;; Files:16 ends here
;; [[file:init-emacs.org::*Files][Files:17]]
;; desktop history
(desktop-save-mode 1)
(setq desktop-save 'ask-if-new
desktop-load-locked-desktop t
desktop-restore-eager 0 ; do not restore any buffers until all modules and modes have loaded
desktop-buffers-not-to-save (concat "\\("
"\\.log\\|(ftp)\\|^tags\\|^TAGS"
"\\.diary\\|\\diary\\|\\.bbdb"
"\\)$"))
(add-to-list 'desktop-globals-to-save 'file-name-history t)
(add-to-list 'desktop-modes-not-to-save 'Info-mode t)
(add-to-list 'desktop-modes-not-to-save 'info-lookup-mode t)
;;(add-to-list 'desktop-modes-not-to-save 'dired-mode t)
;;(add-to-list 'desktop-modes-not-to-save 'fundamental-mode t)
;; Files:17 ends here
;; [[file:init-emacs.org::*Files][Files:18]]
;; save minibuffer history
(when (fboundp 'savehist-mode)
(savehist-mode 1)
(setq savehist-save-minibuffer-history 1
savehist-additional-variables '(search-ring
regexp-search-ring)))
;; Files:18 ends here
;; [[file:init-emacs.org::*Buffers and Windows][Buffers and Windows:1]]
;;------------------------------------------------------------------------------
;;; Environment Settings: Buffers and Windows
;;------------------------------------------------------------------------------
(init-message 2 "Environment Settings: Buffers and Windows")
;; Buffers and Windows:1 ends here
;; [[file:init-emacs.org::*Buffers and Windows][Buffers and Windows:2]]
;; allow undo/redo of window settings
(when (fboundp 'winner-mode)
(winner-mode 1))
;; Buffers and Windows:2 ends here
;; [[file:init-emacs.org::*Buffers and Windows][Buffers and Windows:3]]
;; delay buffer fontification to increase scroll speed
(setq jit-lock-defer-time 0.05)
;; Buffers and Windows:3 ends here
;; [[file:init-emacs.org::*Buffers and Windows][Buffers and Windows:4]]
;; preserve buffer point for each window
(setq switch-to-buffer-preserve-window-point t)
;; Buffers and Windows:4 ends here
;; [[file:init-emacs.org::*Buffers and Windows][Buffers and Windows:5]]
;; smoother mouse movement
(setq mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control))))
;; Buffers and Windows:5 ends here
;; [[file:init-emacs.org::*Buffers and Windows][Buffers and Windows:6]]
;; increase maximum mini-window height
(setq max-mini-window-height 0.50)
;; Buffers and Windows:6 ends here
;; [[file:init-emacs.org::*Tabs][Tabs:1]]
;;------------------------------------------------------------------------------
;;; General Settings: Tabs
;;------------------------------------------------------------------------------
(init-message 2 "General Settings: Tabs")
;; Tabs:1 ends here
;; [[file:init-emacs.org::*Tabs][Tabs:2]]
;; regular tab width
(setq local-tab-width 4)
;; short tab width used for certain modes
(setq local-short-tab-width 2)
;; set tabs
(defun set-tabs (enable &optional width)
"Set default tab settings.
If ENABLED is non-nil, enable TAB characters.
Otherwise, disable TAB characters.
If WIDTH is given, it is used to set the TAB width.
Otherwise, `local-tab-width' is used."
(let ((width (or width local-tab-width)))
(setq indent-tabs-mode enable ; whether to insert tab characters
tab-width width ; set tab width
standard-indent width ; set margin-changing functions indent
tab-always-indent 'complete ; tab key will try to auto-complete after auto-tabbing line
tab-stop-list (number-sequence width 180 width) ; set tab stops
backward-delete-char-untabify-method 'hungry))) ; backspace will erase tab instead of one space
;; disable tabs
(defun disable-tabs (&optional width)
"Disable TAB character usage, using WIDTH if given."
(set-tabs nil width))
;; enable tabs
(defun enable-tabs (&optional width)
"Enable TAB character usage, using WIDTH if given."
(set-tabs t width))
;; enable tabs 4
(defun enable-tabs-4 ()
"Enable TAB character usage with a width of 4 spaces."
(set-tabs t 4))
;; enable tabs 8
(defun enable-tabs-8 ()
"Enable TAB character usage with a width of 8 spaces."
(set-tabs t 8))
;; Tabs:2 ends here
;; [[file:init-emacs.org::*No heading][No heading:1]]
;;------------------------------------------------------------------------------
;;;; Environment Settings: Terminals: Configuration
;;------------------------------------------------------------------------------
(init-message 3 "Environment Settings: Terminals: Configuration")
(setq local-terminal-history-size 10000
local-terminal-maximum-lines 10000)
;; No heading:1 ends here
;; [[file:init-emacs.org::*eshell][eshell:1]]
;;------------------------------------------------------------------------------
;;;; Environment Settings: Terminals: eshell
;;------------------------------------------------------------------------------
(init-message 3 "Environment Settings: Terminals: eshell")
(defun local-eshell-first-time-mode-hook ()
;; save command history
(add-hook 'eshell-pre-command-hook #'eshell-save-some-history)
;; truncate history for performance
(add-to-list 'eshell-output-filter-functions #'eshell-truncate-buffer))
(use-package eshell
:hook (eshell-first-time-mode . local-eshell-first-time-mode-hook)
;; :bind (:map eshell-mode-map
;; ([remap beginning-of-line] . eshell-bol)
;; ([remap move-beginning-of-line] . eshell-bol)
;; ("C-r" . counsel-esh-history))
:custom
(eshell-history-size local-terminal-history-size)
(eshell-buffer-maximum-lines local-terminal-maximum-lines)
(eshell-hist-ignoredups t)
(eshell-scroll-to-bottom-on-input t)
:config
(setenv "PAGER" "cat") ; less does not work well inside Emacs
(with-eval-after-load 'esh-opt
(setq eshell-destroy-buffer-when-process-dies t
eshell-visual-commands '("htop" "ssh" "vim" "zsh"))))
(use-package eshell-git-prompt
;;:quelpa (eshell-git-prompt)
:straight t
:after (eshell)
:config
(eshell-git-prompt-use-theme 'powerline))
;; eshell:1 ends here
;; [[file:init-emacs.org::*term-bash][term-bash:1]]
;;------------------------------------------------------------------------------
;;;; Environment Settings: Terminals: term-bash
;;------------------------------------------------------------------------------
(init-message 3 "Environment Settings: Terminals: term-bash")
(defun term-bash ()
"Start a BASH terminal-emulator in a new buffer."
(interactive)
(term "/bin/bash"))
;; term-bash:1 ends here
;; [[file:init-emacs.org::*term-zsh][term-zsh:1]]
;;------------------------------------------------------------------------------
;;;; Environment Settings: Terminals: term-zsh
;;------------------------------------------------------------------------------
(init-message 3 "Environment Settings: Terminals: term-zsh")
(defun term-zsh ()
"Start a ZSH terminal-emulator in a new buffer."
(interactive)
(term "/bin/zsh"))
;; term-zsh:1 ends here
;; [[file:init-emacs.org::*vterm][vterm:1]]
;;------------------------------------------------------------------------------
;;;; Environment Settings: Terminals: vterm
;;------------------------------------------------------------------------------
(init-message 3 "Environment Settings: Terminals: vterm")
(use-package vterm
;;:quelpa (vterm)
:straight t
:commands (vterm)
:custom
(vterm-max-scrollback local-terminal-maximum-lines)
(vterm-kill-buffer-on-exit nil))
;; vterm:1 ends here
;; [[file:init-emacs.org::*GUI][GUI:1]]
;;------------------------------------------------------------------------------
;;; General Settings: GUI
;;------------------------------------------------------------------------------
(when window-system
(init-message 2 "General Settings: GUI")
;; clipboard
(when (string= window-system "x")
(setq select-enable-clipboard t ; cutting and pasting uses clipboard
select-enable-primary t ; cutting and pasting uses primary selection
x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING) ; data-type request for X selection
save-interprogram-paste-before-kill t ; save clipboard strings into kill ring before replacing them
interprogram-paste-function 'x-cut-buffer-or-selection-value ; function to call to get text cut from other programs
mouse-yank-at-point t)) ; mouse yank commands yank at point
;; inverse video on
(setq inverse-video t)
;; turn off bell
(setq ring-bell-function 'ignore)
;; turn off cursor blinking
(blink-cursor-mode 0)
;; ;; scroll bar on right
;; (setq scroll-bar-mode 'right)
;; (scroll-bar-mode -1)
;; (scroll-bar-mode 1)
;; turn off scroll bar
(when (and (fboundp 'scroll-bar-mode)
scroll-bar-mode)
(scroll-bar-mode -1))
;; turn off toolbar
(when (and (fboundp 'tool-bar-mode)
tool-bar-mode)
(tool-bar-mode -1))
;; visible bell
(setq visible-bell t)
;; make default frame size fullscreen
;;(add-to-list 'default-frame-alist '(fullscreen . maximized))
;; put current buffer name in title bar
(setq frame-title-format "%b")
;; mouse button one drags the scroll bar
(bind-keys* ([vertical-scroll-bar down-mouse-1] . scroll-bar-drag))
;; scroll mouse settings
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1))
mouse-wheel-progressive-speed t)
;; set default font
(ignore-errors
(cl-case window-system
(x
(condition-case nil
(progn
;;(set-frame-font "8x13" nil t)
;;(set-frame-font "9x15" nil t)
;;(set-frame-font "Ubuntu Mono-13" nil t)
;;(set-frame-font "Inconsolata-15" nil t)
;;(set-frame-font "BitstreamVeraSansMono Nerd Font Mono-12" nil t)
;;(set-frame-font "DroidSansMono Nerd Font Mono-12" nil t)
(set-frame-font "Hack Nerd Font Mono-12" nil t)
;;(set-face-attribute 'default nil :font "Hack Nerd Font Mono" :height 132)
;;(set-face-attribute 'fixed-pitch nil :font "Hack Nerd Font Mono" :height 156)
;;(set-face-attribute 'variable-pitch nil :font "Hack Nerd Font" :height 168 :weight 'regular)
)
('error
(set-frame-font "9x15" nil t))))
(ns
(condition-case nil
(progn
;;(set-frame-font "BitstreamVeraSansMono Nerd Font Mono-14" nil t)
;;(set-frame-font "DroidSansMono Nerd Font Mono-14" nil t)
(set-frame-font "Hack Nerd Font Mono-14" nil t)
)
('error
(set-frame-font "Menlo" nil t))))))
;; set faces
;; green foreground on black background with yellow cursor
(custom-set-faces
'(default ((t (:foreground "green" :background "black"))))
'(cursor ((t (:background "yellow")))))
;; transparant background (not on Macs)
(defvar background-alpha
100
"Background transparency alpha percentage.
Common values:
100 = none
90 = 10% transparency
85 = 15% transparency
80 = 20% transparency")
;;(setq background-alpha (if window-system-mac 100 100)) ; 0% transparency
;;(setq background-alpha (if window-system-mac 100 90)) ; 10% transparency
(setq background-alpha (if window-system-mac 100 85)) ; 15% transparency
;;(setq background-alpha (if window-system-mac 100 80)) ; 20% transparency
(set-frame-parameter (selected-frame) 'alpha
`(,background-alpha . ,background-alpha))
(add-to-list 'default-frame-alist
`(alpha . (,background-alpha . ,background-alpha)))
;;------------------------------------------------------------------------------
;;;; Theme
;;------------------------------------------------------------------------------
(init-message 3 "General Settings: GUI: Theme")
;; flatland theme
;; https://github.com/gchp/flatland-emacs
(use-package flatland-theme
;;:quelpa (flatland-theme)
:straight t
:init (load-theme 'flatland t))
;; ;; dracula theme
;; ;; https://draculatheme.com/emacs/
;; (use-package dracula-theme
;; ;;:quelpa (dracula-theme)
;; :straight t
;; :init (load-theme 'dracula t))
;; ;; material theme
;; ;; https://github.com/cpaulik/emacs-material-theme
;; (use-package material-theme
;; ;;:quelpa (material-theme)
;; :straight t
;; :init (load-theme 'material t))
;; material theme
;; https://github.com/cpaulik/emacs-material-theme
;; (use-package material-theme
;; ;; :quelpa (material-theme)
;; :load-path (lambda () (expand-file-name "material-theme.el" local-modules-dir))
;; :init (load-theme 'material t))
;; ;; zenburn theme
;; ;; https://github.com/bbatsov/zenburn-emacs
;; (use-package zenburn-theme
;; ;;:quelpa (zenburn-theme)
;; :straight t
;; :init
;; (setq zenburn-override-colors-alist ; default values
;; '(("zenburn-bg+05" . "#181818") ; #383838
;; ("zenburn-bg+1" . "#1F1F1F") ; #4F4F4F
;; ("zenburn-bg+2" . "#2F2F2F") ; #5F5F5F
;; ("zenburn-bg+3" . "#3F3F3F"))) ; #6F6F6F
;; (load-theme 'zenburn t))
;; ;; color-theme-sanityinc-tomorrow theme
;; ;; https://github.com/purcell/color-theme-sanityinc-tomorrow
;; (use-package color-theme-sanityinc-tomorrow
;; ;;:quelpa (color-theme-sanityinc-tomorrow)
;; :straight t
;; :init (load-theme 'sanityinc-tomorrow-night t))
;; ;; spacemacs-theme
;; ;; https://github.com/nashamri/spacemacs-theme
;; (use-package spacemacs-theme
;; ;;:quelpa (spacemacs-theme)
;; :straight t
;; :init (load-theme 'spacemacs-dark t))
;; ;; solarized theme
;; ;; https://github.com/bbatsov/solarized-emacs
;; (use-package solarized-theme
;; ;;:quelpa (solarized-theme)
;; :straight t
;; :init
;; ;; make the fringe stand out from the background
;; ;;(setq solarized-distinct-fringe-background t)
;; ;; do not change the font for some headings and titles
;; (setq solarized-use-variable-pitch nil)
;; ;; make the modeline high contrast
;; ;;(setq solarized-high-contrast-mode-line t)
;; ;; use less bolding
;; (setq solarized-use-less-bold t)
;; ;; use more italics
;; ;;(setq solarized-use-more-italic t)
;; ;; use less colors for indicators such as git:gutter, flycheck and similar
;; ;;(setq solarized-emphasize-indicators nil)
;; ;; do not change size of org-mode headlines (but keep other size-changes)
;; (setq solarized-scale-org-headlines nil)
;; ;; avoid all font-size changes
;; (setq solarized-height-minus-1 1.0)
;; (setq solarized-height-plus-1 1.0)
;; (setq solarized-height-plus-2 1.0)
;; (setq solarized-height-plus-3 1.0)
;; (setq solarized-height-plus-4 1.0)
;; ;; load theme
;; (load-theme 'solarized-dark t))
)
;; GUI:1 ends here
;; [[file:init-emacs.org::*Key Bindings][Key Bindings:1]]
;;==============================================================================
;;; Key Bindings
;;==============================================================================
(init-message 1 "Key Bindings")
;; Key Bindings:1 ends here
;; [[file:init-emacs.org::*System Keys][System Keys:1]]
;;------------------------------------------------------------------------------
;;; Key Bindings: System Keys
;;------------------------------------------------------------------------------
(init-message 2 "Key Bindings: System Keys")
(defun custom-key-bindings-system-keys ()
"Set custom system key bindings."
(cond
;; most of these are already set correctly for MacOS
(window-system-mac
;; new buffer
(when (fboundp 'new-scratch)
(bind-keys* ("s-t" . new-scratch))))
((or window-system-linux window-system-windows)
;; cut
(if (fboundp 'kill-region-or-word)
(bind-keys* ("s-x" . kill-region-or-word))
(bind-keys* ("s-x" . kill-region)))
;; copy
(bind-keys* ("s-c" . kill-ring-save))
;; paste
(bind-keys* ("s-v" . yank))
;; undo
(bind-keys* ("s-z" . undo))
;; redo
(when (fboundp 'undo-tree-redo)
(bind-keys* ("s-y" . undo-tree-redo)))
;; select all
(bind-keys* ("s-a" . mark-whole-buffer))
;; find
(bind-keys* ("s-f" . isearch-forward))
;; find next
(bind-keys* ("s-g" . isearch-forward))
;; find previous
(bind-keys* ("s-r" . isearch-backward))
;; open file
(bind-keys* ("s-o" . find-file))
;; print
(bind-keys* ("s-p" . print-buffer))
;; save buffer
(if (fboundp 'save-buffer-always)
(bind-keys* ("s-s" . save-buffer-always))
(bind-keys* ("s-s" . save-buffer)))
;; new buffer
(when (fboundp 'new-scratch)
(bind-keys* ("s-t" . new-scratch)))
;; close buffer
(bind-keys* ("s-w" . kill-current-buffer))
;; set mark
(bind-keys* ("s-SPC" . set-mark-command)))))
(init-message 3 "custom-key-bindings-system-keys")
(custom-key-bindings-system-keys)
;; System Keys:1 ends here
;; [[file:init-emacs.org::*Function Keys][Function Keys:1]]
;;------------------------------------------------------------------------------
;;; Key Bindings: Function Keys
;;------------------------------------------------------------------------------
(init-message 2 "Key Bindings: Function Keys")
(defun custom-key-bindings-function-keys ()
"Set custom function key bindings."
(when (fboundp 'help)
(bind-keys ("<f1>" . help))) ; defaults to `help-for-help'
(when (fboundp 'help-for-help)
(bind-keys ("S-<f1>" . help-for-help)))
(when (fboundp 'help-command)
(bind-keys ("<f2>" . help-command))) ; defaults to Prefix Command
(when (fboundp 'kmacro-start-macro-or-insert-counter)
(bind-keys ("<f3>" . kmacro-start-macro-or-insert-counter))) ; defaults to `kmacro-start-macro-or-insert-counter'
(when (fboundp 'kmacro-end-or-call-macro)
(bind-keys ("<f4>" . kmacro-end-or-call-macro))) ; defaults to `kmacro-end-or-call-macro'
(when (fboundp 'define-word)
(bind-keys ("<f5>" . define-word)))
(when (fboundp 'define-word-at-point)
(bind-keys ("S-<f5>" . define-word-at-point)))
(when (fboundp 'web-query-word-at-point)
(bind-keys ("S-<f5>" . web-query-word-at-point)))
(when (fboundp 'ispell-word)
(bind-keys ("<f6>" . ispell-word)))
(when (fboundp 'web-query)
(bind-keys ("S-<f6>" . web-query)))
(when (fboundp 'ispell)
(bind-keys ("<f7>" . ispell)))
(when (fboundp 'web-query-symbol-by-mode-at-point)
(bind-keys ("<S-f7>" . web-query-symbol-by-mode-at-point)))
(when (fboundp 'neotree)
(bind-keys ("<f8>" . neotree)))
(when (fboundp 'cycle-buffer-backward)
(bind-keys ("<f9>" . cycle-buffer-backward)))
(when (fboundp 'cycle-buffer-backward-permissive)
(bind-keys ("S-<f9>" . cycle-buffer-backward-permissive)))
(when (fboundp 'cycle-buffer)
(bind-keys ("<f10>" . cycle-buffer))) ; defaults to `tmm-menubar'
(when (fboundp 'cycle-buffer-permissive)
(bind-keys ("S-<f10>" . cycle-buffer-permissive)))
)
(init-message 3 "custom-key-bindings-function-keys")
(custom-key-bindings-function-keys)
;; Function Keys:1 ends here
;; [[file:init-emacs.org::*Extended Keys][Extended Keys:1]]
;;------------------------------------------------------------------------------
;;; Key Bindings: Extended Keys
;;------------------------------------------------------------------------------
(init-message 2 "Key Bindings: Extended Keys")
(defun custom-key-bindings-extended-keys ()
"Set custom extended key bindings."
;; turn off insert key
(unbind-key "<insert>") ; defaults to `overwrite-mode'
;; ;; window move
;; (when (fboundp 'windmove-left)
;; ;; shift arrow keys
;; (bind-keys ("S-<left>" . windmove-left)
;; ("S-<right>" . windmove-right)
;; ("S-<up>" . windmove-up)
;; ("S-<down>" . windmove-down)))
;; beginning of line
(bind-keys* ("<home>" . beginning-of-line)) ; defaults to `move-beginning-of-line'
;; end of line
(bind-keys* ("<end>" . end-of-line)) ; defaults to `move-end-of-line'
;; beginning of buffer
(bind-keys* ("C-<home>" . beginning-of-buffer))
;; end of buffer
(bind-keys* ("C-<end>" . end-of-buffer)))
(init-message 3 "custom-key-bindings-extended-keys")
(custom-key-bindings-extended-keys)
;; Extended Keys:1 ends here
;; [[file:init-emacs.org::*Movement Keys][Movement Keys:1]]
;;------------------------------------------------------------------------------
;;; Key Bindings: Movement Keys
;;------------------------------------------------------------------------------
(init-message 2 "Key Bindings: Movement Keys")
(defun custom-key-bindings-movement-keys (&optional keymap)
"Set custom movement key bindings on KEYMAP.
KEYMAP defaults to `override-global-map'."
(let ((keymap (or keymap override-global-map)))
;; cursor movement keys (short, single character)
(bind-keys* :map keymap
("<up>" . previous-line) ; defaults to `previous-line'
("<down>" . next-line) ; defaults to `next-line'
("<left>" . left-char) ; defaults to `left-char'
("<right>" . right-char) ; defaults to `right-char'
("M-i" . previous-line) ; defaults to `tab-to-tab-stop' ("C-p")
("M-k" . next-line) ; defaults to `kill-sentence' ("C-n")
("M-j" . left-char) ; defaults to `indent-new-comment-line' ("C-f")
("M-l" . right-char)) ; defaults to `downcase-word' ("C-b")
;; cursor movement keys (medium, multi-character)
(bind-keys* :map keymap
("C-<up>" . backward-paragraph) ; defaults to `backward-paragraph'
("C-<down>" . forward-paragraph) ; defaults to `forward-paragraph'
("C-<left>" . left-word) ; defaults to `left-word'
("C-<right>" . right-word) ; defaults to `right-word'
("C-M-u" . backward-paragraph) ; defaults to `backward-up-list'
("C-M-o" . forward-paragraph) ; defaults to `split-line'
("M-u" . left-word) ; defaults to `upcase-word'
("M-o" . right-word)) ; defaults to `facemenu-keymap'
;; cursor movement keys (long, multi-character)
(bind-keys* :map keymap
("C-M-<up>" . scroll-down-command) ; defaults to `scroll-down-command'
("C-M-<down>" . scroll-up-command) ; defaults to `scroll-up-command'
("C-M-<left>" . move-beginning-of-line) ; defaults to `move-beginning-of-line'
("C-M-<right>" . move-end-of-line) ; defaults to `move-end-of-line'
("C-M-i" . scroll-down-command) ; defaults to `completion-at-point' ("<prior>")
("C-M-k" . scroll-up-command) ; defaults to `kill-whole-line' ("<next>")
("C-M-j" . move-beginning-of-line) ; defaults to `comment-indent-new-line' ("C-a")
("C-M-l" . move-end-of-line)) ; defaults to `reposition-window' ("C-e")
;; window movement keys
(bind-keys* :map keymap
("C-x <up>" . windmove-up)
("C-x <down>" . windmove-down)
("C-x <left>" . windmove-left) ; defaults to `previous-buffer'
("C-x <right>" . windmove-right) ; defaults to `next-buffer'
("C-x C-<up>" . windmove-up)
("C-x C-<down>" . windmove-down)
("C-x C-<left>" . windmove-left) ; defaults to `previous-buffer'
("C-x C-<right>" . windmove-right) ; defaults to `next-buffer'
("C-x M-i" . windmove-up)
("C-x M-k" . windmove-down)
("C-x M-j" . windmove-left)
("C-x M-l" . windmove-right))
;; move line up
(when (fboundp 'move-line-up)
(bind-keys* :map keymap
("M-[" . move-line-up)))
;; move line down
(when (fboundp 'move-line-down)
(bind-keys* :map keymap
("M-]" . move-line-down)))))
(init-message 3 "custom-key-bindings-movement-keys")
(custom-key-bindings-movement-keys)
;; Movement Keys:1 ends here
;; [[file:init-emacs.org::*Standard Keys][Standard Keys:1]]
;;------------------------------------------------------------------------------
;;; Key Bindings: Standard Keys
;;------------------------------------------------------------------------------
(init-message 2 "Key Bindings: Standard Keys")
(defun custom-key-bindings-standard-keys ()
"Set custom standard key bindings."
;; newline
(when (fboundp 'insert-line-below)
(bind-keys ("C-M-<return>" . insert-line-below)))
;; set mark
(bind-keys ("C-SPC" . set-mark-command)) ; defaults to `set-mark-command'
;; set rectangle mark
(when (fboundp 'cua-set-rectangle-mark)
(bind-keys ("C-x rm" . cua-set-rectangle-mark)
("C-M-SPC" . cua-set-rectangle-mark))) ; defaults to `mark-sexp'
;; just one space
(when (fboundp 'just-one-space)
(bind-keys ("C-x C-SPC" . just-one-space))) ; defaults to `pop-global-mark'
;; help
(bind-keys ("C-x C-h" . help-command)
("C-x ?" . help))
;; describe function or variable at point
(when (fboundp 'describe-function-or-variable-at-point)
(bind-keys ("C-h z" . describe-function-or-variable-at-point)
("C-x C-h z" . describe-function-or-variable-at-point)))
;; ;; smart M-x
;; (when (fboundp 'smex)
;; (bind-keys ("M-x" . smex))) ; defaults to `execute-extended-command'
;; (when (fboundp 'smex-major-mode-commands)
;; (bind-keys ("M-X" . smex-major-mode-commands))) ; defaults to `execute-extended-command'
;; ;; alternates for M-x
;; (bind-keys ("C-x C-m" . execute-extended-command)) ; defaults to Prefix Command
;; menubar
(when (fboundp 'tmm-menubar)
(bind-keys ("C-M-z" . tmm-menubar)))
;; force save maybe
(when (fboundp 'save-buffer-always-maybe)
(bind-keys ("C-x C-s" . save-buffer-always-maybe))) ; defaults to `save-buffer'
;; ;; bs-show (buffer select)
;; (when (fboundp 'bs-show)
;; (bind-keys ("C-x C-b" . bs-show))) ; defaults to `list-buffers'
;; bury buffer
(bind-keys ("C-c y" . bury-buffer))
;; revert buffer
(bind-keys ("C-c r" . revert-buffer))
;; diff buffer
(bind-keys ("C-c d" . diff-current-buffer))
;; mark full word
(when (fboundp 'mark-full-word)
(bind-keys ("M-@" . mark-full-word))) ; defaults to `mark-word'
;; ;; expand region
;; (when (fboundp 'er/expand-region)
;; (bind-keys ("M-=" . er/expand-region) ; defaults to `count-lines-region'
;; ("C-=" . er/contract-region) ; defaults to `count-lines-region'
;; ("C-M-SPC" . er/expand-region) ; defaults to `mark-sexp'
;; ("C-M-S-SPC" . er/contract-region)))
;; regexp replace
(bind-keys ("M-&" . replace-regexp)) ; defaults to `async-shell-command'
;; insert menu prompt
(when (fboundp 'insert-menu-prompt)
(bind-keys ("C-x i" . insert-menu-prompt))) ; defaults to `insert-file'
;; split windows
(bind-keys ("M-1" . delete-other-windows)) ; defaults to `digit-argument'
(bind-keys ("M-2" . split-window-horizontally)) ; defaults to `digit-argument'
(bind-keys ("M-3" . split-window-vertically)) ; defaults to `digit-argument'
(unbind-key "M-4") ; defaults to `digit-argument'
(if (fboundp 'swap-windows)
(bind-keys ("M-4" . swap-windows))) ; defaults to `digit-argument'
(unbind-key "M-5") ; defaults to `digit-argument'
(when (fboundp 'toggle-window-split)
(bind-keys ("M-5" . toggle-window-split))) ; defaults to `split-line'
(bind-keys ("M-6" . switch-to-buffer-other-window)) ; defaults to `digit-argument'
(unbind-key "M-7") ; defaults to `digit-argument'
(unbind-key "M-8") ; defaults to `digit-argument'
(unbind-key "M-8") ; defaults to `digit-argument'
(when (fboundp 'kill-other-window-buffer)
(bind-keys ("M-8" . kill-other-window-buffer))) ; defaults to `digit-argument'
(unbind-key "M-9") ; defaults to `digit-argument'
(when (fboundp 'kill-other-window-buffer-and-delete-window)
(bind-keys ("M-9" . kill-other-window-buffer-and-delete-window))) ; defaults to `digit-argument'
(bind-keys ("M-0" . delete-window)) ; defaults to `digit-argument'
;; switch windows
;; (bind-keys ("M-o" . other-window)) ; defaults to `facemenu-keymap'
(when (fboundp 'ace-window)
(bind-keys ("C-x o" . ace-window))) ; defaults to `other-window'
;; swap windows
(when (fboundp 'swap-windows)
(bind-keys ("C-x C-o" . swap-windows))) ; defaults to `delete-blank-lines'
;; toggle window split
(when (fboundp 'toggle-window-split)
(bind-keys ("C-x M-o" . toggle-window-split))) ; defaults to `split-line'
;; kill current buffer
(bind-keys ("C-x C-k" . kill-current-buffer)) ; defaults to `kmacro-keymap'
;; delete to end of line
(when (fboundp 'delete-to-end-of-line)
(bind-keys ("C-k" . delete-to-end-of-line))) ; defaults to `kill-line'
;; delete line
(when (fboundp 'delete-line)
(bind-keys ("C-M-d" . delete-line))) ; defaults to `down-list'
;; delete word
(when (fboundp 'delete-word)
(bind-keys ("M-d" . delete-word))) ; defaults to `kill-word'
(when (fboundp 'backward-delete-word)
(bind-keys ("C-<backspace>" . backward-delete-word))) ; defaults to `backward-kill-word'
;; copy line
(when (fboundp 'copy-line)
(bind-keys ("C-x C-y" . copy-line)))
;; cut line
(when (fboundp 'cut-line)
(bind-keys ("C-x M-y" . cut-line)))
;; duplicate line
(when (fboundp 'duplicate-line)
(bind-keys ("C-x C-d" . duplicate-line))) ; defaults to `list-directory'
;; kill ring browser
(when (fboundp 'browse-kill-ring)
(bind-keys ("C-M-y" . browse-kill-ring)))
;; join line
;;(bind-keys ("C-M-j" . join-line)) ; defaults to `comment-indent-new-line'
(bind-keys ("C-x C-j" . join-line))
;; join next line
(when (fboundp 'join-next-line)
;;(bind-keys ("M-j" . join-next-line))) ; defaults to `indent-new-comment-line'
(bind-keys ("C-x C-S-j" . join-next-line)))
;; enhanced titleize-word
(when (fboundp 'titleize-word-enhanced)
(bind-keys ("M-t" . titleize-word-enhanced)) ; defaults to `transpose-words'
(bind-keys ("M-T" . titleize-line-or-region)))
;; enlarge window by 5
(when (fboundp 'enlarge-window-5)
(bind-keys ("C-x &" . enlarge-window-5)))
;; shrink window by 5
(when (fboundp 'shrink-window-5)
(bind-keys ("C-x %" . shrink-window-5))) ; defaults to `View-goto-percent'
;; describe text properties
(bind-keys ("C-x M-p" . describe-text-properties))
;; goto last change (undo)
(when (fboundp 'goto-last-change)
(bind-keys ("C-x C-_" . goto-last-change)))
;; jump to matching parenthesis
(when (fboundp 'match-paren)
(bind-keys ("M-(" . match-paren)))
;; evaluate current sexp
(bind-keys ("C-x C-e" . eval-current-sexp)) ; defaults to `eval-last-sexp'
;; \C-\M-x defaults to `eval-defun'
;; evaluate all sexp's in current buffer
(when (fboundp 'eval-sexp-buffer)
(bind-keys ("C-x M-e" . eval-sexp-buffer)))
;; ;; indent current sexp
;; (bind-keys ("C-M-q" . indent-current-sexp)) ; defaults to `indent-sexp' or `indent-pp-sexp'
;; ;; indent all sexp's in current buffer
;; (when (fboundp 'indent-sexp-buffer)
;; (bind-keys ("C-x M-q" . indent-sexp-buffer)))
;; comment and uncomment sexp's
(when (fboundp 'comment-or-uncomment-sexp)
(define-key emacs-lisp-mode-map (kbd "C-M-;") 'comment-or-uncomment-sexp))
;; indent region or thing
(when (fboundp 'indent-region-or-thing)
(bind-keys ("C-M-\\" . indent-region-or-thing))) ; defaults to `indent-region'
;; append equal characters up to column 80
(when (fboundp 'append-equal-to-column-80)
(bind-keys ("C-c =" . append-equal-to-column-80)))
;; append dash characters up to column 80
(when (fboundp 'append-dash-to-column-80)
(bind-keys ("C-c -" . append-dash-to-column-80)))
;; append asterisk characters up to column 80
(when (fboundp 'append-asterisk-to-column-80)
(bind-keys ("C-c 8" . append-asterisk-to-column-80))
(bind-keys ("C-c *" . append-asterisk-to-column-80)))
;; add lisp comment block (equal)
(when (fboundp 'insert-lisp-comment-block-equal)
(bind-keys ("C-c C-=" . insert-lisp-comment-block-equal)))
;; add lisp comment block (dash)
(when (fboundp 'insert-lisp-comment-block-dash)
(bind-keys ("C-c C--" . insert-lisp-comment-block-dash)))
;; align commands
(bind-keys ("C-c |" . align-current))
;; ;; hippie expand
;; (when (fboundp 'hippie-expand)
;; (bind-keys ("M-/" . hippie-expand))) ; defaults to `dabbrev-expand'
;; complete tag
(when (fboundp 'complete-tag)
(bind-keys ("M-C-/" . complete-tag)))
;; unset set-fill-column
(unbind-key "C-x f") ; defaults to `set-fill-column'
;; compare windows
(when (fboundp 'compare-windows)
(bind-keys ("C-c C-w" . compare-windows)))
;; unfill paragraph
(when (fboundp 'unfill-paragraph)
(bind-keys ("M-Q" . unfill-paragraph))) ; defaults to `fill-paragraph'
;; double-space punctuation
(when (fboundp 'double-space-punctuation)
(bind-keys ("C-M-q" . double-space-punctuation)))
;; toggle pop-up shell
(when (and (fboundp 'pop-up-shell) (fboundp 'pop-up-shell-toggle))
(bind-keys ("C-x C-]" . pop-up-shell-toggle))))
(init-message 3 "custom-key-bindings-standard-keys")
(custom-key-bindings-standard-keys)
;; Standard Keys:1 ends here
;; [[file:init-emacs.org::*Modes and Module Keys][Modes and Module Keys:1]]
;;------------------------------------------------------------------------------
;;; Key Bindings: Modes and Module Keys
;;------------------------------------------------------------------------------
(init-message 2 "Key Bindings: Modes and Module Keys")
(defun custom-key-bindings-modes-and-modules-keys ()
"Set custom modes and modules key bindings."
;; diary
(when (fboundp 'diary)
(bind-keys ("C-x y" . diary)))
;; imenu
(bind-keys ("C-M-'" . imenu))
;; isearch
;; regular expression searches
(when (fboundp 'isearch-forward-regexp)
(bind-keys ("M-s" . isearch-forward-regexp)))
(when (fboundp 'isearch-backward-regexp)
(bind-keys ("M-r" . isearch-backward-regexp))) ; defaults to `move-to-window-line'
;; activate `occur' from isearch
(define-key isearch-mode-map (kbd "C-o")
(lambda ()
(interactive)
(let ((case-fold-search isearch-case-fold-search))
(occur (if isearch-regexp isearch-string (regexp-quote isearch-string))))))
;; line number mode
(bind-keys ("C-x M-n" . display-line-numbers-mode))
(when (fboundp 'display-line-numbers-type-toggle)
(bind-keys ("C-x M-N" . display-line-numbers-type-toggle)))
;; occur
(when (fboundp 'occur)
;;(bind-keys ("C-x u" . occur)) ; defaults to `undo'
(bind-keys ("C-c o" . occur)))
;; shell
(bind-keys ("C-x !" . shell)))
(init-message 3 "custom-key-bindings-modes-and-modules-keys")
(custom-key-bindings-modes-and-modules-keys)
;; Modes and Module Keys:1 ends here
;; [[file:init-emacs.org::*Grouped Prefix Keys][Grouped Prefix Keys:1]]
;;------------------------------------------------------------------------------
;;; Key Bindings: Grouped Prefix Keys
;;------------------------------------------------------------------------------
(init-message 2 "Key Bindings: Grouped Prefix Keys")
(defun custom-key-bindings-grouped-prefix-keys ()
"Set custom grouped prefix key bindings."
;; help commands
;; "C-h e" defaults to `view-echo-area-messages'
(unbind-key "C-h e")
(define-prefix-command 'help-find-map nil "Help Find Commands")
(bind-keys* :prefix "C-h e"
:prefix-map help-find-map
:menu-name "Help Find Commands"
("e" . view-echo-area-messages)
("f" . find-function)
("k" . find-function-on-key)
("l" . find-library)
("v" . find-variable)
("V" . apropos-value))
;; custom prefix launching point (M-space)
(unbind-key "M-SPC")
(define-prefix-command 'space-map nil "Space Prefix Launching Point")
(bind-keys* :prefix "M-SPC"
:prefix-map space-map
:menu-name "Space Prefix Launching Point")
(bind-keys* ("C-." . space-map)) ; in case the OS consumes M-SPC
;; menu
(bind-keys :map space-map ("M-SPC" . tmm-menubar))
;; buffer commands
(bind-keys :map space-map
:prefix "b"
:prefix-map space-buffer-map
:menu-name "Buffer Commands")
(when (fboundp 'switch-to-messages)
(bind-keys :map space-buffer-map ("m" . switch-to-messages)))
(when (fboundp 'new-scratch)
(bind-keys :map space-buffer-map ("n" . new-scratch)))
(when (fboundp 'new-miscellaneous-lisp-scratch)
(bind-keys :map space-buffer-map ("e" . new-emacs-lisp-scratch)))
(when (fboundp 'switch-to-scratch)
(bind-keys :map space-buffer-map ("s" . switch-to-scratch)))
(when (fboundp 'switch-to-scratch-for-current-mode)
(bind-keys :map space-buffer-map ("c" . switch-to-scratch-for-current-mode)))
;; git commands
(bind-keys :map space-map
:prefix "g"
:prefix-map space-git-map
:menu-name "Git Commands"
("b" . magit-branch)
("c" . magit-branch-or-checkout)
("d" . magit-diff-unstaged)
("f" . magit-fetch)
("F" . magit-fetch-all)
("p" . magit-pull-branch)
("P" . magit-push-current)
("r" . magit-rebase)
("s" . magit-status))
;; git log commands
(bind-keys :map space-git-map
:prefix "l"
:prefix-map space-git-log-map
:menu-name "Git Log Commands"
("l" . magit-log-current)
("f" . magit-log-buffer-file))
;; grep commands
(bind-keys :map space-map
:prefix "G"
:prefix-map space-grep-map
:menu-name "Grep Commands")
(when (fboundp 'grep-bin)
(bind-keys :map space-grep-map ("b" . grep-bin)))
(when (fboundp 'grep-clojure)
(bind-keys :map space-grep-map ("c" . grep-clojure)))
(when (fboundp 'grep-clisp)
(bind-keys :map space-grep-map ("l" . grep-clisp)))
(when (fboundp 'grep-elisp)
(bind-keys :map space-grep-map ("e" . grep-elisp)))
(when (fboundp 'grep-elisp-extended)
(bind-keys :map space-grep-map ("E" . grep-elisp-extended)))
(when (fboundp 'grep-emacs-init)
(bind-keys :map space-grep-map ("i" . grep-emacs-init)))
(when (fboundp 'grep-home-init)
(bind-keys :map space-grep-map ("h" . grep-home-init)))
(when (fboundp 'grep-org)
(bind-keys :map space-grep-map ("o" . grep-org)))
(when (fboundp 'grep-python)
(bind-keys :map space-grep-map ("p" . grep-python)))
(when (fboundp 'grep-racket)
(bind-keys :map space-grep-map ("r" . grep-racket)))
(when (fboundp 'grep-web)
(bind-keys :map space-grep-map ("w" . grep-web)))
;; insert commands
(bind-keys :map space-map
:prefix "i"
:prefix-map space-insert-map
:menu-name "Insert Commands"
("d" . insert-date)
("t" . insert-datetime)
("u" . insert-uuid))
;; insert org-babel commands
(bind-keys :map space-insert-map
:prefix "o"
:prefix-map space-insert-babel-map
:menu-name "Insert Org-Babel Commands"
("b" . org-insert-literate-programming-src)
("c" . org-insert-literate-programming-code-block)
("e" . org-insert-literate-programming-src-emacs-lisp)
("i" . org-insert-literate-programming-init-emacs-block)
("k" . org-insert-literate-programming-src-kotlin)
("n" . org-insert-literate-programming-name)
("p" . org-insert-literate-programming-project-euler-problem-block)
("r" . org-insert-literate-programming-src-racket)
("s" . org-insert-literate-programming-src-sh))
;; miscellaneous commands
(bind-keys :map space-map
:prefix "m"
:prefix-map space-miscellaneous-map
:menu-name "Miscellaneous Commands"
("c" . emacs-lisp-byte-compile)
("d" . toggle-debug-on-error)
("m" . macrostep-mode)
("x" . regexp-builder))
;; miscellaneous eval commands
(bind-keys :map space-miscellaneous-map
:prefix "e"
:prefix-map space-miscellaneous-eval-map
:menu-name "Eval Commands"
("b" . eval-buffer)
("r" . eval-region))
;; miscellaneous format commands
(bind-keys :map space-miscellaneous-map
:prefix "f"
:prefix-map space-miscellaneous-format-map
:menu-name "Format Commands"
("j" . json-pretty-print-buffer)
("x" . xml-format))
;; package commands
(bind-keys :map space-map
:prefix "p"
:prefix-map space-package-map
:menu-name "Package Commands"
("i" . package-install)
("l" . package-list-packages-no-fetch)
("L" . package-list-packages))
;; run commands
(bind-keys :map space-map
:prefix "r"
:prefix-map space-run-map
:menu-name "Run Commands")
(when (and (fboundp 'safe-load) (boundp 'emacs-home-dir))
(defun safe-load-init-elisp ()
(safe-load (expand-file-name "init.el" emacs-home-dir)))
(bind-keys :map space-run-map ("i" . safe-load-init-elisp)))
;; terminal commands
(bind-keys :map space-map
:prefix "t"
:prefix-map space-terminal-map
:menu-name "Terminal Commands"
("a" . ansi-term)
("e" . eshell)
("s" . shell)
("t" . term))
(when (fboundp 'term-bash)
(bind-keys :map space-terminal-map ("b" . term-bash)))
(when (fboundp 'term-zsh)
(bind-keys :map space-terminal-map ("z" . term-zsh)))
(when (fboundp 'vterm)
(bind-keys :map space-terminal-map ("v" . vterm)))
;; browse-url commands
(bind-keys :map space-map
:prefix "z"
:prefix-map space-browse-url-map
:menu-name "Browse URL Commands"
("." . browse-url-at-point)
("b" . browse-url-of-buffer)
("r" . browse-url-of-region)
("u" . browse-url)
("v" . browse-url-of-file)))
(init-message 3 "custom-key-bindings-grouped-prefix-keys")
(custom-key-bindings-grouped-prefix-keys)
;; Grouped Prefix Keys:1 ends here
;; [[file:init-emacs.org::*Set All Custom Key Bindings][Set All Custom Key Bindings:1]]
;;------------------------------------------------------------------------------
;;; Key Bindings: Set All Custom Key Bindings
;;------------------------------------------------------------------------------
(init-message 2 "Key Bindings: Set All Custom Key Bindings")
(defun custom-key-bindings-set-all ()
"Set all custom key bindings."
(init-message 3 "custom-key-bindings-system-keys")
(custom-key-bindings-system-keys)
(init-message 3 "custom-key-bindings-function-keys")
(custom-key-bindings-function-keys)
(init-message 3 "custom-key-bindings-extended-keys")
(custom-key-bindings-extended-keys)
(init-message 3 "custom-key-bindings-movement-keys")
(custom-key-bindings-movement-keys)
(init-message 3 "custom-key-bindings-standard-keys")
(custom-key-bindings-standard-keys)
(init-message 3 "custom-key-bindings-modes-and-modules-keys")
(custom-key-bindings-modes-and-modules-keys)
(init-message 3 "custom-key-bindings-grouped-prefix-keys")
(custom-key-bindings-grouped-prefix-keys))
;; Set All Custom Key Bindings:1 ends here
;; [[file:init-emacs.org::*Org Mode][Org Mode:1]]
;;==============================================================================
;;; Org Mode
;;==============================================================================
(init-message 1 "Org Mode")
;; Org Mode:1 ends here
;; [[file:init-emacs.org::*Setup][Setup:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Setup
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Setup")
(init-message 3 "org")
(use-package org
:demand t
:mode (("\\.org\\'" . org-mode)
("\\.org_archive\\'" . org-mode)
;;("\\.org\\.enc\\'" . org-mode)
("\\.org\\.cpt\\'" . org-mode))
;; :functions (org-insert-heading--fix-newline-bug)
:bind* (("C-c a" . org-agenda)
("C-c c" . org-capture)
;;("C-c l" . org-store-link)
("C-c j" . org-babel-tangle-jump-to-org))
:config
(defun org-insert-heading--fix-newline-bug (orig-fun &rest args)
"Fix extra newline bug in org."
;; make sure empty lines above new headline are not removed
(if (= (point) (line-beginning-position))
(let ((start (point)))
(apply orig-fun args)
(goto-char (line-beginning-position))
(while (< (point) start)
(newline))
(goto-char (line-end-position)))
(apply orig-fun args)))
;; advise `org-insert-heading' to fix extra newline bug
(advice-add 'org-insert-heading :around #'org-insert-heading--fix-newline-bug)
;; (defun org-fixup-indentation--unindent (diff)
;; "Unindent org begin/end blocks, keywords, and paragraphs."
;; (save-window-excursion
;; (save-mark-and-excursion
;; (save-match-data
;; (when (org-with-limited-levels (org-at-heading-p))
;; (org-with-wide-buffer
;; (narrow-to-region (line-beginning-position)
;; (save-mark-and-excursion
;; (org-with-limited-levels (outline-next-heading))
;; (point)))
;; (forward-line 0)
;; (org-beginning-of-line)
;; (let* ((case-fold-search t)
;; (indentation (- (point) (line-beginning-position)))
;; (spacing (make-string (abs diff) ? ))
;; (indented-regexp (concat "^" spacing "[ \t]*"))
;; (text-indent t))
;; (forward-line 1)
;; (while (not (eobp))
;; (when (re-search-forward indented-regexp (line-end-position) :noerror)
;; (let ((line-indentation (- (point) (line-beginning-position))))
;; (forward-line 0)
;; (case (org-element-type (org-element-at-point))
;; ('src-block
;; (when (> diff 0)
;; (delete-char diff)))
;; ((paragraph table table-row)
;; (if (> diff 0)
;; (when (or (not text-indent)
;; (< line-indentation indentation))
;; (delete-char diff)
;; (setq text-indent nil))
;; (if (and text-indent
;; (>= line-indentation (- indentation diff)))
;; (delete-char (abs diff))
;; (setq text-indent nil)))))))
;; (forward-line 1)))))))))
;; ;; advise `org-fixup-indentation' to unindent as needed
;; (advice-add 'org-fixup-indentation :after #'org-fixup-indentation--unindent)
;; define some needed, but deprecated functions
(unless (fboundp 'org-outline-overlay-data)
(defun org-outline-overlay-data (&optional use-markers)
"Return a list of the locations of all outline overlays.
These are overlays with the `invisible' property value `outline'.
The return value is a list of cons cells, with start and stop
positions for each overlay.
If USE-MARKERS is set, return the positions as markers."
(let (beg end)
(org-with-wide-buffer
(delq nil
(mapcar (lambda (o)
(when (eq (overlay-get o 'invisible) 'outline)
(setq beg (overlay-start o)
end (overlay-end o))
(and beg end (> end beg)
(if use-markers
(cons (copy-marker beg)
(copy-marker end t))
(cons beg end)))))
(overlays-in (point-min) (point-max))))))))
(unless (fboundp 'org-set-outline-overlay-data)
(defun org-set-outline-overlay-data (data)
"Create visibility overlays for all positions in DATA.
DATA should have been made by `org-outline-overlay-data'."
(org-with-wide-buffer
(org-show-all)
(dolist (c data) (org-flag-region (car c) (cdr c) t 'outline))))))
(init-message 3 "outline")
(use-package outline
:after (org)
:commands (outline-up-heading
outline-forward-same-level
outline-show-subtree)
:config
;; advise `outline-up-heading' to suppress errors
(advice-add 'outline-up-heading :around #'advice--ignore-errors))
;; (init-message 3 "org-pdfview")
;; needs pdftools, which annoyingly recompiles on every boot
;; (use-package org-pdfview
;; ;;:quelpa (org-pdfview)
;; :straight t
;; :after (org))
;; Setup:1 ends here
;; [[file:init-emacs.org::*Configuration][Configuration:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Configuration
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Configuration")
(use-package org
:custom
;; org directory
(org-directory (expand-file-name "~/org"))
;; indent blocks to outline node level
(org-adapt-indentation t)
;; ;; do not indent blocks to outline node level
;; (org-adapt-indentation nil)
;; remap disputed keys (see `org-disputed-keys')
(org-replace-disputed-keys t)
;; display inline images
(org-startup-with-inline-images t)
;; do not insert empty lines around headings
(org-blank-before-new-entry '((heading . nil) (plain-list-item . nil)))
;; hide leading stars
(org-hide-leading-stars t)
;; skip levels
(org-odd-levels-only t)
;; use a different ellipsis indicator (than '...')
(org-ellipsis "…")
;;(setq org-ellipsis " ⤵")
;;(setq org-ellipsis " ")
;;(setq org-ellipsis " ")
;;(setq org-ellipsis " ")
;;(setq org-ellipsis " ")
;; return follows links
;;(org-return-follows-link t)
;; HOME toggles between header start and line start
;; END toggles between header end and end of tags
(org-special-ctrl-a/e t)
;; show and error on invisible edits
(org-catch-invisible-edits 'show-and-error)
;; use todo key selection
(org-use-fast-todo-selection t)
;; use shift-left/right to change todo status without a state change
(org-treat-S-cursor-todo-selection-as-state-change nil)
;; time stamp settings
(org-display-custom-times t)
(org-time-stamp-custom-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>"))
;; todo keywords
(org-todo-keywords '("TODO(t)" "NEXT(n)" "|" "DONE(d!)"))
;; log note settings
(org-log-note-headings
'((done . "CLOSING NOTE %t")
;;(state . "State %-12s from %-12S %t")
(state . "State %-12s %t")
(note . "Note taken on %t")
(reschedule . "Rescheduled from %S on %t")
(delschedule . "Not scheduled, was %S on %t")
(redeadline . "New deadline from %S on %t")
(deldeadline . "Removed deadline, was %S on %t")
(refile . "Refiled on %t")
(clock-out . "")))
:config
;; faces
(custom-set-faces
'(org-block ((t (:inherit shadow :foreground "green"))))
'(org-level-1 ((t (:foreground "orange"))))
'(org-level-2 ((t (:foreground "deep sky blue"))))
'(org-level-3 ((t (:foreground "yellow green"))))
'(org-level-4 ((t (:foreground "salmon"))))
'(org-level-5 ((t (:foreground "orchid"))))
'(org-level-6 ((t (:foreground "cyan"))))
'(org-level-7 ((t (:foreground "spring green"))))
'(org-level-8 ((t (:foreground "tomato")))))
;; set file apps
(when window-system
(setq org-file-apps (quote ((auto-mode . emacs)
("\\.mm\\'" . default)
("\\.x?html?\\'" . default)
("\\.pdf\\'" . emacs))))) ; use internal PDF viewer
;; remember settings
;;(setq remember-handler-functions '(org-remember-handler)
;; remember-annotation-functions '(org-remember-annotation))
;;(add-hook 'remember-mode-hook #'org-remember-apply-template)
;; todo keywords
;; (org-todo-keywords
;; '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
;; (sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)" "WAIT(w@/!)" "HOLD(h)" "|" "COMPLETED(c)" "CANCELED(k@)"))
;; ;; add todo state map
;; (define-prefix-command 'org-todo-state-map)
;; (define-key org-mode-map (kbd "C-c x") 'org-todo-state-map)
;; (define-key org-todo-state-map (kbd "s") (lambda () (interactive) (org-todo "STARTED")))
;; (define-key org-todo-state-map (kbd "w") (lambda () (interactive) (org-todo "WAITING")))
;; ;;(define-key org-todo-state-map (kbd "f") (lambda () (interactive) (org-todo "DEFERRED")))
;; ;;(define-key org-todo-state-map (kbd "l") (lambda () (interactive) (org-todo "DELEGATED")))
;; (define-key org-todo-state-map (kbd "d") (lambda () (interactive) (org-todo "DONE")))
;; (define-key org-todo-state-map (kbd "c") (lambda () (interactive) (org-todo "CANCELED")))
;; save buffers after refile
(advice-add 'org-refile :after #'org-save-all-org-buffers)
(defun pabbrev-global-mode--org-disable (orig-fun &rest args)
"Turn off pabbrev mode (it interferes with org mode)."
(unless (eq major-mode 'org-mode)
(apply orig-fun args)))
;; advise `pabbrev-global-mode'
(advice-add 'pabbrev-global-mode :around #'pabbrev-global-mode--org-disable)
;; make windmove work in org-mode
(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)
;; mobile org settings
(setq org-mobile-directory (expand-file-name "~/Dropbox/MobileOrg"))
(setq org-mobile-inbox-for-pull (expand-file-name "index.org" org-mobile-directory))
;; ;; latex settings
;; ;; (minted is installed with the Ubuntu texlive-latex-extra package)
;; (setq org-export-latex-listings 'minted)
;; (add-to-list 'org-export-latex-packages-alist '("" "minted") t)
(defun org-update-parent-cookie ()
"Update parent TODO cookies when children entries are killed."
(when (eq major-mode 'org-mode)
(save-mark-and-excursion
(ignore-errors
(org-back-to-heading)
(org-update-parent-todo-statistics)))))
;; ;; too slow
;; (defun org-kill-line--fix-cookies (&optional arg)
;; "Update parent todo cookies after `org-kill-line'."
;; (org-update-parent-cookie))
;; ;; advise `org-kill-line'
;; (advice-add 'org-kill-line :after #'org-kill-line--fix-cookies)
;; ;; too slow
;; (defun kill-whole-line--fix-cookies (&optional arg)
;; "Update parent todo cookies after `kill-whole-line'."
;; (org-update-parent-cookie))
;; ;; advise `kill-whole-line'
;; (advice-add 'kill-whole-line :after #'kill-whole-line--fix-cookies)
(defun org-kill-src-buffers (&rest args)
"Kill temporary buffers created by `org-src-font-lock-fontify-block'."
(dolist (buffer (buffer-list))
(let ((buffer-name (buffer-name buffer)))
(when (string-prefix-p " org-src-fontification:" buffer-name)
(kill-buffer buffer)))))
(defun org-src-font-lock-fontify-block--kill-src-buffers (lang start end)
"Kill temporary buffers created by `org-src-font-lock-fontify-block'."
(org-kill-src-buffers))
;; advise `org-src-font-lock-fontify-block'
(advice-add 'org-src-font-lock-fontify-block :after #'org-src-font-lock-fontify-block--kill-src-buffers)
(defun before-save-hook--update-last-modified-property ()
"Hook to update last modified property on save."
(when (and buffer-file-name
(string= (file-name-extension buffer-file-name) "org"))
(org-update-last-modified-property)))
(add-hook 'before-save-hook #'before-save-hook--update-last-modified-property)
(defun after-save-hook--generate-init-emacs-elisp-file ()
"Hook to generate init-emacs.el file on save."
(when (and buffer-file-name
(string= (file-truename buffer-file-name) init-emacs-true-file-name))
(org-babel-generate-elisp-file init-emacs-true-file-name nil t)))
(add-hook 'after-save-hook #'after-save-hook--generate-init-emacs-elisp-file :append))
;; Configuration:1 ends here
;; [[file:init-emacs.org::*Agenda][Agenda:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Agenda
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Agenda")
(use-package org
:config
;; agenda key bindings
;;(define-key org-agenda-mode-map (kbd "C-n") 'next-line)
;;(define-key org-agenda-keymap (kbd "C-n") 'next-line)
;;(define-key org-agenda-mode-map (kbd "C-p") 'previous-line)
;;(define-key org-agenda-keymap (kbd "C-p") 'previous-line)
;; record time when todo's are marked done
(setq org-log-done 'time)
;; agenda files
(setq org-agenda-file-regexp "agenda.*\\.org\\'"
org-agenda-files (mapcar (lambda (x) (expand-file-name x (file-name-as-directory org-directory)))
(cl-remove-if-not (lambda (x) (string-match org-agenda-file-regexp x))
(directory-files org-directory))))
;; show 7 days in agenda view
(setq org-agenda-span 7)
;; show deadlines within 14 days
(setq org-deadline-warning-days 14)
;; show all dates (even empty ones)
(setq org-agenda-show-all-dates t)
;; do not show entries marked done
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-skip-scheduled-if-done t)
;; start agenda view on current day
(setq org-agenda-start-on-weekday nil)
;; store new notes at the beginning of files
(setq org-reverse-note-order t)
;; quick tag selection
(setq org-fast-tag-selection-single-key 'expert)
;; quick tag keys
(setq org-agenda-custom-commands
(quote (("d" todo "DONE" nil)
;;("d" todo "DONE|DEFERRED|CANCELLED" nil)
("w" todo "WAITING" nil)
;;("l" todo "DELEGATED" nil)
("W" agenda "" ((org-agenda-ndays 21)))
("A" agenda ""
((org-agenda-skip-function
(lambda ()
(org-agenda-skip-entry-if 'notregexp "\\=.*\\[#A\\]")))
(org-agenda-ndays 1)
(org-agenda-overriding-header "Today's Priority #A tasks: ")))
("u" alltodo ""
((org-agenda-skip-function
(lambda ()
(org-agenda-skip-entry-if 'scheduled 'deadline 'regexp "<[^>\n]+>")))
(org-agenda-overriding-header "Unscheduled TODO entries: "))))))
;; fix bug
(when (not (boundp 'org-called-interactively-p))
(defalias 'org-called-interactively-p 'called-interactively-p))
;; archive done tasks
(defun org-agenda-archive-done-tasks ()
"Archive DONE tasks."
(interactive)
(org-map-entries 'org-archive-subtree "/DONE" 'file))
;; auto-save archive files
(when (boundp 'org-archive-subtree-save-file-p)
(setq org-archive-subtree-save-file-p t)))
;; Agenda:1 ends here
;; [[file:init-emacs.org::*Alerts][Alerts:1]]
(init-message 2 "Org Mode: Alerts")
;; (use-package org-alert
;; ;;:quelpa (org-alert)
;; :straight t
;; :after (org)
;; :custom (alert-default-style 'notifications)
;; :config
;; (setq org-alert-interval 300
;; org-alert-notification-title "Org Reminder"))
;; throws error: void-function -orfn
;; (use-package org-wild-notifier
;; ;;:quelpa (org-wild-notifier)
;; :straight t
;; :after (org)
;; :custom
;; (alert-default-style 'notifications)
;; (org-wild-notifier-alert-time '(1 10 30))
;; (org-wild-notifier-keyword-whitelist '("TODO" "NEXT"))
;; (org-wild-notifier-notification-title "Org Reminder")
;; :init (org-wild-notifier-mode 1))
;; (use-package org-notify
;; ;;:quelpa (org-notify)
;; :straight t
;; :after (org)
;; :init (org-notify-start))
;; Alerts:1 ends here
;; [[file:init-emacs.org::*Modules][Modules:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Modules
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Modules")
(org-load-modules-maybe t)
;; Modules:1 ends here
;; [[file:init-emacs.org::*Functions][Functions:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Functions
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Functions")
;; Functions:1 ends here
;; [[file:init-emacs.org::*org-get-property-list][org-get-property-list:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-get-property-list
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-get-property-list")
(defun org-get-property-list (&optional property buffer)
"Return an association list of org properties matching PROPERTY in BUFFER.
PROPERTY is used to `string-match' for properties to
return (defaults to \"PROPERTY\"). Multiple properties can be
queried in one call by using a regular
expression. (E.g. \"\\(AUTHOR\\|EMAIL\\|TITLE\\)\")
IF BUFFER is nil, current buffer is used."
(let ((property (or property "PROPERTY")))
(with-current-buffer (or buffer (current-buffer))
(org-element-map (org-element-parse-buffer) 'keyword
(lambda (x) (let ((key (org-element-property :key x)))
(when (string-match property key)
(cons key (org-element-property :value x)))))))))
;; org-get-property-list:1 ends here
;; [[file:init-emacs.org::*org-get-element-tree][org-get-element-tree:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-get-element-tree
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-get-element-tree")
(defun org-get-element-tree (types &optional buffer)
"Return a tree structure representing the org levels found in
BUFFER for given TYPES.
TYPES is the same symbol or list of symbols used with
`org-element-map'.
IF BUFFER is nil, current buffer is used."
(with-current-buffer (or buffer (current-buffer))
(org-element-map (org-element-parse-buffer) types
(lambda (x) (cons (org-element-property :level x)
(org-element-property :raw-value x))))))
;; org-get-element-tree:1 ends here
;; [[file:init-emacs.org::*org-get-data][org-get-data:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-get-data
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-get-data")
(defun org-get-data (file)
"Return tree structure version of given Org FILE.
Format:
(((\"KEY1\" . VALUE1)
(\"KEY2\" . VALUE2)
(\"KEY3\" . VALUE3))
((HEADER1)
(HEADER2
(HEADER21 . BODY21))
(HEADER3
(HEADER31
(HEADER311 . BODY311)
(HEADER312 . BODY312))
(HEADER32
(HEADER321 . BODY321)
(HEADER322 . BODY322)))))"
(let* ((property-regexp "^[ \t]*#\\+\\(.*\\): \\(.*\\)$")
(headline-regexp "^\\(\*+ \\)\\(.*\\)$")
(property-alist nil)
(level 0)
(tree (cons nil nil))
(start tree)
(stack nil))
(with-temp-buffer
(insert-file-contents file)
(goto-char (point-min))
(while (not (eobp))
;;(message "%S" tree)
(cond
;; add properties
((looking-at property-regexp)
(let ((key (match-string-no-properties 1))
(value (match-string-no-properties 2)))
(push (cons key value) property-alist)))
;; add folders
((looking-at headline-regexp)
(let ((headline-level (/ (length (match-string-no-properties 1))
(if org-odd-levels-only 2 1)))
(headline-value (match-string-no-properties 2)))
(cond
((> headline-level level)
(setcdr tree (cons (cons headline-value nil) nil))
(setq tree (cdr tree))
(push tree stack)
(setq tree (car tree))
(setq level headline-level))
((= headline-level level)
(setq tree (pop stack))
(setcdr tree (cons (cons headline-value nil) nil))
(setq tree (cdr tree))
(push tree stack)
(setq tree (car tree)))
((< headline-level level)
(while (< headline-level level)
(setq tree (pop stack))
(setq level (1- level)))
(setq tree (pop stack))
(setcdr tree (cons (cons headline-value nil) nil))
(setq tree (cdr tree))
(push tree stack)
(setq tree (car tree))
(setq level headline-level)))))
;; add body sections
(t
(when (> (length start) 1)
(let ((body ""))
(while (and (not (eobp))
(not (looking-at property-regexp))
(not (looking-at headline-regexp)))
(when (> (length body) 0)
(setq body (concat body "\n")))
(setq body (concat body
(replace-regexp-in-string "^[ \t\n]*" ""
(buffer-substring-no-properties
(line-beginning-position)
(line-end-position)))))
(forward-line 1))
(setcdr tree (cons (replace-regexp-in-string "[ \t\n]*$" "" body) nil))
(setq tree (cdr tree))
(goto-char (line-beginning-position))
(forward-line -1)))))
(forward-line 1))
(cons property-alist (cdr start)))))
;; org-get-data:1 ends here
;; [[file:init-emacs.org::*org-safe-meta][org-safe-meta:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-safe-meta
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-safe-meta")
(defmacro org-safe-meta-function (org-meta-function safe-function)
"Return SAFE-FUNCTION version of ORG-META-FUNCTION."
`(defun ,(intern safe-function) (&optional arg)
,(concat "Call `" org-meta-function "' ignoring any errors.")
(interactive)
(let ((pos (point)))
(condition-case nil
(,(intern org-meta-function) arg)
('error
(goto-char pos))))))
(defmacro org-safe-shiftmeta-function (org-shiftmeta-function safe-function)
"Return SAFE-FUNCTION version of ORG-SHIFTMETA-FUNCTION."
`(defun ,(intern safe-function) ()
,(concat "Call `" org-shiftmeta-function "' ignoring any errors.")
(interactive)
(let ((pos (point)))
(condition-case nil
(,(intern org-shiftmeta-function))
('error
(goto-char pos))))))
;; safe versions of org-meta functions
(org-safe-meta-function "org-metaleft" "org-safe-metaleft")
(org-safe-meta-function "org-metaright" "org-safe-metaright")
(org-safe-meta-function "org-metadown" "org-safe-metadown")
(org-safe-meta-function "org-metaup" "org-safe-metaup")
;; safe versions of org-shiftmeta functions
(org-safe-shiftmeta-function "org-shiftmetaleft" "org-safe-shiftmetaleft")
(org-safe-shiftmeta-function "org-shiftmetaright" "org-safe-shiftmetaright")
(org-safe-shiftmeta-function "org-shiftmetadown" "org-safe-shiftmetadown")
(org-safe-shiftmeta-function "org-shiftmetaup" "org-safe-shiftmetaup")
;; org-safe-meta:1 ends here
;; [[file:init-emacs.org::*org-sort-multi][org-sort-multi:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-sort-multi
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-sort-multi")
(defun org-sort-multi (&rest sort-types)
"Multiple sorts on a certain level of an outline tree, or plain list items.
SORT-TYPES is a list where each entry is either a character or a
cons pair (BOOL . CHAR), where BOOL is whether or not to sort
case-sensitively, and CHAR is one of the characters defined in
`org-sort-entries-or-items'. Entries are applied in back to
front order.
Example: To sort first by TODO status, then by priority, then by
date, then alphabetically (case-sensitive) use the following
call:
(org-sort-multi '(?o ?p ?t (t . ?a))"
(interactive)
(dolist (x (nreverse sort-types))
(when (characterp x)
(setq x (cons nil x)))
(ignore-errors
(org-sort-entries (car x) (cdr x)))))
;; org-sort-multi:1 ends here
;; [[file:init-emacs.org::*org-sort-current][org-sort-current:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-sort-current
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-sort-current")
(defun org-sort-current (&rest sort-types)
"Sort the current org level.
SORT-TYPES is a list where each entry is either a character or a
cons pair (BOOL . CHAR), where BOOL is whether or not to sort
case-sensitively, and CHAR is one of the characters defined in
`org-sort-entries-or-items'. Entries are applied in back to
front order.
If entry at point has TODO and PRIORITY tags, then default
SORT-TYPE is \"?o ?p\" which is to sort by TODO status, then by
priority. Otherwise, default SORT-TYPE is \"?a\" which is to
sort alphabetically."
(interactive)
(when (string= mode-name "Org")
(let ((sort-types (or sort-types
(if (and (org-entry-get nil "TODO")
(org-entry-get nil "PRIORITY"))
'(?o ?p)
'((nil . ?a))))))
(save-mark-and-excursion
(case (car (org-element-at-point))
('headline
(condition-case nil
(outline-up-heading 1)
('error (forward-line 0)))
(let ((beg (point)))
(while (and (not (bobp)) (not (eobp)) (<= (point) beg))
(condition-case nil
(outline-forward-same-level 1)
('error
(condition-case nil
(outline-up-heading 1)
('error (goto-char (point-max)))))))
(unless (> (point) beg)
(goto-char (point-max)))
(let ((end (point)))
(goto-char beg)
(apply #'org-sort-multi sort-types)
(goto-char end)
(when (eobp)
(forward-line -1))
(when (looking-at "^\\s-*$")
(delete-line))
(goto-char beg)
(dotimes (x 2) (org-cycle)))))
('paragraph
(let* ((plist (cadr (org-element-at-point)))
(beg (plist-get plist :contents-begin))
(end (plist-get plist :contents-end)))
(sort-lines nil beg end)))
(t
(org-sort-list nil ?a)))))))
;; org-sort-current:1 ends here
;; [[file:init-emacs.org::*org-fill-element--adapt-indentation][org-fill-element--adapt-indentation:1]]
(defun org-fill-element--adapt-indentation (orig-fun &rest args)
"Modify `fill-column' based on current org block indentation."
(with-syntax-table org-mode-transpose-word-syntax-table
(let* ((element (save-excursion (end-of-line) (org-element-at-point)))
(type (org-element-type element)))
(if (or (eq type 'paragraph)
(eq type 'comment-block)
(eq type 'comment))
(let ((indent-min fill-column)
(fc fill-column)
(point (point)))
;; goto start of element block
(while (and (not (bobp))
(eq type (org-element-type (org-element-at-point)))
(forward-line -1)))
(unless (eq type (org-element-type (org-element-at-point)))
(forward-line 1))
;; find minimum indent of entire element block
(while (and (not (eobp))
(eq type (org-element-type (org-element-at-point))))
(when (and (not (= (point-at-bol) (point-at-eol)))
(re-search-forward "^ *" (line-end-position) :noerror)
(< (current-column) indent-min))
(setq indent-min (current-column)))
(forward-line 1))
(goto-char point)
;; set temporary `fill-column'
(let ((fill-column (+ fill-column indent-min)))
(apply orig-fun args)))
(apply orig-fun args)))))
;; advise `org-fill-element' to set `fill-column' correctly
(advice-add 'org-fill-element :around #'org-fill-element--adapt-indentation)
;; org-fill-element--adapt-indentation:1 ends here
;; [[file:init-emacs.org::*org-copy-to-clipboard][org-copy-to-clipboard:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-copy-to-clipboard
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-copy-to-clipboard")
(defun org-copy-to-clipboard (&optional beg end)
"Copy `org-mode' region (or entire buffer) to the `kill-ring'
and X clipboard, indenting and cleaning up links."
(interactive)
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max))))
(buffer (current-buffer)))
(deactivate-mark)
(with-temp-buffer
(insert-buffer-substring buffer beg end)
(untabify (point-min) (point-max))
(let ((indent-min fill-column))
;; replace asterisks with spaces and determine minimum indent
(goto-char (point-min))
(while (re-search-forward "^\\(*+ \\| *- \\)" nil :noerror)
(replace-match (concat (make-string (- (match-end 0) (match-beginning 0) 2) ? ) "- "))
(when (< (- (current-column) 2) indent-min)
(setq indent-min (- (current-column) 2)))
(goto-char (line-end-position)))
;; if there are no headings in block, find minimum indent
(when (= indent-min fill-column)
(goto-char (point-min))
(while (not (eobp))
(when (and (not (= (point-at-bol) (point-at-eol)))
(re-search-forward "^ *" (line-end-position) :noerror)
(< (current-column) indent-min))
(setq indent-min (current-column)))
(forward-line 1)))
;; indent to minimum indent
(when (> indent-min 0)
(goto-char (point-min))
(while (re-search-forward (concat "^" (make-string indent-min ? )) nil :noerror)
(replace-match "")
(goto-char (line-end-position))))
;; replace links
(goto-char (point-min))
(while (re-search-forward "\\[\\[\\(.*?\\)\\]\\[.*?\\]\\]" nil :noerror)
(replace-match (match-string 1)))
(clipboard-kill-region (point-min) (point-max))))))
;; org-copy-to-clipboard:1 ends here
;; [[file:init-emacs.org::*org-fix-custom-ids][org-fix-custom-ids:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-fix-custom-ids
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-fix-custom-ids")
(defun org-fix-custom-ids (&optional beg end)
"Fix CUSTOM_ID tags in region (or entire buffer), by lower casing them and
replacing spaces with dashes."
(interactive)
(let ((case-fold-search t)
(beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max))))
(buffer (current-buffer)))
(deactivate-mark)
(save-mark-and-excursion
(save-restriction
(save-match-data
(narrow-to-region beg end)
(goto-char (point-min))
(while (re-search-forward "^[ \t]*:PROPERTIES:$" nil :noerror)
(goto-char (line-beginning-position))
(forward-char 1)
(while (and (not (looking-at "^[ \t]*:END:$"))
(re-search-forward "^[ \t]*:CUSTOM_ID: " (line-end-position) :noerror))
(let ((pos (point)))
(downcase-region pos (line-end-position))
(while (re-search-forward " " (line-end-position) :noerror)
(replace-match "-"))
(goto-char pos)
(while (re-search-forward ":" (line-end-position) :noerror)
(replace-match "-"))
(goto-char (line-beginning-position))
(forward-line 1)))))))))
;; org-fix-custom-ids:1 ends here
;; [[file:init-emacs.org::*org-update-last-modified-property][org-update-last-modified-property:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-update-last-modified-property
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-update-last-modified-property")
(defun org-update-last-modified-property ()
"Update value of LAST-PROPERTY property to current timestamp,
if found and buffer has been modified."
(when (buffer-modified-p)
(save-mark-and-excursion
(save-match-data
(let ((case-fold-search t))
(goto-char (point-min))
(when (re-search-forward "^[ \t]*#\\+LAST_MODIFIED: \\(.*\\)$" nil :noerror)
(replace-match (format-time-string "%Y-%m-%d %H:%M" nil t) t t nil 1)))))))
;; org-update-last-modified-property:1 ends here
;; [[file:init-emacs.org::*org-export-to-json][org-export-to-json:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-export-to-json
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-export-to-json")
;; adapted from https://github.com/mattduck/org-toggl-py/blob/master/org-export-json.el
(use-package json
:commands (json-encode)
:config
(defun org-export-to-json (&optional output beg end)
"Export the outline as JSON.
IF OUTPUT is nil, a default output buffer will be created and exported into.
If OUTPUT is non-nil, create a buffer with that name and export to it.
If OUTPUT is the symbol 'string, exported data is returned as a string.
If BEG and END are given, only that region is exported."
(interactive)
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max)))))
(deactivate-mark)
(save-mark-and-excursion
(save-restriction
(narrow-to-region beg end)
(let ((tree (org-element-parse-buffer)))
(org-element-map tree (append org-element-all-elements
org-element-all-objects
'(plain-text))
(lambda (x)
(when (org-element-property :parent x)
(org-element-put-property x :parent "none"))
(when (org-element-property :structure x)
(org-element-put-property x :structure "none"))))
(if (eq output 'string)
(json-encode tree)
(let ((buffer (generate-new-buffer (or output (concat buffer-file-name ".json")))))
(set-buffer buffer)
(insert (json-encode tree))
(switch-to-buffer buffer)))))))))
;; org-export-to-json:1 ends here
;; [[file:init-emacs.org::*org-toggle-headline-checkbox][org-toggle-headline-checkbox:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-toggle-headline-checkbox
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-toggle-headline-checkbox")
(defun org-toggle-headline-checkbox (&optional beg end)
"Toggle between an Org headline and checkbox on current line or region."
(interactive)
(let ((beg (or beg (if (use-region-p) (region-beginning) (point))))
(end (or end (if (use-region-p) (region-end) (point)))))
(deactivate-mark)
(save-mark-and-excursion
(save-match-data
(goto-char beg)
(while (<= (point) end)
(goto-char (line-beginning-position))
(if (re-search-forward "^\\*+ " (line-end-position) :noerror)
(replace-match (concat
(make-string (- (point) (line-beginning-position) 2) ? )
"- [ ] "))
(if (re-search-forward "^ *- \\[ \\] " (line-end-position) :noerror)
(replace-match (concat
(make-string (- (point) (line-beginning-position) 5) ?*)
" "))))
(forward-line 1))))))
;; org-toggle-headline-checkbox:1 ends here
;; [[file:init-emacs.org::*org-table-remove-commas][org-table-remove-commas:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-table-remove-commas
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-table-remove-commas")
(defun org-table-remove-commas ()
"Remove all commas in current Org table."
(interactive)
(save-mark-and-excursion
(save-match-data
(goto-char (org-table-begin))
(while (re-search-forward "," (org-table-end) :noerror)
(replace-match "")))))
;; org-table-remove-commas:1 ends here
;; [[file:init-emacs.org::*org-days-between-dates][org-days-between-dates:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-days-between-dates
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-days-between-dates")
(defun org-days-between-dates (beg end)
"Return the number of days between BEG (inclusive) and END (exclusive).
Where BEG and END dates are in one of these formats:
YYYY
YYYYMM
YYYYMMDD
YYYY-MM
YYYY-MM-DD"
(cl-labels
((convert-date (date)
(calendar-absolute-from-gregorian (org-date-to-gregorian date)))
(pad-date (date)
(let ((date (if (stringp date) date (number-to-string date))))
(case (length date)
(4 (concat date "-01-01"))
(6 (concat (substring date 0 4) "-" (substring date 4) "-01"))
(7 (concat date "-01"))
(8 (concat (substring date 0 4) "-" (substring date 4 6) "-" (substring date 6)))
(10 date)))))
(let ((beg (convert-date (pad-date beg)))
(end (convert-date (pad-date end)))
x)
(when (> beg end)
(setq x beg
beg end
end x))
(- end beg))))
;; org-days-between-dates:1 ends here
;; [[file:init-emacs.org::*org-babel-tangle-block][org-babel-tangle-block:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-babel-tangle-block
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-babel-tangle-block")
(defun org-babel-tangle-block ()
"Tangle blocks for the tangle file of the block at point."
(interactive)
(org-babel-tangle '(16)))
;; org-babel-tangle-block:1 ends here
;; [[file:init-emacs.org::*org-copy-tangled-sections][org-copy-tangled-sections:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-copy-tangled-sections
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-copy-tangled-sections")
(defun org-copy-tangled-sections (source-file target-file sections &optional prefix)
"Copy section blocks from tangled SOURCE-FILE to TARGET-FILE
that match the names in SECTIONS.
If PREFIX is non-nil, insert it verbatim at the top of the
TARGET-FILE."
;; create buffer for target-file
(let ((buffer (find-file-noselect target-file)))
(set-buffer buffer)
(erase-buffer)
;; insert header
(insert ";; -*- mode: emacs-lisp; lexical-binding: t; no-byte-compile: t -*-\n")
(insert ";;==============================================================================\n")
(insert ";;; " (file-name-nondirectory target-file) "\n")
(insert ";;\n")
(insert ";; This file was generated from " (file-name-nondirectory source-file) ".\n")
(insert ";;==============================================================================\n\n")
;; insert optional prefix
(when prefix
(insert (concat prefix "\n")))
;; insert section blocks
(with-temp-buffer
(insert-file-contents source-file)
(dolist (section sections)
(goto-char (point-min))
(re-search-forward (concat "^[ \t]*" section "$"))
(goto-char (line-beginning-position))
(forward-line -1)
(unless (looking-at "^[ \t]*;;--")
(forward-line 1))
(let ((beg (point))
(end (progn
(re-search-forward (concat "^[ \t]*;; .* ends here$"))
(goto-char (line-beginning-position))
(forward-line 1)
(point))))
(append-to-buffer buffer beg end))))
;; remove all `init-message' calls
(goto-char (point-min))
(while (re-search-forward "^[ \t]*(init-message [0-9] \"\\(.*\\)\")$" nil :noerror)
(delete-region (1- (line-beginning-position)) (1+ (line-end-position))))
;; remove all ';; ... ends here' lines
(goto-char (point-min))
(while (re-search-forward "^[ \t]*;; .* ends here$" nil :noerror)
(goto-char (line-beginning-position))
(delete-region (line-beginning-position) (line-end-position)))
(goto-char (point-max))
;; insert footer
(insert ";;==============================================================================\n")
(insert ";;; " (file-name-nondirectory target-file) " ends here\n")
(insert ";;==============================================================================\n")
;; save and close buffer
(save-buffer)
(kill-buffer buffer)))
;; org-copy-tangled-sections:1 ends here
;; [[file:init-emacs.org::*org-screenshot][org-screenshot:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Functions: org-screenshot
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Functions: org-screenshot")
;; take a screenshot and insert org link
(defun org-screenshot ()
"Take a screenshot into a time stamped unique-named file in the
same directory as the org-buffer and insert a link to this file."
(interactive)
;; (let ((file-name
;; (concat
;; (make-temp-name
;; (concat (buffer-file-name)
;; "_"
;; (format-time-string "%Y%m%d_%H%M%S_")))
;; ".png")))
(let ((file-name
(concat (buffer-file-name)
"_"
(format-time-string "%Y%m%d_%H%M%S")
".png")))
(call-process "import" nil nil nil file-name)
(insert (concat "[[" file-name "]]\n"))))
;; org-screenshot:1 ends here
;; [[file:init-emacs.org::*Hook][Hook:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Hook
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Hook")
(defun local-org-mode-hook ()
;; remappings
(bind-keys :map org-mode-map
([remap org-metaleft] . org-safe-metaleft)
([remap org-metaright] . org-safe-metaright)
([remap org-metadown] . org-safe-metadown)
([remap org-metaup] . org-safe-metaup)
([remap org-shiftmetaleft] . org-safe-shiftmetaleft)
([remap org-shiftmetaright] . org-safe-shiftmetaright)
([remap org-shiftmetadown] . org-safe-shiftmetadown)
([remap org-shiftmetaup] . org-safe-shiftmetaup))
;; local key bindings
(bind-keys :map org-mode-map
("M-n" . scroll-up)
("M-p" . scroll-down)
("M-W" . org-copy-to-clipboard)
("C-M-b" . org-metaleft)
("C-M-f" . org-metaright)
("C-M-n" . org-metadown)
("C-M-p" . org-metaup)
("C-M-S-b" . org-shiftmetaleft)
("C-M-S-f" . org-shiftmetaright)
("C-M-S-n" . org-shiftmetadown)
("C-M-S-p" . org-shiftmetaup)
;;("C-c C-<return>" . org-insert-heading)
("C-c a" . org-agenda)
("C-c l" . org-store-link)
("C-c m" . org-insert-todo-heading)
("C-c p" . org-priority) ; "C-c ," gets overridden by `semantic-complete-analyze-inline'
("C-c s" . org-sort-current) ; sort current level
("C-c z" . org-agenda-archive-done-tasks) ; archive done tasks
("C-c C-j" . counsel-org-goto) ; defaults to `org-goto'
;;("C-c C-z" . switch-to-lisp) ; defaults to `org-add-note'
("C-c C-z" . geiser-mode-switch-to-repl) ; defaults to `org-add-note'
("C-c C-x C-l" . org-toggle-link-display) ; toggle showing or hiding links
("C-c C-x t" . org-toggle-headline-checkbox) ; toggle between headline and checkbox
("C-c C-x T" . org-toggle-literate-programming-code-block) ; toggle literate programming code block on/off
("C-c C-x F" . org-fix-literate-programming-heading) ; fix literate programming heading of current org section
("C-c C-v q" . org-babel-tangle-block) ; tangle current source block
("C-c C-v C-q" . org-babel-tangle-block)) ; tangle current source block
;; custom movement keys
(custom-key-bindings-movement-keys org-mode-map)
;; ;; work functions
;; (when (fboundp 'work-linkify-jira-card)
;; (bind-keys :map org-mode-map ("C-c C-x L" . work-linkify-jira-card)))
;; make sure tabs are not inserted
(setq indent-tabs-mode nil)
;; turn off auto-fill mode
(turn-off-auto-fill)
;; turn off auto-save mode
(auto-save-mode nil)
;; turn off flyspell
;; (when (fboundp 'flyspell-mode-off)
;; (flyspell-mode-off))
)
(use-package org
:hook (org-mode . local-org-mode-hook))
;; Hook:1 ends here
;; [[file:init-emacs.org::*Babel][Babel:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Babel
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Babel")
;; Babel:1 ends here
;; [[file:init-emacs.org::*Setup][Setup:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Setup
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Setup")
;; load ob-shell
(use-package org
:config
(require 'ob-shell nil :no-error))
;; load ob-async
(use-package ob-async
;;:quelpa (ob-async)
:straight t
:after (org))
;; babel settings
;; (do not set `org-src-fontify-natively' to true as this breaks org-table-align->font-lock-fontify-region)
(setq org-use-property-inheritance t
org-babel-use-quick-and-dirty-noweb-expansion t
org-src-tab-acts-natively t
;;org-src-fontify-natively t
org-src-ask-before-returning-to-edit-buffer nil
org-src-strip-leading-and-trailing-blank-lines t
org-src-window-setup 'current-window
org-confirm-babel-evaluate nil
org-confirm-shell-link-function nil
org-confirm-elisp-link-function nil)
;; exportable file types
(set-default 'org-export-backends '(ascii html icalendar latex md odt org))
;; ;; delete trailing white space on tangle
;; (add-hook 'org-babel-post-tangle-hook #'delete-trailing-whitespace)
;; (add-hook 'org-babel-post-tangle-hook #'save-buffer :append)
;; update images in buffer after evaluation
(add-hook 'org-babel-after-execute-hook #'org-display-inline-images :append)
;; org-eldoc is just too buggy with org-babel
;; Examples:
;; ":tangle-mode (identity #o600)" throws
;; "#+BEGIN_SRC org" goes into an infinite loop
;; (use-package org-eldoc
;; :commands (global-eldoc-mode)
;; :config (progn
;; ;; turn off eldoc mode
;; (global-eldoc-mode -1)))
;; ;; FIXME: temporary fix for org-eldoc-documentation-function
;; (use-package org-eldoc
;; :commands (org-eldoc-get-breadcrumb
;; org-eldoc-get-mode-local-documentation-function
;; org-eldoc-get-src-header
;; org-eldoc-get-src-lang)
;; :functions (c-eldoc-print-current-symbol-info
;; css-eldoc-function
;; eldoc-print-current-symbol-info
;; go-eldoc--documentation-function
;; org-eldoc-documentation-function
;; php-eldoc-function)
;; :config (progn
;; ;; fix `org-eldoc-documentation-function' so it does not recursively call in org lang babel blocks
;; (defun org-eldoc-documentation-function ()
;; "Return breadcrumbs when on a headline, args for src block header-line,
;; calls other documentation functions depending on lang when inside src body.
;; [Custom fix for recursive bug]"
;; (or
;; (org-eldoc-get-breadcrumb)
;; (org-eldoc-get-src-header)
;; (let ((lang (org-eldoc-get-src-lang)))
;; (cond ((or
;; (string= lang "emacs-lisp")
;; (string= lang "elisp")) (if (fboundp 'elisp-eldoc-documentation-function)
;; (elisp-eldoc-documentation-function)
;; (let (eldoc-documentation-function)
;; (eldoc-print-current-symbol-info))))
;; ((or
;; (string= lang "c") ;; http://github.com/nflath/c-eldoc
;; (string= lang "C")) (when (require 'c-eldoc nil :no-error)
;; (c-eldoc-print-current-symbol-info)))
;; ;; https://github.com/zenozeng/css-eldoc
;; ((string= lang "css") (when (require 'css-eldoc nil :no-error)
;; (css-eldoc-function)))
;; ;; https://github.com/zenozeng/php-eldoc
;; ((string= lang "php") (when (require 'php-eldoc nil :no-error)
;; (php-eldoc-function)))
;; ((or
;; (string= lang "go")
;; (string= lang "golang")) (when (require 'go-eldoc nil :no-error)
;; (go-eldoc--documentation-function)))
;; (t (let ((doc-fun (org-eldoc-get-mode-local-documentation-function lang)))
;; (when (and (functionp doc-fun) (not (string= doc-fun "org-eldoc-documentation-function")))
;; (funcall doc-fun)))))))))
;; Setup:1 ends here
;; [[file:init-emacs.org::*Structure Templates][Structure Templates:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Structure Templates
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Structure Templates")
(use-package org-tempo
:custom
;; set keyword completion elements
(org-tempo-keywords-alist
'(
("A" . "ascii")
;;("c" . "call")
("H" . "html")
("i" . "index")
("L" . "latex")
("n" . "name")
))
;; set block types
(org-structure-template-alist
'(
("c" . "center")
("C" . "comment")
("e" . "example")
("E" . "export")
("ea" . "export ascii")
("eh" . "export html")
("el" . "export latex")
("q" . "quote")
("s" . "src")
("sel" . "src emacs-lisp")
("sk" . "src kotlin")
("spy" . "src python")
("sr" . "src racket")
("ssh" . "src sh")
("ssu" . "src sh :dir /sudo::")
("v" . "verse")
))
:config
;; custom `org-tempo-add-block' with upcase headers
(defun org-tempo-add-block (entry)
"Add block entry from `org-structure-template-alist'."
(let* ((key (format "<%s" (car entry)))
(name (cdr entry))
(name-parts (split-string name " "))
(upcase-type (upcase (car name-parts)))
(upcase-name (mapconcat 'identity (cons upcase-type (cdr name-parts)) " "))
(special (member name '("src" "export"))))
(tempo-define-template (format "org-%s" (replace-regexp-in-string " " "-" name))
`(,(format "#+BEGIN_%s%s" upcase-name (if special " " ""))
,(when special 'p) '> n '> ,(unless special 'p) n
,(format "#+END_%s" upcase-type)
>)
key
(format "Insert a %s block" upcase-name)
'org-tempo-tags)))
;; custom `org-tempo-add-keyword' with upcase headers
(defun org-tempo-add-keyword (entry)
"Add keyword entry from `org-tempo-keywords-alist'."
(let* ((key (format "<%s" (car entry)))
(name (cdr entry))
(upcase-name (upcase name)))
(tempo-define-template (format "org-%s" (replace-regexp-in-string " " "-" name))
`(,(format "#+%s: " upcase-name) p '>)
key
(format "Insert a %s keyword" upcase-name)
'org-tempo-tags)))
;; custom `org-tempo--include-file' with upcase header
(defun org-tempo--include-file ()
"Add #+include: and a file name."
(let ((inhibit-quit t))
(unless (with-local-quit
(prog1 t
(insert
(format "#+INCLUDE: %S "
(file-relative-name
(read-file-name "Include file: "))))))
(insert "<I")
(setq quit-flag nil))))
;; update templates
(org-tempo-add-templates))
;; ;; upcase begin_src and end_src block headers
;; (defun org-insert-structure-template--upcase (type)
;; "Upcase #+begin_src and #+end_src block headers."
;; (save-mark-and-excursion
;; (let ((case-fold-search nil)) ; case sensitive search
;; (forward-line -1)
;; (when (re-search-forward "^[ \t]*#\\+begin_[a-z]*" (line-end-position) :noerror)
;; (replace-match (upcase (match-string 0)))
;; (forward-line 2)
;; (when (re-search-forward "^[ \t]*#\\+end_[a-z]*" (line-end-position) :noerror)
;; (replace-match (upcase (match-string 0))))))))
;; ;; advise `org-insert-structure-template'
;; (advice-add 'org-insert-structure-template :after #'org-insert-structure-template--upcase)
;; ;; upcase include header
;; (defun org-tempo--include-file--upcase ()
;; "Upcase #+include: header."
;; (save-mark-and-excursion
;; (let ((case-fold-search nil)) ; case sensitive search
;; (forward-line 0)
;; (when (re-search-forward "^[ \t]*#\\+include: " (line-end-position) :noerror)
;; (replace-match (upcase (match-string 0)))))))
;; ;; advise `org-tempo--include-file'
;; (advice-add 'org-tempo--include-file :after #'org-tempo--include-file--upcase))
;; Structure Templates:1 ends here
;; [[file:init-emacs.org::*Edit Source][Edit Source:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Edit Source
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Edit Source")
(use-package org
:commands (org-edit-src-code
org-edit-src-exit)
:config
(require 'org-src)
;; make sure custom key bindings are set in `org-src-mode'
(add-hook 'org-src-mode-hook #'custom-key-bindings-set-all)
(defun org-edit-src-exit--update-last-modified ()
"Update LAST_MODIFIED property timestamp on source update."
(org-update-last-modified-property))
;; advise `org-edit-src-exit'
(advice-add 'org-edit-src-exit :before #'org-edit-src-exit--update-last-modified)
(defun org-edit-src--recenter (&optional arg)
"Recenter when entering/exiting special editors."
(recenter))
;; advise `org-edit-special'
(advice-add 'org-edit-special :after #'org-edit-src--recenter)
;; advise `org-edit-src-exit'
(advice-add 'org-edit-src-exit :after #'org-edit-src--recenter))
;; Edit Source:1 ends here
;; [[file:init-emacs.org::*Tangle Update Timestamps][Tangle Update Timestamps:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Tangle Update Timestamps
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Tangle Update Timestamps")
(defun org-babel-post-tangle-hook--time-stamp ()
"Update timestamps on tangled files."
(time-stamp)
(save-buffer))
(add-hook 'org-babel-post-tangle-hook #'org-babel-post-tangle-hook--time-stamp)
;; Tangle Update Timestamps:1 ends here
;; [[file:init-emacs.org::*Tangle Case-Sensitive][Tangle Case-Sensitive:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Tangle Case-Sensitive
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Tangle Case-Sensitive")
(defun org-babel-tangle-collect-blocks--case-sensitive (orig-fun &rest args)
"Set `case-fold-search' to nil so `string-match' calls are case-sensitive."
(let ((case-fold-search nil))
(apply orig-fun args)))
;; advise `org-babel-tangle-collect-blocks' making it case-sensitive
(advice-add 'org-babel-tangle-collect-blocks :around #'org-babel-tangle-collect-blocks--case-sensitive)
;; Tangle Case-Sensitive:1 ends here
;; [[file:init-emacs.org::*Racket][Racket:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Racket
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Racket")
;; default to racket-mode for racket files
(defvar org-babel-tangle-lang-exts)
(add-to-list 'org-babel-tangle-lang-exts '("racket" . "rkt"))
(defvar org-babel-racket-command "racket")
(defvar org-babel-default-header-args:racket '())
(defvar org-babel-header-args:racket '((package . :any)))
(defun org-babel-execute:racket (body params)
"Execute a block of Racket Scheme code with Babel.
BODY is the contents of the block, as a string. PARAMS is
a property list containing the parameters of the block."
(let ((result
;; if there is a #lang line then geiser racket session wont work
(if (with-temp-buffer
(insert (org-babel-expand-body:lisp body params))
(goto-char (point-min))
(re-search-forward "^[ \t]*#lang +\\([^ ]+\\)" nil :noerror))
;; create temporary racket file and execute it for result
(let ((src-file (org-babel-src-file "racket-" ".rkt")))
(with-temp-file src-file
(insert (org-babel-expand-body:lisp body params)))
(org-babel-eval (concat org-babel-racket-command " " src-file) ""))
;; otherwise, eval body in geiser racket session for result
(funcall (if (member "output" (cdr (assq :result-params params)))
(lambda (x) (cdr (assq (intern "output") x)))
(lambda (x) (cdr (assq (intern "result") x))))
(with-temp-buffer
(insert (org-babel-expand-body:lisp body params))
(racket-mode)
;; check for non-comment lines
(goto-char (point-min))
(while (and (not (eobp))
(looking-at "^[ \t]*\\(;\\|$\\)"))
(forward-line 1))
;; only continue if there are non-comment lines
;; (otherwise geiser eval commands hang)
(unless (eobp)
(if (fboundp 'geiser-eval-region)
(geiser-eval-region (point-min) (point-max) nil :raw)
(error "geiser-eval-region not defined"))))))))
(org-babel-reassemble-table
(org-babel-result-cond (cdr (assq :result-params params))
result
(condition-case nil
(read (org-babel-lisp-vector-to-list result))
(error result)))
(org-babel-pick-name (cdr (assq :colname-names params))
(cdr (assq :colnames params)))
(org-babel-pick-name (cdr (assq :rowname-names params))
(cdr (assq :rownames params))))))
;; (use-package ob-scheme
;; :config (progn
;; ;; customize org/babel for scheme/racket so it works
;; (defcustom org-babel-scheme-command "racket -f"
;; "Name of the scheme command.
;; May be either a command in the path, like scheme
;; or an absolute path name, like /usr/local/bin/scheme
;; parameters may be used, like scheme -verbose"
;; :group 'org-babel
;; :type 'string)
;; (defcustom org-babel-scheme-compiler "racket"
;; "Name of the scheme compiler.
;; May be either a command in the path, like schemec
;; or an absolute path name, like /usr/local/bin/schemec
;; parameters may be used, like schemec -verbose"
;; :group 'org-babel
;; :type 'string)
;; ;; default to scheme-mode for racket files
;; (add-to-list 'org-babel-tangle-lang-exts '("scheme" . "rkt"))
;; ;; redefine `org-babel-scheme-make-session-name' to use
;; ;; implementation name if no session name is given
;; (defun org-babel-scheme-make-session-name (buffer name impl)
;; "Generate a name for the session buffer.
;; For a named session, the buffer name will be the session name.
;; If the session is unnamed (nil), generate a name.
;; If the session is `none', use an existing IMPL session if one exists,
;; otherwise use nil for the session name, and
;; org-babel-scheme-execute-with-geiser will use a temporary session."
;; (cond
;; ((not name)
;; (concat buffer " " (symbol-name impl) " REPL"))
;; ((string= name "none")
;; (and (org-babel-scheme-get-session-buffer impl) impl))
;; (t
;; name)))
;; ;; redefine `org-babel-scheme-get-session-buffer' to add default
;; ;; racket geiser repl to `org-babel-scheme-repl-map' if running
;; (defun org-babel-scheme-get-session-buffer (session-name)
;; "Look up the scheme buffer for a session; return nil if it doesn't exist."
;; (org-babel-scheme-cleanse-repl-map) ; prune dead sessions
;; (let* ((impl (intern "racket"))
;; (buffer (get-buffer "* Racket REPL *")))
;; (when (and buffer
;; (not (gethash impl org-babel-scheme-repl-map)))
;; (puthash impl buffer org-babel-scheme-repl-map)))
;; (gethash session-name org-babel-scheme-repl-map))))
;; ;; (defun org-babel-scheme-get-session-buffer--add-geiser-repl (session-name)
;; ;; "Add default racket geiser repl to `org-babel-scheme-repl-map' if running."
;; ;; (let* ((impl (intern "racket"))
;; ;; (buffer (get-buffer "* Racket REPL *")))
;; ;; (when (and buffer
;; ;; (not (gethash impl org-babel-scheme-repl-map)))
;; ;; (puthash impl buffer org-babel-scheme-repl-map))))
;; ;; ;; advise `org-babel-scheme-get-session-buffer'
;; ;; (advice-add 'org-babel-scheme-get-session-buffer :before #'org-babel-scheme-get-session-buffer--add-geiser-repl)))
;; Racket:1 ends here
;; [[file:init-emacs.org::*Java][Java:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Java
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Java")
(use-package org
:commands (org-babel-execute:java)
:config
(when (require 'ob-java nil :no-error)
;; customize org/babel for java so it will handle packages correctly
(defun org-babel-execute:java (body params)
"Execute a block of Java code with Babel.
BODY is the contents of the block, as a string. PARAMS is
a property list containing the parameters of the block."
(let* ((classname (or (cdr (assoc :classname params))
(error ":classname parameter is required")))
(packagename (file-name-directory classname))
(src-file (concat classname ".java"))
(javacflags (or (cdr (assoc :javacflags params)) ""))
(javaflags (or (cdr (assoc :javaflags params)) ""))
(full-body (org-babel-expand-body:generic body params)))
;; created package-name directories if missing
(unless (or (not packagename) (file-exists-p packagename))
(make-directory packagename 'parents))
;; compile java source file
(with-temp-file src-file
(insert full-body)
(org-babel-eval (concat org-babel-java-compiler " " javacflags " " src-file) ""))
;; run java code
(let ((result (org-babel-eval (concat org-babel-java-command " " javaflags " " classname) "")))
(org-babel-reassemble-table
(org-babel-result-cond (cdr (assoc :result-params params))
(org-babel-read result)
(let ((temp-file (org-babel-temp-file "java-")))
(with-temp-file temp-file
(insert result)
(org-babel-import-elisp-from-file temp-file))))
(org-babel-pick-name (cdr (assoc :colname-names params))
(cdr (assoc :colnames params)))
(org-babel-pick-name (cdr (assoc :rowname-names params))
(cdr (assoc :rownames params)))))))))
;; Java:1 ends here
;; [[file:init-emacs.org::*Kotlin][Kotlin:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Kotlin
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Kotlin")
(use-package ob-kotlin
;;:quelpa (ob-kotlin)
:straight t
:after (org kotlin-mode)
:commands (org-babel-execute:kotlin)
:functions (flycheck-mode
kotlin-send-buffer
org-babel-kotlin-command)
:defines (org-babel-kotlin-compiler)
:config
;; customize org/babel for kotlin so it works
(defcustom org-babel-kotlin-command "kotlin"
"Name of the kotlin command.
May be either a command in the path, like kotlin or an absolute
path name, like /usr/local/bin/kotlin parameters may be used,
like kotlin -verbose"
:group 'org-babel
:type 'string)
(defcustom org-babel-kotlin-compiler "kotlinc"
"Name of the kotlin compiler.
May be either a command in the path, like kotlinc or an absolute
path name, like /usr/local/bin/kotlinc parameters may be used,
like kotlinc -verbose"
:group 'org-babel
:type 'string)
(defun org-babel-execute:kotlin (body params)
"If main function exists, then compile code and run jar
otherwise, run code in `kotlin-repl'."
(let* ((classname (or (cdr (assq :classname params)) "main"))
;;(packagename (file-name-directory classname))
(src-file (org-babel-temp-file classname ".kt"))
(jar-file (concat (file-name-sans-extension src-file) ".jar"))
(cmpflag (or (cdr (assq :cmpflag params)) ""))
(cmdline (or (cdr (assq :cmdline params)) ""))
(full-body (org-babel-expand-body:generic body params)))
(if (or (string-match "fun main(args: Array<String>)" full-body)
(string-match "fun main()" full-body))
(progn
(with-temp-file src-file (insert full-body))
(org-babel-eval
(concat org-babel-kotlin-compiler " " cmpflag " " src-file " -include-runtime -d " jar-file) "")
(message (org-babel-eval (concat org-babel-java-command " " cmdline " -jar " jar-file) "")))
(with-temp-buffer
(insert body)
(kotlin-send-buffer))))))
;; Kotlin:1 ends here
;; [[file:init-emacs.org::*Python][Python:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Python
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Python")
(use-package org
:after (python-mode)
:commands (org-babel-execute:python)
:config
(when (require 'ob-python nil :no-error)
(defun org-babel-execute:python (body params)
"Execute a block of Python code with Babel.
BODY is the contents of the block, as a string. PARAMS is
a property list containing the parameters of the block.
This function is called by `org-babel-execute-src-block'.
Note: This function only works with an iPython shell if it has
the autoindent feature turned off. Add '--no-autoindent' to
`py-ipython-command-args' to set this when an iPython process is
created."
(let* ((org-babel-python-command (or (cdr (assq :python params))
org-babel-python-command))
(session-name (cdr (assq :session params)))
(session (when (and session-name (not (string= session-name "none")))
(org-babel-python-initiate-session session)))
(result-params (cdr (assq :result-params params)))
(result-type (cdr (assq :result-type params)))
(return-val (when (and (eq result-type 'value) (not session))
(cdr (assq :return params))))
(preamble (cdr (assq :preamble params)))
(process (get-process python-shell-buffer-name))
(full-body
(org-babel-expand-body:generic
(concat body (if return-val (format "\nreturn %s" return-val) ""))
params (org-babel-variable-assignments:python params)))
(result (cond
(session
(org-babel-python-evaluate-session
session full-body result-type result-params))
(process
(process-send-string process (concat full-body "\n\n"))
(display-buffer (process-buffer process) t))
(t
(org-babel-python-evaluate-external-process
full-body result-type result-params preamble)))))
(org-babel-reassemble-table
result
(org-babel-pick-name (cdr (assq :colname-names params))
(cdr (assq :colnames params)))
(org-babel-pick-name (cdr (assq :rowname-names params))
(cdr (assq :rownames params))))))))
;; Python:1 ends here
;; [[file:init-emacs.org::*Basic (Commander X16)][Basic (Commander X16):1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Basic (Commander X16)
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Basic (Commander X16)")
;; default to basic-mode for basic files
(require 'basic)
(defvar org-babel-tangle-lang-exts)
(add-to-list 'org-babel-tangle-lang-exts '("basic" . "bas"))
;;(defvar org-babel-basic-command "~/x16emu/x16emu")
(defvar org-babel-basic-command "x16emu -rom /usr/share/x16-rom/rom.bin")
(defun org-babel-execute:basic (body params)
"Execute a block of BASIC code with Babel.
BODY is the contents of the block, as a string. PARAMS is
a property list containing the parameters of the block."
(let ((src-file (org-babel-temp-file "basic-" ".bas")))
(with-temp-file src-file
(insert (org-babel-expand-body:generic body params)))
(org-babel-eval (concat org-babel-basic-command " -bas " src-file " -run &") "")))
;; Basic (Commander X16):1 ends here
;; [[file:init-emacs.org::*Assembly Language (Commander X16)][Assembly Language (Commander X16):1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Assembly Language (Commander X16)
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Assembly Language (Commander X16)")
;; default to asm-mode for assembly language files
(defvar org-babel-tangle-lang-exts)
(add-to-list 'org-babel-tangle-lang-exts '("asm" . "asm"))
;; ;; vasm version
;; defvar org-babel-asm-compiler "vasm6502_oldstyle")
;; defvar org-babel-asm-compiler-params "-c02 -cbm-prg -chklabels -nocase -Dvasm=1 -DBuildC64=1 -Fbin")
;; defvar org-babel-asm-command "x16emu -keymap en-us")
;; (defun org-babel-execute:asm (body params)
;; "Execute a block of Assembly Language code with Babel.
;; BODY is the contents of the block, as a string. PARAMS is
;; a property list containing the parameters of the block."
;; (let* ((base-file (org-babel-temp-file "asm-"))
;; (src-file (concat base-file ".asm"))
;; (list-file (concat base-file ".lst"))
;; (output-file (concat base-file ".prg"))
;; (defines (cdr (assoc :defines params))))
;; (with-temp-file src-file
;; (insert (org-babel-expand-body:generic body params)))
;; (org-babel-eval (concat org-babel-asm-compiler
;; " " org-babel-asm-compiler-params
;; (if defines (concat " -D " defines) "")
;; " -L " list-file
;; " -o " output-file
;; " " src-file) "")
;; (org-babel-eval (concat org-babel-asm-command " -prg " output-file " -run &") "")))
;; acme version
(defun org-babel-execute:asm (body params)
"Execute a block of Assembly Language code with Babel.
BODY is the contents of the block, as a string. PARAMS is
a property list containing the parameters of the block."
(let* ((base-file (org-babel-temp-file "asm-"))
(src-file (concat base-file ".asm"))
(list-file (concat base-file ".lst"))
(output-file (concat base-file ".prg"))
(defines (cdr (assoc :defines params)))
(cmpflag (or (cdr (assq :cmpflag params)) ""))
(cmdline (or (cdr (assq :cmdline params)) ""))
(x16emu (string= (cdr (assq :x16emu params)) "yes"))
(compile-command (concat "acme"
(if cmpflag (concat " " cmpflag) "")
(if defines (concat " -D " defines) "")
" --symbollist " list-file
" --outfile " output-file
" " src-file))
(run-command (when x16emu
(concat "x16emu -keymap en-us"
(if cmdline (concat " " cmdline) "")
" -prg " output-file " -run &"))))
(with-temp-file src-file
(insert (org-babel-expand-body:generic body params)))
(message (format "Compiling: %s" compile-command))
(org-babel-eval compile-command "")
(when x16emu
(message (format "Running: %s" run-command))
(org-babel-eval run-command ""))))
;; ;; 64tass version
;; defvar org-babel-asm-compiler "64tass")
;; defvar org-babel-asm-compiler-params "-a -B -C")
;; defvar org-babel-asm-command "x16emu -keymap en-us")
;; (defun org-babel-execute:asm (body params)
;; "Execute a block of Assembly Language code with Babel.
;; BODY is the contents of the block, as a string. PARAMS is
;; a property list containing the parameters of the block."
;; (let* ((base-file (org-babel-temp-file "asm-"))
;; (src-file (concat base-file ".asm"))
;; (list-file (concat base-file ".lst"))
;; (output-file (concat base-file ".prg"))
;; (defines (cdr (assoc :defines params))))
;; (with-temp-file src-file
;; (insert (org-babel-expand-body:generic body params)))
;; (org-babel-eval (concat org-babel-asm-compiler
;; " " org-babel-asm-compiler-params
;; (if defines (concat " -D " defines) "")
;; " -L " list-file
;; " -o " output-file
;; " " src-file) "")
;; (org-babel-eval (concat org-babel-asm-command " -prg " output-file " -run &") "")))
;; Assembly Language (Commander X16):1 ends here
;; [[file:init-emacs.org::*PlantUML][PlantUML:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: PlantUML
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: PlantUML")
;; set plantuml.jar location
(setq org-plantuml-jar-path "~/dev/java/lib/plantuml.jar")
;; PlantUML:1 ends here
;; [[file:init-emacs.org::*Load Languages][Load Languages:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel: Load Languages
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel: Load Languages")
;; babel languages (usable in source blocks)
(org-babel-do-load-languages
'org-babel-load-languages '((clojure . t)
(css . t)
(ditaa . t)
(dot . t)
(emacs-lisp . t)
(gnuplot . t)
;;(ipython . t)
(java . t)
(js . t)
;;(json . t)
(kotlin . t)
(lisp . t)
(lua . t)
(makefile . t)
(org . t)
(perl . t)
(plantuml . t)
(python . t)
(ruby . t)
(scheme . t)
(shell . t)
(sql . t)))
;; major modes for languages
;; (only needed if the mode name is not LANG-mode)
;;(add-to-list 'org-src-lang-modes '("java" . jdee))
(add-to-list 'org-src-lang-modes '("dot" . graphviz-dot))
;; Load Languages:1 ends here
;; [[file:init-emacs.org::*Babel Functions][Babel Functions:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Babel Functions
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Babel Functions")
;; Babel Functions:1 ends here
;; [[file:init-emacs.org::*org-generate-custom-id-from-title][org-generate-custom-id-from-title:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel Functions: org-generate-custom-id-from-title
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel Functions: org-generate-custom-id-from-title")
(defun org-generate-custom-id-from-title (title)
"Generate a proper `org-mode' CUSTOM_ID property from a given TITLE."
(replace-regexp-in-string
(rx (seq "-" "-")) "-"
(replace-regexp-in-string
(rx (seq "-" eol)) ""
(replace-regexp-in-string
(rx (seq bol "-")) ""
(replace-regexp-in-string
(rx (any ".")) "-dot-"
(replace-regexp-in-string
(rx (any " " "_" "/")) "-"
(replace-regexp-in-string
(rx (not (any alnum space "-" "_" "." "/"))) ""
(downcase title))))))))
;; org-generate-custom-id-from-title:1 ends here
;; [[file:init-emacs.org::*org-fix-literate-programming-heading][org-fix-literate-programming-heading:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel Functions: org-fix-literate-programming-heading
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel Functions: org-fix-literate-programming-heading")
(defun org-fix-literate-programming-heading ()
"Fix 'literate programming' heading of current org section.
Reset the CUSTOM_ID property, title comment, and `init-message'."
(interactive "*")
(save-window-excursion
(save-mark-and-excursion
(save-match-data
(org-with-wide-buffer
;; find heading of current position
(goto-char (line-beginning-position))
(while (not (looking-at "^\*+ "))
(forward-line -1))
(let* ((case-fold-search t)
(start (point))
(count (length (progn
(re-search-forward "^\\(\*+\\) " (line-end-position))
(match-string-no-properties 1))))
(level (/ (1+ count) (if org-odd-levels-only 2 1)))
headings)
;; get parent headings
(goto-char start)
(while (and (not (bobp))
(> count 0))
(let ((regexp (concat "^\*\\{" (number-to-string count) "\\} \\(.*\\)$")))
(while (and (not (bobp))
(not (looking-at regexp)))
(forward-line -1))
(when (re-search-forward regexp (line-end-position))
(push (replace-regexp-in-string "+" "" (match-string-no-properties 1)) headings)
(setq count (- count (if org-odd-levels-only 2 1))))))
(let ((id (mapconcat (lambda (x) (org-generate-custom-id-from-title x))
headings "-"))
(title (mapconcat #'(lambda (x) x) headings ": ")))
(goto-char start)
;; set CUSTOM_ID
(org-set-property "CUSTOM_ID" id)
(forward-line 1)
(indent-region (point) (re-search-forward "^[ \t]*:END:$"))
;; set comment
(let ((end (if (re-search-forward "^\*+ " nil :noerror) (point) (point-max))))
(goto-char start)
(when (re-search-forward "^[ \t]*#\\+BEGIN_SRC" end :noerror)
(org-babel-do-in-edit-buffer
(let* ((comment-1 (substring comment-start -1))
(comment-2 (if (= (length comment-start) 1)
(concat comment-start comment-start)
comment-start))
(comment-3 (concat comment-2 comment-1))
(comment-4 (concat comment-3 comment-1)))
(when (looking-at (concat
comment-2 "[=-]+\n"
comment-2 "+ .*\n"
comment-2 "[=-]+$"))
(replace-match
(concat
comment-2 (make-string 78 (if (> level 1) ?- ?=)) "\n"
(if (> level 2) comment-4 comment-3) " " title "\n"
comment-2 (make-string 78 (if (> level 1) ?- ?=))))))
(goto-char (line-beginning-position))
;; set `init-message' text
(when (re-search-forward "(init-message .*$" nil :noerror)
(replace-match (concat "(init-message " (number-to-string level) " \"" title "\")")))))))))))))
;; org-fix-literate-programming-heading:1 ends here
;; [[file:init-emacs.org::*org-fix-literate-programming-heading-region][org-fix-literate-programming-heading-region:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel Functions: org-fix-literate-programming-heading-region
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel Functions: org-fix-literate-programming-heading-region")
(defun org-fix-literate-programming-heading-region (&optional beg end)
"Fix 'literate programming' headings contained with given region.
Reset the CUSTOM_ID property, title comment, and `init-message'."
(interactive "*")
(let ((case-fold-search t)
(beg (or beg (if (use-region-p) (region-beginning) (progn (beginning-of-line-text) (point)))))
(end (or end (if (use-region-p) (region-end) (line-end-position)))))
(save-window-excursion
(save-mark-and-excursion
(save-match-data
(org-with-wide-buffer
(goto-char beg)
(while (and (re-search-forward "^[ \t]*:CUSTOM_ID:" nil :noerror)
(< (line-end-position) end))
(org-fix-literate-programming-heading)
(forward-line 1))))))))
;; org-fix-literate-programming-heading-region:1 ends here
;; [[file:init-emacs.org::*org-toggle-literate-programming-code-block][org-toggle-literate-programming-code-block:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel Functions: org-toggle-literate-programming-code-block
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel Functions: org-toggle-literate-programming-code-block")
(defun org-toggle-literate-programming-code-block ()
"Toggle 'literate programming' heading and code block on/off."
(interactive)
(save-window-excursion
(save-mark-and-excursion
(save-match-data
(org-with-wide-buffer
(org-back-to-heading t)
(let ((case-fold-search t)
(beg (point))
(end (progn
(forward-line 1)
(re-search-forward "^\*" nil 'move)
(1- (point)))))
(goto-char beg)
(re-search-forward " " (line-end-position))
(let ((toggle-on (looking-at "\+"))) ; whether toggling on or off
;; toggle source blocks (in reverse as END will move)
(goto-char end)
(while (re-search-backward "^[ \t]*#\\+BEGIN_" beg :noerror)
(if toggle-on
(when (re-search-forward " :tangle no" (line-end-position) :noerror)
(replace-match ""))
(progn
(goto-char (line-end-position))
(insert " :tangle no")))
(forward-line 1)
(org-babel-do-in-edit-buffer
(if toggle-on
(uncomment-region (point-min) (point-max))
(comment-region (point-min) (point-max))))
(forward-line -2))
;; toggle header text
(goto-char beg)
(re-search-forward " " (line-end-position))
(if toggle-on
(dotimes (x 2)
(when (re-search-forward "\+" (line-end-position))
(replace-match "")))
(progn
(insert "+")
(goto-char (line-end-position))
(insert "+"))))))))))
;; org-toggle-literate-programming-code-block:1 ends here
;; [[file:init-emacs.org::*org-insert-literate-programming-statics][org-insert-literate-programming-statics:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel Functions: org-insert-literate-programming-statics
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel Functions: org-insert-literate-programming-statics")
(defun org-insert-literate-programming-name ()
"Insert `org-babel' block NAME"
(interactive "*")
(insert "#+NAME: "))
(defun org-insert-literate-programming-src ()
"Insert `org-babel' source block"
(interactive "*")
(insert "#+BEGIN_SRC\n\n#+END_SRC\n")
(forward-line -2))
(defun org-insert-literate-programming-src-sh ()
"Insert `org-babel' sh source block"
(interactive "*")
(insert "#+BEGIN_SRC sh\n\n#+END_SRC\n")
(forward-line -2))
(defun org-insert-literate-programming-src-sh-sudo ()
"Insert `org-babel' sh (sudo) source block"
(interactive "*")
(insert "#+BEGIN_SRC sh :dir /sudo::\n\n#+END_SRC\n")
(forward-line -2))
(defun org-insert-literate-programming-src-emacs-lisp ()
"Insert `org-babel' emacs-lisp source block"
(interactive "*")
(insert "#+BEGIN_SRC emacs-lisp\n\n#+END_SRC\n")
(forward-line -2))
(defun org-insert-literate-programming-src-racket ()
"Insert `org-babel' racket source block"
(interactive "*")
(insert "#+BEGIN_SRC racket\n\n#+END_SRC\n")
(forward-line -2))
(defun org-insert-literate-programming-src-kotlin ()
"Insert `org-babel' kotlin source block"
(interactive "*")
(insert "#+BEGIN_SRC kotlin\n\n#+END_SRC\n")
(forward-line -2))
;; org-insert-literate-programming-statics:1 ends here
;; [[file:init-emacs.org::*org-insert-literate-programming-init-emacs-block][org-insert-literate-programming-init-emacs-block:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel Functions: org-insert-literate-programming-init-emacs-block
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel Functions: org-insert-literate-programming-init-emacs-block")
(defun org-insert-literate-programming-init-emacs-block (&optional title)
"Insert 'literate programming' init-emacs block consisting of a heading,
properties, source block, title comment, and `init-message'."
(interactive "*")
(let* ((case-fold-search t)
(title (or title (read-string "Block title: ")))
(tag (org-generate-custom-id-from-title title)))
(org-insert-heading)
(insert title)
(org-set-property "CUSTOM_ID" tag)
(re-search-forward "^[ \t]*:END:$")
(newline)
(newline)
(insert "#+BEGIN_SRC emacs-lisp\n")
(insert " ;;------------------------------------------------------------------------------\n")
(insert " ;;;; " title "\n")
(insert " ;;------------------------------------------------------------------------------\n")
(newline)
(insert " (init-message 2 \"" title "\")\n")
(newline)
(insert "#+END_SRC\n")
(org-previous-visible-heading 1)
(goto-char (line-end-position))
(org-fix-literate-programming-heading)))
;; org-insert-literate-programming-init-emacs-block:1 ends here
;; [[file:init-emacs.org::*org-insert-literate-programming-code-block][org-insert-literate-programming-code-block:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel Functions: org-insert-literate-programming-code-block
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel Functions: org-insert-literate-programming-code-block")
(defun org-insert-literate-programming-code-block ()
"Insert 'literate programming' code block consisting of a heading,
properties, source block, and title comment."
(interactive "*")
(let* ((case-fold-search t)
(title (read-string "Block title: "))
(funct (org-generate-custom-id-from-title title))
(lang (save-mark-and-excursion
(if (re-search-backward "^[ \t]*#\\+BEGIN_SRC \\([^ \t\n]*\\)" nil :noerror)
(match-string 1)
"emacs-lisp"))))
(org-previous-visible-heading 1)
(org-insert-heading-respect-content)
(insert title)
(org-set-property "CUSTOM_ID" funct)
(re-search-forward "^[ \t]*:END:$")
(newline)
(newline)
(insert "#+BEGIN_SRC " lang "\n")
(insert " ;;------------------------------------------------------------------------------\n")
(insert " ;;;; " title "\n")
(insert " ;;------------------------------------------------------------------------------\n")
(newline)
(insert " (define (" funct " num)\n")
(insert " )\n")
(insert "#+END_SRC\n")
(newline)
(insert "#+BEGIN_SRC " lang " :tangle no\n")
(insert " (define (" funct "-test)\n")
(insert " (check-equal? (" funct " ) )\n")
(insert " )\n")
(insert "#+END_SRC\n")
(org-previous-visible-heading 1)
(goto-char (line-end-position))
(org-fix-literate-programming-heading)))
;; org-insert-literate-programming-code-block:1 ends here
;; [[file:init-emacs.org::*org-insert-literate-programming-project-euler-problem-block][org-insert-literate-programming-project-euler-problem-block:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Babel Functions: org-insert-literate-programming-project-euler-problem-block
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Babel Functions: org-insert-literate-programming-project-euler-problem-block")
(defun org-insert-literate-programming-project-euler-problem-block ()
"Insert 'literate programming' project euler problem block consisting of a
heading, properties, source block with title comment, and test block."
(interactive "*")
(let* ((case-fold-search t)
(num (read-string "Problem number: "))
(title (concat "Problem " num))
(funct (format "project-euler-%03d" num))
(lang (save-mark-and-excursion
(if (re-search-backward "^[ \t]*#\\+BEGIN_SRC \\([^ \t\n]*\\)" nil :noerror)
(match-string 1)
"emacs-lisp"))))
(org-previous-visible-heading 1)
(org-insert-heading-respect-content)
(insert title)
(org-set-property "CUSTOM_ID" funct)
(re-search-forward "^[ \t]*:END:$")
(newline)
(newline)
(insert "#+BEGIN_SRC " lang "\n")
(insert " ;;------------------------------------------------------------------------------\n")
(insert " ;;;; " title "\n")
(insert " ;;\n")
(insert " ;;\n")
(insert " ;;\n")
(insert " ;; The correct answer is: \n")
(insert " ;;------------------------------------------------------------------------------\n")
(newline)
(insert " (define (" funct " [num 1000])\n")
(insert " )\n")
(insert "#+END_SRC\n")
(newline)
(insert "#+BEGIN_SRC " lang " :tangle no\n")
(insert " (define (" funct "-test)\n")
(insert " (check-equal? (" funct " ) )\n")
(insert " )\n")
(insert "#+END_SRC\n")
(org-previous-visible-heading 1)
(goto-char (line-end-position))
(org-fix-literate-programming-heading)))
;; org-insert-literate-programming-project-euler-problem-block:1 ends here
;; [[file:init-emacs.org::*Visibility][Visibility:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Visibility
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Visibility")
;; file to store org visibility state
(defcustom org-visibility-state-file `,(expand-file-name "~/.org-visibility")
"File used to store org visibility state."
:type 'string
:group 'org-visibility)
;; list of directories and files to automatically persist and
;; restore visibility state
(defcustom org-visibility-paths `(,(file-truename "~/.emacs.d/init-emacs.org")
,(file-truename "~/dev")
,(file-truename "~/doc/bbs")
,(file-truename "~/org")
,(file-truename "~/web/org"))
"List of directories and files to automatically persist and restore visibility state."
:type 'list
:group 'org-visibility)
;; has buffer been modified since last visibility save
(defvar-local org-visibility-dirty
nil
"Non-nil if buffer has been modified since last visibility save.")
(defun buffer-file-checksum (&optional buffer)
"Return checksum for BUFFER file or nil if file does not exist."
(let* ((buffer (or buffer (current-buffer)))
(file-name (buffer-file-name buffer)))
(ignore-errors
(car (split-string
(if window-system-mac
(shell-command-to-string (concat "md5 -r " file-name))
(shell-command-to-string (concat "md5sum " file-name))))))))
(defun org-visibility-set (buffer visible-lines)
"Set visibility state for BUFFER to VISIBLE-LINES
and update `org-visibility-state-file' with new state."
(let ((data (and (file-exists-p org-visibility-state-file)
(ignore-errors
(with-temp-buffer
(insert-file-contents org-visibility-state-file)
(read (buffer-substring-no-properties (point-min) (point-max)))))))
(file-name (buffer-file-name buffer))
(checksum (buffer-file-checksum buffer)))
(when file-name
(setq data (delq (assoc file-name data) data)) ; remove previous value
(setq data (append (list (list file-name checksum visible-lines)) data)) ; add new value
(with-temp-file org-visibility-state-file
(insert (format "%S\n" data)))
(message "Set visibility state for %s" file-name))))
(defun org-visibility-get (buffer)
"Return visibility state for BUFFER if found in `org-visibility-state-file'."
(let ((data (and (file-exists-p org-visibility-state-file)
(ignore-errors
(with-temp-buffer
(insert-file-contents org-visibility-state-file)
(read (buffer-substring-no-properties (point-min) (point-max)))))))
(file-name (buffer-file-name buffer))
(checksum (buffer-file-checksum buffer)))
(when file-name
(let ((state (assoc file-name data)))
(when (string= (cadr state) checksum)
(message "Restored visibility state for %s" file-name)
(caddr state))))))
(defun org-visibility-save-internal (&optional buffer noerror force)
"Save visibility snapshot of org BUFFER."
(let ((buffer (or buffer (current-buffer)))
(file-name (buffer-file-name buffer))
(visible-lines '()))
(with-current-buffer buffer
(if (not (eq major-mode 'org-mode))
(unless noerror
(error "This function only works with `org-mode' files"))
(if (not file-name)
(unless noerror
(error "There is no file associated with this buffer: %S" buffer))
(when (or force org-visibility-dirty)
(save-mark-and-excursion
(goto-char (point-min))
(while (not (eobp))
(when (not (invisible-p (point)))
(push (point) visible-lines))
(forward-visible-line 1)))
(org-visibility-set buffer (nreverse visible-lines))
(setq org-visibility-dirty nil)))))))
(defun org-visibility-load-internal (&optional buffer noerror)
"Load visibility snapshot of org BUFFER."
(let ((buffer (or buffer (current-buffer))))
(with-current-buffer buffer
(if (not (eq major-mode 'org-mode))
(unless noerror
(error "This function only works with `org-mode' files"))
(if (not (buffer-file-name buffer))
(unless noerror
(error "There is no file associated with this buffer: %S" buffer))
(let ((visible-lines (org-visibility-get buffer)))
(save-mark-and-excursion
(outline-hide-sublevels 1)
(dolist (x visible-lines)
(ignore-errors
(goto-char x)
(when (invisible-p (point))
(forward-char -1)
(org-cycle)))))
(setq org-visibility-dirty nil)))))))
(defun org-visibility-check-buffer-file-path (buffer)
"Return whether BUFFER's file is in one of the paths in `org-visibility-paths'."
(let ((file (buffer-file-name buffer)))
(if file
(cl-do ((paths org-visibility-paths (cdr paths))
(match nil))
((or (null paths) match) match)
(let ((path (car paths))
(file (file-truename file)))
(when (>= (length file) (length path))
(let ((part (substring file 0 (length path))))
(when (string= part path)
(setq match t))))))
nil)))
(defun org-visibility-clean ()
"Remove any missing files from `org-visibility-state-file'."
(interactive)
(let ((data (and (file-exists-p org-visibility-state-file)
(ignore-errors
(with-temp-buffer
(insert-file-contents org-visibility-state-file)
(read (buffer-substring-no-properties (point-min) (point-max))))))))
(setq data (remove-if-not
(lambda (x) (file-exists-p (car x)))
data))
(with-temp-file org-visibility-state-file
(insert (format "%S\n" data)))
(message "Visibility state file has been cleaned")))
(defun org-visibility-save (&optional force)
"Hook function to save visibility state."
(interactive)
(when (org-visibility-check-buffer-file-path (current-buffer))
(org-visibility-save-internal (current-buffer) :noerror force)))
(add-hook 'after-save-hook #'org-visibility-save :append)
(add-hook 'kill-buffer-hook #'org-visibility-save :append)
(defun org-visibility-save-all-buffers (&optional force)
"Hook function to save visibility state for all buffers."
(interactive)
(dolist (buffer (buffer-list))
(when (org-visibility-check-buffer-file-path buffer)
(org-visibility-save-internal buffer :noerror force))))
(add-hook 'kill-emacs-hook #'org-visibility-save-all-buffers :append)
(defun org-visibility-load (&optional file)
"Hook function to load visibility state."
(interactive)
(let ((buffer (if file (get-file-buffer file) (current-buffer))))
(when (and buffer (org-visibility-check-buffer-file-path buffer))
(org-visibility-load-internal buffer :noerror))))
(add-hook 'org-mode-hook #'org-visibility-load :append)
(defun org-visibility-dirty ()
"Hook function to set visibility dirty flag."
(interactive)
(when (and (org-visibility-check-buffer-file-path (current-buffer))
(eq major-mode 'org-mode))
(setq org-visibility-dirty t)))
(add-hook 'first-change-hook #'org-visibility-dirty :append)
(defun org-visibility-dirty-org-cycle (state)
"Hook function to set visibility dirty flag when `org-cycle' is called."
(interactive)
(org-visibility-dirty))
(add-hook 'org-cycle-hook #'org-visibility-dirty-org-cycle :append)
(defun org-visibility-force-save ()
"Helper function to forcefully save visibility state."
(interactive)
(org-visibility-save :force))
;; key bindings
(bind-keys :map org-mode-map
("C-x C-v" . org-visibility-force-save)) ; defaults to `find-alternative-file'
;; Visibility:1 ends here
;; [[file:init-emacs.org::*org-bookmarks-guid][org-bookmarks-guid:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Bookmarks: org-bookmarks-guid
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Bookmarks: org-bookmarks-guid")
(defun org-bookmarks-guid ()
"Return a twelve character GUID."
(cl-labels
((random-char ()
(let ((num (random 62)))
(cond
((< num 10)
(byte-to-string (+ num 48)))
((< num 36)
(byte-to-string (+ num 55)))
(t
(byte-to-string (+ num 61)))))))
(cl-loop repeat 12
concat (random-char))))
;; org-bookmarks-guid:1 ends here
;; [[file:init-emacs.org::*org-bookmarks-timestamp][org-bookmarks-timestamp:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Bookmarks: org-bookmarks-timestamp
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Bookmarks: org-bookmarks-timestamp")
(defun org-bookmarks-timestamp ()
"Return time since the epoch in microseconds."
(floor (* (float-time (current-time)) 1000000)))
;; org-bookmarks-timestamp:1 ends here
;; [[file:init-emacs.org::*org-bookmarks-parse][org-bookmarks-parse:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Bookmarks: org-bookmarks-parse
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Bookmarks: org-bookmarks-parse")
(defun org-bookmarks-parse (file)
"Return a tree structure representing the org folders and
bookmarks found in FILE.
Example input:
* Org
* Folder 1
** Folder 2
*** Bookmark 1
URI1
*** Bookmark 2 [bm2]
URI2
** Folder 3
Example output:
((:type \"folder\" :title \"Folder 1\" :children
[(:type \"folder\" :title \"Folder 2\" :children
[(:type \"bookmark\" :title \"Bookmark 1\" :uri \"URI1\")
(:type \"bookmark\" :title \"Bookmark 2\" :uri \"URI2\" :keyword \"bm2\")])
(:type \"folder\" :title \"Folder 3\")]))
If the first headline is \"Org\", it is ignored."
(cl-labels
((parse (bm tree)
(cond
;; end of branch
((not bm)
nil)
;; bookmark
((and (stringp (car bm)) (stringp (cadr bm)))
(let* ((title (car x))
(uri (cadr x))
(keyword (if (string-match " \\[\\(.*\\)\\]$" title)
(match-string-no-properties 1 title)
nil))
(title (replace-regexp-in-string " \\[.*\\]$" "" title))
(entry (list :type "bookmark" :title title :uri uri)))
(when keyword
(setq entry (append entry (list :keyword keyword))))
entry))
;; nested folder
((stringp (car bm))
(let* ((title (car bm))
(entry (list :type "folder" :title title)))
(if (cdr bm)
(append entry (list :children (map 'vector (lambda (x)
(parse x tree))
(cdr bm))))
entry))))))
(let ((bm (org-get-data file)))
(map 'vector (lambda (x)
(parse x nil))
(if (string= (caadr bm) "Org") (cddr bm) (cdr bm))))))
;; org-bookmarks-parse:1 ends here
;; [[file:init-emacs.org::*org-bookmarks-export-to-json][org-bookmarks-export-to-json:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Bookmarks: org-bookmarks-export-to-json
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Bookmarks: org-bookmarks-export-to-json")
(defun org-bookmarks-export-to-json (org-file &optional json-file)
"Export from an Org Bookmarks file, ORG-FILE,
to a Mozilla/Firefox Bookmarks JSON file, JSON-FILE.
If JSON-FILE is non-nil, then output is returned."
(let* ((type-code-list '(("bookmark" . 1)
("folder" . 2)))
(type-value-list '(("bookmark" . "text/x-moz-place")
("folder" . "text/x-moz-place-container")))
(title-guid-list '(("Bookmarks Menu" . "menu________")
("Bookmarks Toolbar" . "toolbar_____")
("Other Bookmarks" . "unfiled_____")
("Mobile Bookmarks" . "mobile______")))
(title-root-list '(("Bookmarks Menu" . "bookmarksMenuFolder")
("Bookmarks Toolbar" . "toolbarFolder")
("Other Bookmarks" . "unfiledBookmarksFolder")
("Mobile Bookmarks" . "mobileFolder")))
(global-id 0)
(timestamp (org-bookmarks-timestamp)))
(cl-labels
((gen-id ()
(incf global-id))
(parse (bm tree index)
(let* ((type (plist-get bm :type))
(type-value (cdr (assoc type type-value-list)))
(type-code (cdr (assoc type type-code-list)))
(title (plist-get bm :title))
(uri (plist-get bm :uri))
(keyword (plist-get bm :keyword))
(children (plist-get bm :children))
(guid (org-bookmarks-guid))
(id (gen-id))
(root (cdr (assoc title title-root-list)))
(custom-guid (cdr (assoc title title-guid-list)))
(entry (list
:guid (or custom-guid guid)
:title title
:index index
:dateAdded timestamp
:lastModified timestamp
:id id
:typeCode type-code
:type type-value)))
(when uri
(setq entry (append entry (list :uri uri))))
(when keyword
(setq entry (append entry (list :keyword keyword))))
(when root
(setq entry (append entry (list :root root))))
(when children
(let ((idx -1))
(setq entry (append entry (list :children (map 'vector (lambda (x) (parse x tree (incf idx))) children))))))
(append tree entry))))
(let ((json-object-type 'plist)
(json-array-type 'vector)
(json-key-type 'string)
(bookmarks (org-bookmarks-parse org-file)))
(with-temp-buffer
(insert
(json-encode
(list :guid "root________"
:title ""
:index 0
:dateAdded timestamp
:lastModified timestamp
:id (gen-id)
:typeCode 2
:type (cdr (assoc "folder" type-value-list))
:root "placesRoot"
:children (map 'vector (lambda (x) (parse x nil 0)) bookmarks))))
(newline)
(if json-file
(write-region (point-min) (point-max) json-file)
(buffer-substring-no-properties (point-min) (point-max))))))))
;; org-bookmarks-export-to-json:1 ends here
;; [[file:init-emacs.org::*org-bookmarks-export-to-html][org-bookmarks-export-to-html:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Bookmarks: org-bookmarks-export-to-html
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Bookmarks: org-bookmarks-export-to-html")
(defun org-bookmarks-export-to-html (org-file &optional html-file)
"Export from an Org Bookmarks file to a Mozilla/Firefox Bookmarks HTML file."
"Export from an Org Bookmarks file, ORG-FILE,
to a Mozilla/Firefox Bookmarks HTML file, HTML-FILE.
If HTML-FILE is non-nil, then output is returned."
(let* ((type-code-list '(("bookmark" . 1)
("folder" . 2)))
(title-code-list '(("Bookmarks Toolbar" . "PERSONAL_TOOLBAR_FOLDER")
("Other Bookmarks" . "UNFILED_BOOKMARKS_FOLDER")))
(timestamp (number-to-string (truncate (org-bookmarks-timestamp) 1000000))))
(cl-labels
((indent (idt str)
(concat (spaces-string idt) str))
(parse (bm str idt)
(let* ((type (plist-get bm :type))
(type-code (cdr (assoc type type-code-list)))
(title (plist-get bm :title))
(title-code (cdr (assoc title title-code-list)))
(uri (url-encode-url (plist-get bm :uri)))
(keyword (plist-get bm :keyword))
(children (plist-get bm :children))
(entry (case type-code
(2 (concat
(indent idt "<DT><H3>")
" ADD_DATE=\"" timestamp "\""
" LAST_MODIFIED=\"" timestamp "\""
(if title-code (concat " " title-code "=\"true\"") "")
">" title "</H3>"))
(1 (concat
(indent idt "<DT>")
"<A HREF=\"" uri "\""
" ADD_DATE=\"" timestamp "\""
" LAST_MODIFIED=\"" timestamp "\""
(if keyword (concat " SHORTCUTURL=\"" keyword "\"") "")
">" title "</A>")))))
(when children
(setq entry (concat entry
(indent idt "<DL><p>\n")
(mapconcat (lambda (x) (parse x str (+ idt 4))) children "\n")
(indent idt "</DL>\n"))))
entry)))
(let ((bookmarks (org-bookmarks-parse org-file)))
(with-temp-buffer
(insert
(concat
"<!DOCTYPE NETSCAPE-Bookmark-file-1>
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=UTF-8\">
<TITLE>Bookmarks</TITLE>
<H1>Bookmarks Menu</H1>
<DL><p>\n"
(mapconcat (lambda (x) (parse x "" 4)) bookmarks "\n"))
"</DL>\n")
(if html-file
(write-region (point-min) (point-max) html-file)
(buffer-substring-no-properties (point-min) (point-max))))))))
;; org-bookmarks-export-to-html:1 ends here
;; [[file:init-emacs.org::*org-bookmarks-export-to-nyxt][org-bookmarks-export-to-nyxt:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Bookmarks: org-bookmarks-export-to-nyxt
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Bookmarks: org-bookmarks-export-to-nyxt")
(defun org-bookmarks-export-to-nyxt (org-file &optional nyxt-file)
"Export from an Org Bookmarks file, ORG-FILE,
to an NYXT Bookmarks Lisp file, NYXT-FILE.
If NYXT-FILE is non-nil, then output is returned."
(let ((timestamp (format-time-string "%FT%T.%6NZ"))
(title-root-list '(("Bookmarks Menu" . "bookmarksMenuFolder")
("Bookmarks Toolbar" . "toolbarFolder")
("Other Bookmarks" . "unfiledBookmarksFolder")
("Mobile Bookmarks" . "mobileFolder"))))
(cl-labels
((folder? (type)
(string= type "folder"))
(tags (name)
(split-string name " " :omit-nulls))
(parse (bm tags)
(let* ((type (plist-get bm :type))
(folder? (folder? type))
(title (plist-get bm :title))
(uri (plist-get bm :uri))
(keyword (plist-get bm :keyword))
(children (plist-get bm :children))
(root? (cdr (assoc title title-root-list)))
(tags tags))
(when (and folder? (not root?))
(setq tags (append tags (tags title))))
(when keyword
(setq tags (append tags (list keyword))))
(when (not folder?)
(insert
(format "%S\n" (list :url uri :title title :date timestamp :tags tags))))
(when children
(map 'vector (lambda (x) (parse x tags)) children)))))
(let ((bookmarks (org-bookmarks-parse org-file)))
(with-temp-buffer
(insert "(\n")
(map 'vector (lambda (x) (parse x '())) bookmarks)
(insert ")\n")
(if nyxt-file
(write-region (point-min) (point-max) nyxt-file)
(buffer-substring-no-properties (point-min) (point-max))))))))
;; org-bookmarks-export-to-nyxt:1 ends here
;; [[file:init-emacs.org::*Finances][Finances:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Finances
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Finances")
;; Finances:1 ends here
;; [[file:init-emacs.org::*export-taxes][export-taxes:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Finances: export-taxes
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Finances: export-taxes")
(defun export-taxes ()
"Export tax information found at current org subtree."
(interactive)
(let* ((title (concat
"Sherman Taxes "
(save-mark-and-excursion
(save-match-data
(goto-char (line-beginning-position))
(re-search-forward "^\*+ " (line-end-position))
(buffer-substring-no-properties (point) (line-end-position))))))
(target-buffer (generate-new-buffer-name (concat "*" title "*"))))
(org-cycle 8)
(org-copy-subtree)
(set-buffer (get-buffer-create target-buffer))
(org-mode)
(buffer-disable-undo)
(org-paste-subtree)
(goto-char (point-min))
(kill-region (line-beginning-position) (line-end-position))
(insert title)
(newline)
(insert "------------------")
(while (re-search-forward "^\*\\{3\\} " nil :noerror)
(kill-region (line-beginning-position) (point))
(insert "\n\n")
(capitalize-region (line-beginning-position) (line-end-position))
(goto-char (line-end-position)))
(goto-char (point-min))
(while (re-search-forward "^\*\\{5\\} " nil :noerror)
(kill-region (line-beginning-position) (point))
(insert "\n- ")
(capitalize-region (line-beginning-position) (line-end-position)))
(goto-char (point-min))
(while (re-search-forward "^\*\\{7\\} " nil :noerror)
(kill-region (line-beginning-position) (point))
(insert " - ")
(capitalize-region (line-beginning-position) (line-end-position)))
(goto-char (point-min))
(while (re-search-forward "^\|-" nil :noerror)
(goto-char (line-beginning-position))
(when (save-mark-and-excursion
(forward-line -1)
(not (looking-at "^$")))
(newline))
(goto-char (org-table-end)))
(goto-char (point-min))
(while (re-search-forward "^[ \t]*#\\+TBLFM:.*$" nil :noerror)
(kill-region (line-beginning-position) (1+ (point))))
(goto-char (point-min))
(switch-to-buffer target-buffer)))
;; export-taxes:1 ends here
;; [[file:init-emacs.org::*duluth-hotel-invoiced-expense][duluth-hotel-invoiced-expense:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Finances: duluth-hotel-invoiced-expense
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Finances: duluth-hotel-invoiced-expense")
(defun duluth-hotel-invoiced-expense (balance)
"Insert Duluth Hotel Invoiced Expense."
(interactive "*sTotal Balance: ")
(org-table-goto-column 5)
(org-table-blank-field)
(org-table-recalculate)
(org-table-goto-column 7)
(let* ((invoice (/ (round (* (- (string-to-number (org-table-get-field))
(string-to-number balance))
100)) 100.0)))
(org-table-goto-column 5)
(insert (format "%.2f" invoice))
(org-table-recalculate)))
;; duluth-hotel-invoiced-expense:1 ends here
;; [[file:init-emacs.org::*nwm-add-monthly-account-data][nwm-add-monthly-account-data:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Finances: nwm-add-monthly-account-data
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Finances: nwm-add-monthly-account-data")
(defun nwm-add-monthly-account-data (data)
"Add Northwestern Mutual monthly entries for all accounts found in DATA."
(interactive "*sNorthwestern Mutual Account Summary: ")
(cl-labels
((date-to-year-month (date)
(concat
(substring date 6 10)
(substring date 0 2))))
(let ((buffer (get-buffer "personal-encrypted.org.cpt"))
(tables '("NWM_A40_344433"
"NWM_A40_344458"
"NWM_A40_345190"
"NWM_B40_300756"
"NWM_B40_300798"))
date
balances)
(with-temp-buffer
(insert data)
(goto-char (point-min))
(re-search-forward "^Period Ending: ")
(setq date (date-to-year-month
(buffer-substring-no-properties (point) (line-end-position))))
(mapcar (lambda (x)
(re-search-forward "%\\([0-9,]*\.[0-9][0-9]\\)[0-9.]*%")
(push (replace-regexp-in-string "," "" (match-string 1)) balances))
tables))
(with-current-buffer buffer
(do ((tables tables (cdr tables))
(balances (nreverse balances) (cdr balances)))
((null tables))
(goto-char (point-min))
(re-search-forward (concat "^[ \t]*#\\+NAME: " (car tables) "$"))
(goto-char (org-table-end))
(forward-line -4)
(org-table-insert-row)
(org-table-goto-column 1)
(insert "#")
(org-table-goto-column 2)
(insert date)
(org-table-goto-column 4)
(insert (car balances))
(org-table-recalculate)
(re-search-forward (concat "^[ \t]*#\\+NAME: " (car tables) "_STATS$"))
(forward-line 1)
(org-table-recalculate)
(org-table-recalculate))))))
;; nwm-add-monthly-account-data:1 ends here
;; [[file:init-emacs.org::*Magic the Gathering][Magic the Gathering:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Magic the Gathering
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Magic the Gathering")
;; Magic the Gathering:1 ends here
;; [[file:init-emacs.org::*mtg-cards-owned-file-name][mtg-cards-owned-file-name:1]]
(defconst mtg-cards-owned-file-name (expand-file-name "~/org/magic-the-gathering-cards-owned.org"))
;; mtg-cards-owned-file-name:1 ends here
;; [[file:init-emacs.org::*mtg-card-list][mtg-card-list:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Magic the Gathering: mtg-card-list
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Magic the Gathering: mtg-card-list")
(defun mtg-card-list ()
"Create a list of Magic The Gathering cards in inventory."
(interactive)
(unless (string= (buffer-name) (file-name-nondirectory mtg-cards-owned-file-name))
(find-file mtg-cards-owned-file-name))
;; create a copy of the org buffer to work with
(let ((source-buffer (current-buffer))
(target-buffer (generate-new-buffer-name "*mtg*")))
(set-buffer (get-buffer-create target-buffer))
(buffer-disable-undo)
(insert-buffer-substring source-buffer)
(goto-char (point-min))
(search-forward "* mtg cards owned")
(goto-char (line-beginning-position))
(kill-region (point-min) (point))
(unless (search-forward "* mtg card sets" nil :noerror)
(goto-char (point-max)))
(goto-char (line-beginning-position))
(kill-region (point) (point-max))
(org-mode)
(goto-char (point-min))
(outline-show-subtree)
(while (re-search-forward "^| +|.*\n" nil :noerror)
(replace-match ""))
(goto-char (point-min))
(while (re-search-forward "| +Artist" nil :noerror)
(org-table-delete-column))
(goto-char (point-min))
(switch-to-buffer target-buffer)))
;; mtg-card-list:1 ends here
;; [[file:init-emacs.org::*mtg-deck-search][mtg-deck-search:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Magic the Gathering: mtg-deck-search
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Magic the Gathering: mtg-deck-search")
(defun mtg-deck-search ()
"Show cards owned from a deck list.
LIST must have one card per line with the number of cards
followed by the card name."
(interactive)
(let ((buffer (current-buffer))
cards
(ignored '("Plains" "Island" "Swamp" "Mountain" "Forest")))
(save-mark-and-excursion
(save-match-data
(goto-char (point-min))
(while (re-search-forward "^\s*\\([0-9]+\\)\s*\\(.*\\)\s*$" nil :noerror)
(let ((name (buffer-substring-no-properties (match-beginning 2) (match-end 2)))
(count (buffer-substring-no-properties (match-beginning 1) (match-end 1))))
(setq name (replace-regexp-in-string "\s*\\[.*\\]\s*" "" name))
(unless (member name ignored)
(push (list name count) cards))))))
(setq cards (sort cards (lambda (a b) (string< (car a) (car b)))))
;;(message "%S" cards)
(find-file mtg-cards-owned-file-name)
(occur (concat "\\(" (substring (apply #'concat (mapcar (lambda (x) (concat "\\|" (car x))) cards)) 2) "\\)"))
(switch-to-buffer buffer)))
;; mtg-deck-search:1 ends here
;; [[file:init-emacs.org::*mtg-set-to-table][mtg-set-to-table:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Magic the Gathering: mtg-set-to-table
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Magic the Gathering: mtg-set-to-table")
(defun mtg-set-to-table (&optional owned)
"Convert `http://gatherer.wizards.com/' set checklist list to table.
If OWNED is non-nil, add an Owned column to the table."
(interactive "P")
(goto-char (point-min))
(let ((source-buffer (current-buffer))
(target-buffer (generate-new-buffer-name "*mtg-set-table*")))
(set-buffer (get-buffer-create target-buffer))
(buffer-disable-undo)
(insert-buffer-substring source-buffer)
(goto-char (point-min))
(delete-non-matching-lines "<tr class=\"cardItem\">" (point-min) (point-max))
(goto-char (point-min))
(while (re-search-forward "</tr><tr" nil :noerror)
(replace-match "</tr>\n<tr"))
(goto-char (point-min))
(while (re-search-forward "<td[^>]*>" nil :noerror)
(replace-match "| "))
(goto-char (point-min))
(while (re-search-forward "</td>" nil :noerror)
(replace-match " "))
(goto-char (point-min))
(while (re-search-forward "^\s*<tr[^>]*>" nil :noerror)
(replace-match ""))
(goto-char (point-min))
(while (re-search-forward "</tr>" nil :noerror)
(replace-match "|"))
(goto-char (point-min))
(while (re-search-forward "<a[^>]*>" nil :noerror)
(replace-match ""))
(goto-char (point-min))
(while (re-search-forward "</a>" nil :noerror)
(replace-match ""))
(goto-char (point-min))
(goto-char (point-min))
(insert (concat "|-+-+-+-+-+-|"))
(newline)
(insert (concat "| # | Name | Artist | Color | Rarity | Set |"))
(newline)
(insert (concat "|-+-+-+-+-+-|"))
(newline)
(goto-char (point-max))
(insert (concat "|-+-+-+-+-+-|"))
(goto-char (point-min))
(org-mode)
(org-table-align)
(when owned
(org-table-insert-column)
(insert "Owned")
(org-table-align))
(switch-to-buffer target-buffer)))
;; mtg-set-to-table:1 ends here
;; [[file:init-emacs.org::*MechWarrior Online][MechWarrior Online:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: MechWarrior Online
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: MechWarrior Online")
;; MechWarrior Online:1 ends here
;; [[file:init-emacs.org::*mwo-export-mech][mwo-export-mech:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: MechWarrior Online: mwo-export-mech
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: MechWarrior Online: mwo-export-mech")
(defun mwo-export-mech ()
"Export mech found at current org subtree."
(interactive)
(let ((target-buffer (generate-new-buffer-name "*mwo-mech*")))
(org-cycle 8)
(org-copy-subtree)
(set-buffer (get-buffer-create target-buffer))
(buffer-disable-undo)
(org-paste-subtree)
(goto-char (point-min))
(while (re-search-forward "^\*+ " (line-end-position) :noerror)
(replace-match ""))
(while (re-search-forward "^\*+ " nil :noerror)
(kill-region (line-beginning-position) (point))
(newline)
(capitalize-region (line-beginning-position) (line-end-position))
(goto-char (line-end-position))
(newline))
(switch-to-buffer target-buffer)
(goto-char (point-min))))
;; mwo-export-mech:1 ends here
;; [[file:init-emacs.org::*Dungeons and Dragons Online][Dungeons and Dragons Online:1]]
;;------------------------------------------------------------------------------
;;; Org Mode: Dungeons and Dragons Online
;;------------------------------------------------------------------------------
(init-message 2 "Org Mode: Dungeons and Dragons Online")
;; Dungeons and Dragons Online:1 ends here
;; [[file:init-emacs.org::*ddo-get-item-info][ddo-get-item-info:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Dungeons and Dragons Online: ddo-get-item-info
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Dungeons and Dragons Online: ddo-get-item-info")
(defun ddo-get-item-info (&optional item)
"Look up ITEM in the DDO Wiki and return information about it."
(interactive "sDDO Item Name: ")
(save-current-buffer
(let* ((url (url-encode-url (concat "http://ddowiki.com/index.php?search=" item)))
(buffer (url-retrieve-synchronously url))
(enchantments ""))
(when buffer
(set-buffer buffer)
(goto-char (point-min))
(when (re-search-forward "Enchantments" nil :noerror)
(let ((start (point)))
(when (re-search-forward "</td>" nil :noerror)
(let ((end (point)))
(goto-char start)
(while (re-search-forward "<a .*>\\([^<]*\\)</a>" end :noerror)
(setq enchantments
(concat
enchantments
(if (zerop (length enchantments)) "" ", ")
(buffer-substring-no-properties (match-beginning 1) (match-end 1))))
(when (re-search-forward "</span>\\([^<]*\\)</li>" end :noerror)
(setq enchantments
(concat
enchantments
(buffer-substring-no-properties (match-beginning 1) (match-end 1))))))))))
(concat item " (" enchantments ")\n" url)))))
;; ddo-get-item-info:1 ends here
;; [[file:init-emacs.org::*ddo-fix-wiki-description][ddo-fix-wiki-description:1]]
;;------------------------------------------------------------------------------
;;;; Org Mode: Dungeons and Dragons Online: ddo-fix-wiki-description
;;------------------------------------------------------------------------------
(init-message 3 "Org Mode: Dungeons and Dragons Online: ddo-fix-wiki-description")
(defun ddo-fix-wiki-description ()
"Fix wiki description around point."
(interactive)
(goto-char (line-beginning-position))
(while (not (looking-at "\\*"))
(insert ", ")
(goto-char (line-beginning-position))
(delete-char -1)
(goto-char (line-beginning-position)))
(while (re-search-forward "Icon tooltip\.png" (line-end-position) :noerror)
(replace-match ""))
(goto-char (line-beginning-position))
(while (re-search-forward " +," (line-end-position) :noerror)
(replace-match ","))
(goto-char (line-beginning-position))
(while (re-search-forward ",," (line-end-position) :noerror)
(replace-match ","))
(goto-char (line-beginning-position))
(while (re-search-forward " +" (line-end-position) :noerror)
(replace-match " "))
(goto-char (line-beginning-position))
(while (re-search-forward " +$" (line-end-position) :noerror)
(replace-match ""))
(goto-char (line-end-position))
(insert ")"))
;; ddo-fix-wiki-description:1 ends here
;; [[file:init-emacs.org::*Org Website][Org Website:1]]
;;==============================================================================
;;; Org Website
;;==============================================================================
(init-message 1 "Org Website")
;; Org Website:1 ends here
;; [[file:init-emacs.org::*Configuration][Configuration:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Configuration
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Configuration")
;; Configuration:1 ends here
;; [[file:init-emacs.org::*Publish Configuration][Publish Configuration:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Configuration: Publish Configuration
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Configuration: Publish Configuration")
(use-package org
:commands (org-export-as
org-export-to-buffer
org-export-to-file)
:functions (org-export-collect-footnote-definitions
org-export-data
org-export-define-derived-backend
org-export-footnote-first-reference-p
org-export-get-footnote-number
org-export-get-previous-element
org-export-get-relative-level
org-website-convert-url-to-gopher-selector-hostname-port)
:config
(when (require 'ox nil :no-error)
;; add gopher link support (i.e. [[gopher:LINK]])
(defun org-link-gopher-export-link (link desc format)
"Create export version of LINK and DESC to FORMAT."
(let ((link (concat "gopher:" link)))
(cond
((eq format 'html)
(format "<a href=\"%s\">%s</a>" link desc))
((eq format 'latex)
(format "\\href{%s}{%s}" link desc))
((eq format 'gopher)
(format "1\t%s\t%s" desc (org-website-convert-url-to-gopher-selector-hostname-port link)))
(t
(format "[%s](%s)" desc link)))))
(org-link-set-parameters "gopher" :export #'org-link-gopher-export-link))
(require 'ox-publish nil :no-error)
(require 'ox-ascii nil :no-error)
(when (require 'ox-html nil :no-error)
(let* ((site-extension "org")
(shared-extension "css")
(statics-extension (concat "html\\|css\\|js\\|sh\\|"
"txt\\|rss\\|"
"ico\\|gif\\|png\\|jpg\\|"
"mp4\\|webm\\|"
"eot\\|ttf\\|woff\\|"
"pdf\\|odt\\|doc\\|docx\\|"
"tgz\\|zip\\|"
"xml\\|xsd\\|xsl"))
(assets-extension (concat "org\\|" statics-extension)))
;; website publishing instructions
(setq org-publish-project-alist
`(;; nullman site
("nullman" :components ("nullman-shared"
"nullman-assets"
"nullman-site"
"nullman-site-statics"
"nullman-site-gopher"
"rsync"))
("nullman-shared"
:base-directory "~/web/sites/shared"
:base-extension ,shared-extension
:publishing-directory "~/web/sites/nullman/site"
:publishing-function org-publish-attachment
:recursive t)
("nullman-assets"
:base-directory "~/web/sites/nullman/assets"
:base-extension ,assets-extension
:publishing-directory "~/web/sites/nullman/site"
:publishing-function org-publish-attachment
:recursive t)
("nullman-site"
:base-directory "~/web/sites/nullman/site"
:base-extension ,site-extension
:publishing-directory "~/public_html/sites/nullman"
:publishing-function org-website-html-publish-to-html
:recursive t)
("nullman-site-statics"
:base-directory "~/web/sites/nullman/site"
:base-extension ,statics-extension
:publishing-directory "~/public_html/sites/nullman"
:publishing-function org-publish-attachment
:recursive t)
("nullman-site-gopher"
:base-directory "~/web/sites/nullman/site"
:base-extension ,site-extension
:publishing-directory "~/public_gopher/sites/nullman"
:publishing-function org-website-gopher-publish-to-gopher
:recursive t)
;; nulldot site
("nulldot" :components ("nulldot-shared"
"nulldot-assets"
"nulldot-site"
"nulldot-site-statics"
;;"nulldot-site-rss"
"rsync"))
("nulldot-shared"
:base-directory "~/web/sites/shared"
:base-extension ,shared-extension
:publishing-directory "~/web/sites/nulldot/site"
:publishing-function org-publish-attachment
:recursive t)
("nulldot-assets"
:base-directory "~/web/sites/nulldot/assets"
:base-extension ,assets-extension
:publishing-directory "~/web/sites/nulldot/site"
:publishing-function org-publish-attachment
:recursive t)
("nulldot-site"
:base-directory "~/web/sites/nulldot/site"
:base-extension ,site-extension
:publishing-directory "~/public_html/sites/nulldot"
:publishing-function org-website-html-publish-to-html
:recursive t)
("nulldot-site-statics"
:base-directory "~/web/sites/nulldot/site"
:base-extension ,statics-extension
:publishing-directory "~/public_html/sites/nulldot"
:publishing-function org-publish-attachment
:recursive t)
;; nulldot-site-rss is no longer used as the rss feed is generated from a tangle block in nulldot.org
;; ("nulldot-site-rss"
;; :base-directory "~/web/sites/nulldot/site"
;; :base-extension ,site-extension
;; :rss-extension "rss"
;; :rss-feed-url "http://nulldot.net/"
;; :rss-image-url "http://nulldot.net/img/image.png"
;; :publishing-directory "~/public_html/sites/nulldot"
;; :publishing-function org-website-rss-publish-to-rss
;; :exclude "."
;; :include ("index.org"))
;; nullware site
("nullware" :components ("nullware-shared"
"nullware-assets"
"nullware-site"
"nullware-site-statics"
"rsync"))
("nullware-shared"
:base-directory "~/web/sites/shared"
:base-extension ,shared-extension
:publishing-directory "~/web/sites/nullware/site"
:publishing-function org-publish-attachment
:recursive t)
("nullware-assets"
:base-directory "~/web/sites/nullware/assets"
:base-extension ,assets-extension
:publishing-directory "~/web/sites/nullware/site"
:publishing-function org-publish-attachment
:recursive t)
("nullware-site"
:base-directory "~/web/sites/nullware/site"
:base-extension ,site-extension
:publishing-directory "~/public_html/sites/nullware"
:publishing-function org-website-html-publish-to-html
:recursive t)
("nullware-site-statics"
:base-directory "~/web/sites/nullware/site"
:base-extension ,statics-extension
:publishing-directory "~/public_html/sites/nullware"
:publishing-function org-publish-attachment
:recursive t)
;; kylesherman site
("kylesherman" :components ("kylesherman-shared"
"kylesherman-assets"
"kylesherman-site"
"kylesherman-site-statics"
"rsync"))
("kylesherman-shared"
:base-directory "~/web/sites/shared"
:base-extension ,shared-extension
:publishing-directory "~/web/sites/kylesherman/site"
:publishing-function org-publish-attachment
:recursive t)
("kylesherman-assets"
:base-directory "~/web/sites/kylesherman/assets"
:base-extension ,assets-extension
:publishing-directory "~/web/sites/kylesherman/site"
:publishing-function org-publish-attachment
:recursive t)
("kylesherman-site"
:base-directory "~/web/sites/kylesherman/site"
:base-extension ,site-extension
:publishing-directory "~/public_html/sites/kylesherman"
:publishing-function org-website-html-publish-to-html
:recursive t)
("kylesherman-site-statics"
:base-directory "~/web/sites/kylesherman/site"
:base-extension ,statics-extension
:publishing-directory "~/public_html/sites/kylesherman"
:publishing-function org-publish-attachment
:recursive t)
;; shermanwest site
("shermanwest" :components ("shermanwest-shared"
"shermanwest-assets"
"shermanwest-site"
"shermanwest-site-statics"
"rsync"))
("shermanwest-shared"
:base-directory "~/web/sites/shared"
:base-extension ,shared-extension
:publishing-directory "~/web/sites/shermanwest/site"
:publishing-function org-publish-attachment
:recursive t)
("shermanwest-assets"
:base-directory "~/web/sites/shermanwest/assets"
:base-extension ,assets-extension
:publishing-directory "~/web/sites/shermanwest/site"
:publishing-function org-publish-attachment
:recursive t)
("shermanwest-site"
:base-directory "~/web/sites/shermanwest/site"
:base-extension ,site-extension
:publishing-directory "~/public_html/sites/shermanwest"
:publishing-function org-website-html-publish-to-html
:recursive t)
("shermanwest-site-statics"
:base-directory "~/web/sites/shermanwest/site"
:base-extension ,statics-extension
:publishing-directory "~/public_html/sites/shermanwest"
:publishing-function org-publish-attachment
:recursive t)
;; rsync
("rsync"
:base-directory "~/web"
:base-extension "none"
:publishing-directory "~/public_html")
;;:completion-function org-website-rsync-to-localhost-morpheus)
))
;; links
(setq org-link-abbrev-alist
(append
;; inernal links
'(("about" . "http://nullman.net/about/")
("blog" . "%(org-website-blog-url)")
("emacs" . "http://nullman.net/emacs/")
("nulldot" . "http://nulldot.net/")
("nullman" . "http://nullman.net/")
("pet-peeves" . "http://nullman.net/rants/pet-peeves.html")
("powerhouse" . "http://powerhouse.nullware.com/")
("projects" . "http://nullman.net/projects/")
("rants" . "http://nullman.net/rants/")
("tutorials" . "http://nullman.net/tutorials/"))
;; external links
'(("cowiki" . "http://www.champions-online-wiki.com/wiki/")
("google" . "http://www.google.com/search?q=%h")
("urban" . "http://www.urbandictionary.com/define.php?term=")
("wiki" . "http://en.wikipedia.org/wiki/Special:Search?search=")
("word" . "http://en.wiktionary.org/wiki/")
("youtube" . "https://www.youtube.com/watch?v="))))
;; use h1 tags for top level headlines (instead of h2)
(setq org-html-toplevel-hlevel 1)
;; remove table attributes
(setq org-html-table-default-attributes nil)
;;(setq org-html-table-default-attributes '(:class "org-table"))
)))
;; Publish Configuration:1 ends here
;; [[file:init-emacs.org::*Menu Lists][Menu Lists:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Configuration: Menu Lists
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Configuration: Menu Lists")
;; standard menu list
(defconst org-website-menu-list
'((:home . (:name "Home" :title "Home Page" :url "http://nullman.net/"))
(:blog . (:name "Blog" :title "Personal Blog" :url "http://nulldot.net/"))
(:applications . (:name "Applications" :title "Nullware Applications" :url "http://nullware.com/"))
(:emacs . (:name "Emacs" :title "Emacs Customizations" :url "http://nullman.net/emacs/"))
(:projects . (:name "Projects" :title "Computer Programming Projects" :url "http://nullman.net/projects/"))
(:tutorials . (:name "Tutorials" :title "Computer Tutorials" :url "http://nullman.net/tutorials/"))
(:presentations . (:name "Presentations" :title "Presentations I've Given" :url "http://nullman.net/presentations/"))
(:interesting . (:name "Interesting" :title "Things of Interest" :url "http://nullman.net/interesting/"))
(:games . (:name "Games" :title "Computer Games" :url "http://nullman.net/games/"))
(:quotes . (:name "Quotes" :title "Collected Quotes" :url "http://nullman.net/quotes/"))
(:rants . (:name "Rants" :title "Random Ramblings and Rants" :url "http://nullman.net/rants/"))
(:social . (:name "Social" :title "Social Links" :url "http://nullman.net/social/"))
;;(:twitter . (:name "Twitter" :title "Nullman Twitter Feed" :url "http://nullman.net/social/twitter.html"))
(:photos . (:name "Photos" :title "Personal Photographs" :url "http://nullman.net/photos/"))
(:bookmarks . (:name "Bookmarks" :title "Personal Bookmarks" :url "http://nullman.net/bookmarks/"))
(:about . (:name "About" :title "About This Site and Its Author" :url "http://nullman.net/about/")))
"Website standard menu list.
Format: ((TAG . (:name NAME :title TITLE :url URL)) ... )")
;; shermanwest menu list
(defconst org-website-shermanwest-menu-list
'((:home . (:name "Home" :title "Home Page" :url "http://shermanwest.com/"))
(:pictures . (:name "Pictures" :title "Condo Pictures" :url "http://www.flickr.com/photos/nullman/sets/72157603365914146/show/"))
(:directions . (:name "Directions" :title "Sherman West Directions" :url "http://shermanwest.com/directions.html"))
(:restaurants . (:name "Restaurants" :title "San Diego Restaurants" :url "http://shermanwest.com/restaurants.html"))
(:bars . (:name "Bars" :title "San Diego Bars" :url "http://shermanwest.com/bars.html"))
(:attractions . (:name "Attractions" :title "San Diego Attractions" :url "http://shermanwest.com/attractions.html"))
(:shopping . (:name "Shopping" :title "San Diego Shopping" :url "http://shermanwest.com/shopping.html"))
(:rules . (:name "Rules" :title "House Rules" :url "http://shermanwest.com/rules.html"))
(:guestbook . (:name "Guestbook" :title "Guestbook" :url "http://shermanwest.com/guestbook.html")))
"Website Sherman West menu list.
Format: ((TAG . (:name NAME :title TITLE :url URL)) ... )")
;; gopher menu list
(defconst org-website-gopher-menu-list
'((:home . (:name "Home" :title "Home Page" :selector "/nullman/index.gopher"))
(:blog . (:name "Blog" :title "Personal Blog" :selector "/nulldot/index.gopher"))
(:applications . (:name "Applications" :title "Nullware Applications" :selector "/nullware/index.gopher"))
(:emacs . (:name "Emacs" :title "Emacs Customizations" :selector "/nullman/emacs/index.gopher"))
(:projects . (:name "Projects" :title "Computer Programming Projects" :selector "/nullman/projects/index.gopher"))
(:tutorials . (:name "Tutorials" :title "Computer Tutorials" :selector "/nullman/tutorials/index.gopher"))
(:presentations . (:name "Presentations" :title "Presentations I've Given" :selector "/nullman/presentations/index.gopher"))
(:interesting . (:name "Interesting" :title "Things of Interest" :selector "/nullman/interesting/index.gopher"))
(:games . (:name "Games" :title "Computer Games" :selector "/nullman/games/index.gopher"))
(:quotes . (:name "Quotes" :title "Collected Quotes" :selector "/nullman/quotes/index.gopher"))
(:rants . (:name "Rants" :title "Random Ramblings and Rants" :selector "/nullman/rants/index.gopher"))
(:social . (:name "Social" :title "Social Links" :selector "/nullman/social/index.gopher"))
;;(:twitter . (:name "Twitter" :title "Nullman Twitter Feed" :selector "/nullman/social/twitter.gopher"))
(:photos . (:name "Photos" :title "Personal Photographs" :selector "/nullman/photos/index.gopher"))
(:bookmarks . (:name "Bookmarks" :title "Personal Bookmarks" :selector "/nullman/bookmarks/index.gopher"))
(:about . (:name "About" :title "About This Site and Its Author" :selector "/nullman/about/index.gopher")))
"Website Gopher menu list.
Format: ((TAG . (:name NAME :title TITLE :selector SELECTOR)) ... )")
;; Menu Lists:1 ends here
;; [[file:init-emacs.org::*Gopher Configuration][Gopher Configuration:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Configuration: Gopher Configuration
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Configuration: Gopher Configuration")
;; gopher server port
(defconst gopher-port 70
"Port used by Gopher server.")
;; gopher max text width before word wrapping
(defconst gopher-text-width org-ascii-text-width
"Maximum width of Gopher text before word wrapping.")
;; gopher item types
;; INFO https://en.wikipedia.org/wiki/Gopher_(protocol)
(defconst gopher-type-text-file "0")
(defconst gopher-type-submenu "1")
(defconst gopher-type-binary-file "9")
(defconst gopher-type-gif-file "g")
(defconst gopher-type-image-file "i")
(defconst gopher-type-html-file "h")
(defconst gopher-type-sound-file "s")
;; Gopher Configuration:1 ends here
;; [[file:init-emacs.org::*Functions][Functions:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Functions
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Functions")
;; Functions:1 ends here
;; [[file:init-emacs.org::*Get Property List][Get Property List:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Get Property List
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Get Property List")
(defun org-website-get-property-list (info)
"Return an association list of org properties in INFO."
(org-element-map (plist-get info :parse-tree) 'keyword
(lambda (x)
(let ((key (intern (concat ":" (replace-regexp-in-string "_" "-" (downcase (org-element-property :key x)))))))
(cons key (org-element-property :value x))))))
;; Get Property List:1 ends here
;; [[file:init-emacs.org::*Get Property Element][Get Property Element:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Get Property Element
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Get Property Element")
(defun org-website-get-property-element (property-list element)
"Return ELEMENT from PROPERTY-LIST returned from `org-website-get-property-list', or empty string if element was not found."
(or (cdr (assoc element property-list)) ""))
;; Get Property Element:1 ends here
;; [[file:init-emacs.org::*Get URL][Get URL:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Get URL
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Get URL")
(defun org-website-get-url (property-list)
"Return target URL for current buffer being exported."
(concat
(org-website-get-property-element property-list :link-home)
(replace-regexp-in-string
"^.*/site/" ""
(replace-regexp-in-string "\.[^\.]*$" "" buffer-file-name))
".html"))
;; Get URL:1 ends here
;; [[file:init-emacs.org::*Blog URL][Blog URL:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Blog URL
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Blog URL")
(defun org-website-blog-url (name)
"Return URL of given blog NAME."
(let ((parts (split-string name ".")))
(concat
"http://nulldot.net/"
(nth 0 parts) "/"
(nth 1 parts) "/"
name ".html")))
;; Blog URL:1 ends here
;; [[file:init-emacs.org::*Is Blog Post][Is Blog Post:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Is Blog Post
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Is Blog Post")
(defun org-website-is-blog-post (property-list)
"Return non-nil if current page is a blog entry."
(zerop (length (replace-regexp-in-string
"^.*/[0-9]\\{4\\}.[0-9]\\{2\\}.[0-9]\\{2\\}.[0-9]\\{4\\}-.*$"
""
buffer-file-name))))
;; Is Blog Post:1 ends here
;; [[file:init-emacs.org::*Get Level][Get Level:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Get Level
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Get Level")
(defun org-website-get-level (property-list)
"Return level of current project file."
(- (length (split-string (org-website-get-url property-list) "/")) 3))
;; Get Level:1 ends here
;; [[file:init-emacs.org::*Format Headline][Format Headline:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Format Headline
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Format Headline")
(defun org-website-format-headline (headline &optional char col)
"Return HEADLINE surrounded by CHAR ending at COL length."
(let* ((char (or char ?=))
(col (or col org-ascii-text-width))
(text-width (- col 12))
;; if headline is too long, split it into multiple lines
(headline (if (> (length headline) text-width)
(let ((fill-column text-width))
(with-temp-buffer
(insert headline)
(fill-region (point-min) (point-max))
(buffer-string)))
headline)))
(mapconcat
(lambda (line)
(let ((str (concat (make-string 5 char) " " (upcase line) " " (make-string 5 char))))
(while (< (length str) col)
(setq str (concat str (string char))))
str))
(split-string headline "\n") "\n")))
;; Format Headline:1 ends here
;; [[file:init-emacs.org::*Get Gopher Selector Hostname Port][Get Gopher Selector Hostname Port:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Get Gopher Selector Hostname Port
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Get Gopher Selector Hostname Port")
(defun org-website-get-gopher-selector-hostname-port (selector)
"Return Gopher selector, hostname, and port from given SELECTOR."
(let* ((hostname "nullman.net")
(port (if (boundp 'gopher-port) gopher-port 70)))
(concat selector "\t" hostname "\t" (int-to-string port))))
;; Get Gopher Selector Hostname Port:1 ends here
;; [[file:init-emacs.org::*Convert URL to Gopher Selector Hostname Port][Convert URL to Gopher Selector Hostname Port:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Convert URL to Gopher Selector Hostname Port
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Convert URL to Gopher Selector Hostname Port")
(defun org-website-convert-url-to-gopher-selector-hostname-port (url)
"Return Gopher selector, hostname, and port from given URL."
(let* ((suffix (replace-regexp-in-string "^.*://" "" url))
(hostname (replace-regexp-in-string "/.*$" "" suffix))
(selector (replace-regexp-in-string "^.*?/" "/" suffix))
(port (if (boundp 'gopher-port) gopher-port 70)))
(concat selector "\t" hostname "\t" (int-to-string port))))
;; Convert URL to Gopher Selector Hostname Port:1 ends here
;; [[file:init-emacs.org::*Gopher Justify Lines][Gopher Justify Lines:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Functions: Gopher Justify Lines
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Functions: Gopher Justify Lines")
(defun org-website-gopher-justify-lines (str &optional indent width justify)
"Return STR after justifying all lines.
INDENT is the amount to indent the final text (defaults to 0).
WIDTH is an integer specifying maximum length of a line (defaults
to `gopher-text-width' or `org-ascii-text-width').
JUSTIFY determines the type of justification: `left', `right',
`full', `center', or `none' (defaults to `none')."
(with-temp-buffer
(let ((indent (or indent 0))
(fill-column (or width
(and (boundp 'gopher-text-width)
gopher-text-width)
org-ascii-text-width)))
(insert str)
;; replace all newlines with doubles to prevent their removal when justifying
(goto-char (point-min))
(while (search-forward "\n" nil :noerror)
(replace-match "\n\n"))
;; justify string
(fill-region (point-min) (point-max) justify :nosqueeze :to-eop)
;; replace double newlines with single to return to original format
(goto-char (point-min))
(while (search-forward "\n\n" nil :noerror)
(replace-match "\n"))
;; indent
(when (> indent 0)
(let ((spc (make-string indent ? )))
(goto-char (point-min))
(while (not (eobp))
(insert spc)
(goto-char (line-beginning-position))
(forward-line 1))))
;; return justified string
(buffer-string))))
;; Gopher Justify Lines:1 ends here
;; [[file:init-emacs.org::*Publish HTML][Publish HTML:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Publish HTML
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Publish HTML")
;; Publish HTML:1 ends here
;; [[file:init-emacs.org::*Derived Backend][Derived Backend:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Derived Backend
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Derived Backend")
;; create derived backend with customizations to html backend
(org-export-define-derived-backend 'org-website-html 'html
:translate-alist '((template . org-website-html-template)
(inner-template . org-website-html-inner-template)
(headline . org-website-html-headline)
(section . org-website-html-section)))
;; Derived Backend:1 ends here
;; [[file:init-emacs.org::*Publish to HTML][Publish to HTML:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Publish to HTML
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Publish to HTML")
(defun org-website-html-publish-to-html (plist file-name pub-dir)
"Publish a Website org file to HTML and return output file name.
FILE-NAME is the file name of the Org file to be published.
PLIST is the property list for the given project.
PUB-DIR is the publishing directory."
(org-publish-org-to 'org-website-html file-name
(concat "." (or (plist-get plist :html-extension)
org-html-extension
"html"))
plist pub-dir))
;; Publish to HTML:1 ends here
;; [[file:init-emacs.org::*Template][Template:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Template
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Template")
;; custom html template
;; INFO reference: http://orgmode.org/worg/dev/org-export-reference.html
(defun org-website-html-template (contents info)
"Return complete document string after HTML conversion.
CONTENTS is the transcoded contents string.
INFO is a plist holding export options."
(let* ((property-list (org-website-get-property-list info))
(site (org-website-get-property-element property-list :site))
(title (org-website-get-property-element property-list :title)))
;;(message "%S" info)
;;(message "%S" property-list)
(concat
;; "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
;; "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n"
"<!DOCTYPE html>\n"
(format "<html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"%s\">\n" (org-website-get-property-element property-list :language))
"\n"
"<head>\n"
"\n"
(format " <title>%s</title>\n" title)
"\n"
(format " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\" />\n" (or (coding-system-get org-html-coding-system 'mime-charset) "utf-8"))
" <meta name=\"viewport\" content=\"width=device-width, initial-scale=1\" />\n"
(format " <meta name=\"author\" content=\"%s\" />\n" (org-website-get-property-element property-list :author))
(format " <meta name=\"keywords\" content=\"%s\" />\n" (org-website-get-property-element property-list :keywords))
(format " <meta name=\"description\" content=\"%s\" />\n" (org-website-get-property-element property-list :description))
" <meta name=\"generator\" content=\"org-mode\" />\n"
" <meta name=\"robots\" content=\"all\" />\n"
" <meta name=\"google-site-verification\" content=\"" (org-website-get-property-element property-list :google-site-verification) "\" />\n"
"\n"
" <link rel=\"alternate\" type=\"application/rss+xml\" title=\"RSS Feed\" href=\"http://nulldot.net/index.rss\" />\n"
" <link rel=\"author\" href=\"http://nullman.net/about.html\" />\n"
" <link rel=\"home\" href=\"/\" />\n"
(cond
((and (string= site "kylesherman") (string= title "Resume"))
" <link rel=\"stylesheet\" type=\"text/css\" media=\"all\" href=\"/styles/resume.css\" />\n")
(t
" <link rel=\"stylesheet\" type=\"text/css\" media=\"all\" href=\"/styles/default.css\" />\n"))
" <link rel=\"stylesheet\" type=\"text/css\" media=\"print\" href=\"/styles/print.css\" />\n"
"\n"
" <!-- Google Analytics -->\n"
" <script><!--\n"
" var _gaq = _gaq || [];\n"
" _gaq.push(['_setAccount', '" (org-website-get-property-element property-list :google_analytics) "']);\n"
" _gaq.push(['_trackPageview']);\n"
" (function() {\n"
" var ga = document.createElement('script'); ga.async = true;\n"
" ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';\n"
" var s = document.getElementsByTagName('script')[0];\n"
" s.parentNode.insertBefore(ga, s);\n"
" })();\n"
" // --></script>\n"
"\n"
(concat
(org-element-normalize-string (plist-get info :html-head))
(org-element-normalize-string (plist-get info :html-head-extra)))
"\n"
"</head>\n"
"\n"
"<body>\n"
"\n"
" <div id=\"container\">\n"
"\n"
;; header
(cond
((and (string= site "kylesherman") (string= title "Resume"))
"")
(t
(concat
" <!-- header start -->\n"
"\n"
" <div id=\"header\">\n"
" <h1 class=\"title\">\n"
(format " <span>%s</span>\n" title)
" </h1>\n"
" </div>\n"
"\n"
" <!-- header end -->\n"
"\n")))
;; left menu
(if (> (length (org-website-get-property-element property-list :menu)) 0)
(concat
" <!-- menu start -->\n"
"\n"
" <div id=\"menu\">\n"
"\n"
(mapconcat
(lambda (x)
(let* ((plist (cdr x))
(name (plist-get plist :name))
(title (plist-get plist :title))
(url (plist-get plist :url))
(current (string= (org-website-get-property-element property-list :menu) name)))
(concat " <div class=\"" (if current "menu-item-current" "menu-item") "\">\n"
" <a title=\"" title "\" href=\"" url "\">" name "</a>\n"
" </div>\n")))
(if (string= site "shermanwest")
org-website-shermanwest-menu-list
org-website-menu-list)
"")
"\n"
" <!-- search start -->\n"
"\n"
" <div class=\"search\">\n"
" <form method=\"get\" action=\"http://www.google.com/search\">\n"
" <fieldset>\n"
" <input type=\"hidden\" name=\"q\" value=\"site:http://nullman.net/ OR site:http://nulldot.net/ OR site:http://nullware.com/\" />\n"
" <input type=\"hidden\" name=\"hl\" value=\"en\" />\n"
" <input type=\"text\" name=\"q\" maxlength=\"2048\" value=\"\" title=\"Search\" style=\"width: 5.5em\" />\n"
" <input type=\"image\" name=\"btnG\" src=\"/img/search.png\" alt=\"Search\" style=\"height: 100%; vertical-align: middle\" />\n"
" </fieldset>\n"
" </form>\n"
" </div>\n"
"\n"
" <!-- search end -->\n"
"\n"
" </div>\n"
"\n"
" <!-- menu end -->\n"
"\n")
"")
;; main content
(cond
((string= site "nulldot")
(org-website-html-blog-contents-template contents info property-list))
((string= site "kylesherman")
(concat
" <!-- content start -->\n"
"\n"
(if (string= title "Resume")
contents
(concat
" <div id=\"content-generic\">\n"
"\n"
contents
"\n"
" </div>\n"))
"\n"
" <!-- content end -->\n"
"\n"))
(t
(concat
" <!-- content start -->\n"
"\n"
" <div id=\"content\">\n"
"\n"
contents
"\n"
" </div>\n"
"\n"
" <!-- content end -->\n"
"\n")))
;; footer
(cond
((string= site "kylesherman")
"")
(t
(concat
" <!-- footer start -->\n"
"\n"
" <div id=\"footer\">\n"
"\n"
" <div class=\"validator\">\n"
" <a title=\"Check the validity of this page using W3C's unified validator\"\n"
(format " href=\"http://validator.w3.org/unicorn/check?ucn_task=conformance&ucn_uri=%s\">unicorn</a>\n" (org-website-get-property-element property-list :link-home))
" </div>\n"
"\n"
" <div class=\"validator\">\n"
" <a title=\"Check the validity of this page's XHTML\"\n"
" href=\"http://validator.w3.org/check?uri=referer\">xhtml</a>\n"
" </div>\n"
"\n"
" <div class=\"validator\">\n"
" <a title=\"Check the validity of this page's CSS\"\n"
" href=\"http://jigsaw.w3.org/css-validator/check/referer\">css</a>\n"
" </div>\n"
"\n"
" <div class=\"validator\">\n"
" <a title=\"Check the performance this page\"\n"
(format " href=\"https://developers.google.com/speed/pagespeed/insights/?url=%s\">pagespeed</a>\n" (org-website-get-url property-list))
" </div>\n"
"\n"
" <!--\n"
" <div class=\"validator\">\n"
" <a title=\"Check the accessibility of this page according to U.S. Section 508\"\n"
(format " href=\"http://www.contentquality.com/mynewtester/cynthia.exe?Url1=%s\">508</a>\n" (org-website-get-property-element property-list :link-home))
" </div>\n"
" -->\n"
"\n"
" <div class=\"license\">\n"
" <span>Last Modified: " (org-website-get-property-element property-list :last-modified) "<br />\n"
" " (org-website-get-property-element property-list :copyright) "<br />\n"
" <span class=\"license\">Creative Commons\n"
" <a title=\"View details of the license of this site\"\n"
" href=\"http://creativecommons.org/licenses/by-nc-sa/3.0/\">\n"
" Attribution-NonCommercial-ShareAlike\n"
" </a> license</span></span>\n"
" </div>\n"
"\n"
" </div>\n"
"\n"
" <!-- footer end -->\n"
"\n")))
" </div>\n"
"\n"
"</body>\n"
"\n"
"</html>\n")))
;; Template:1 ends here
;; [[file:init-emacs.org::*Blog Contents Template][Blog Contents Template:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Blog Contents Template
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Blog Contents Template")
;; custom blog contents html template
;; INFO reference: http://orgmode.org/worg/dev/org-export-reference.html
(defun org-website-html-blog-contents-template (contents info property-list)
"Return blog contents string after HTML conversion.
CONTENTS is the transcoded contents string.
INFO is a plist holding export options.
PROPERTY-LIST is the list of org properties found in INFO."
;; if the POSTED property exists and level is 2, then assume current file is a blog post
(let ((post (org-website-is-blog-post property-list))
(site-url (org-website-get-property-element property-list :link-home)))
(concat
;; menu-index (right blog menu)
(with-temp-buffer
(insert-file-contents "~/web/sites/nulldot/site/menu-index.html-nopub")
(goto-char (point-min))
(while (re-search-forward "^" nil :noerror)
(replace-match " "))
(buffer-string))
"\n"
" <!-- content-index start -->\n"
"\n"
" <div id=\"content-index\">\n"
"\n"
(if post
(concat
;; posted date
" <div class=\"timestamp\">"
(substring (org-website-get-property-element property-list :posted) 0 10)
"</div>\n"
;; description and link headline
(concat
" <h2><a href=\"" (org-website-get-url property-list) "\">"
(org-website-get-property-element property-list :description)
"</a></h2>\n"))
"")
contents
(if post
(concat
"\n"
;; tags
" <div class=\"tags\">Tags: " (org-website-get-property-element property-list :tags) "</div>\n"
"\n"
;; ;; disqus comments
;; " <!-- comments start -->\n"
;; "\n"
;; " <div id=\"comments\">\n"
;; "\n"
;; " <div id=\"disqus_thread\"></div>\n"
;; "\n"
;; " <script><!--\n"
;; " var disqus_config = function () {\n"
;; " this.page.url = \"" (org-website-get-url property-list) "\";\n"
;; " this.page.identifier = \"" (org-website-get-property-element property-list :uuid) "\";\n"
;; " };\n"
;; " (function() {\n"
;; " var d = document, s = d.createElement('script');\n"
;; " s.src = '//nulldot.disqus.com/embed.js';\n"
;; " s.setAttribute('data-timestamp', +new Date());\n"
;; " (d.head || d.body).appendChild(s);\n"
;; " })();\n"
;; " // --></script>\n"
;; "\n"
;; " <noscript>Please enable JavaScript to view the <a href=\"https://disqus.com/?ref_noscript\">comments powered by Disqus.</a></noscript>\n"
;; "\n"
;; " </div>\n"
;; "\n"
;; " <!-- comments end -->\n"
)
"")
"\n"
" </div>\n"
"\n"
" <!-- content-index end -->\n"
"\n")))
;; Blog Contents Template:1 ends here
;; [[file:init-emacs.org::*Inner Template][Inner Template:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Inner Template
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Inner Template")
;; custom html inner template
(defun org-website-html-inner-template (contents info)
"Return body of document string after HTML conversion.
CONTENTS is the transcoded contents string.
INFO is a plist holding export options."
(require 'ox-html)
(concat
;; table of contents
(let ((depth (plist-get info :with-toc)))
(when depth
(org-html-toc depth info)))
;; document contents
contents
;; footnotes section
(org-website-html-footnote-section info)))
;; Inner Template:1 ends here
;; [[file:init-emacs.org::*Headline][Headline:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Headline
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Headline")
;; custom html headline
(defun org-website-html-headline (headline contents info)
"Transcode a HEADLINE element from Org to HTML.
CONTENTS holds the contents of the headline.
INFO is a plist holding contextual information."
(let ((level (+ (org-export-get-relative-level headline info)
(1- (or (plist-get info :html-toplevel-hlevel) 1))))
(text (org-export-data (org-element-property :title headline) info))
(contents (or contents "")))
(concat
(format "\n<h%d>%s</h%d>\n" level text level)
contents)))
;; Headline:1 ends here
;; [[file:init-emacs.org::*Section][Section:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Section
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Section")
;; custom html section
(defun org-website-html-section (section contents info)
"Transcode a SECTION element from Org to HTML.
CONTENTS holds the contents of the section.
INFO is a plist holding contextual information."
(or contents ""))
;; Section:1 ends here
;; [[file:init-emacs.org::*Footnote Reference][Footnote Reference:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Footnote Reference
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Footnote Reference")
(defun org-website-html-footnote-reference (footnote-reference _contents info)
"Transcode a FOOTNOTE-REFERENCE element from Org to HTML.
CONTENTS is nil.
INFO is a plist holding contextual information."
(require 'ox-html)
(concat
;; insert separator between two footnotes in a row
(let ((prev (org-export-get-previous-element footnote-reference info)))
(when (eq (org-element-type prev) 'footnote-reference)
(plist-get info :html-footnote-separator)))
(let* ((n (org-export-get-footnote-number footnote-reference info))
(id (format "fnr.%d%s"
n
(if (org-export-footnote-first-reference-p
footnote-reference info)
""
".100"))))
(format
(plist-get info :html-footnote-format)
(org-html--anchor
id n (format " class=\"footnote-reference\" href=\"#fn.%d\"" n) info)))))
;; Footnote Reference:1 ends here
;; [[file:init-emacs.org::*Footnote Section][Footnote Section:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish HTML: Footnote Section
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish HTML: Footnote Section")
;; custom html footnote section
(defun org-website-html-footnote-section (info)
"Format the footnote section.
INFO is a plist used as a communication channel."
(let* ((fn-alist (org-export-collect-footnote-definitions info))
(fn-alist
(cl-loop for (n type raw) in fn-alist
collect (cons n (if (eq (org-element-type raw) 'org-data)
(org-trim (org-export-data raw info))
(format "<p>%s</p>" (org-trim (org-export-data raw info))))))))
(when fn-alist
(format
"<div class=\"footnotes\">\n%s</div>"
(mapconcat
(lambda (fn)
(let ((n (car fn))
(def (cdr fn)))
(format
"<div class=\"footnote\">\n%s\n%s\n</div>\n"
(format
org-html-footnote-format
(org-html--anchor
(format "fn.%s" n)
n
(format " class=\"footnote-number\" href=\"#fnr.%s\"" n)
info))
def)))
fn-alist "\n")))))
;; Footnote Section:1 ends here
;; [[file:init-emacs.org::*Publish RSS][Publish RSS:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Publish RSS
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Publish RSS")
;; Publish RSS:1 ends here
;; [[file:init-emacs.org::*Derived Backend][Derived Backend:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish RSS: Derived Backend
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish RSS: Derived Backend")
;; create derived backend with customizations to html backend
(org-export-define-derived-backend 'org-website-rss 'html
:translate-alist '((template . org-website-rss-template)
(inner-template . org-website-rss-inner-template)))
;; Derived Backend:1 ends here
;; [[file:init-emacs.org::*Publish to RSS][Publish to RSS:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish RSS: Publish to RSS
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish RSS: Publish to RSS")
(defun org-website-rss-publish-to-rss (plist file-name pub-dir)
"Publish a Website org file to RSS and return output file name.
FILE-NAME is the file name of the Org file to be published.
PLIST is the property list for the given project.
PUB-DIR is the publishing directory."
(org-publish-org-to 'org-website-rss file-name ".rss" plist pub-dir))
;; Publish to RSS:1 ends here
;; [[file:init-emacs.org::*Template][Template:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish RSS: Template
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish RSS: Template")
;; custom rss template
;; INFO reference: http://orgmode.org/worg/dev/org-export-reference.html
(defun org-website-rss-template (contents info)
"Return complete document string after RSS conversion.
CONTENTS is the transcoded contents string.
INFO is a plist holding export options."
(let* ((property-list (org-website-get-property-list info))
(link-home (org-website-get-property-element property-list :link-home))
(title (org-website-get-property-element property-list :title)))
;;(message "%S" info)
;;(message "%S" property-list)
(concat
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
"<rdf:RDF xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"\n"
" xmlns=\"http://purl.org/rss/1.0/\"\n"
" xmlns:slash=\"http://purl.org/rss/1.0/modules/slash/\"\n"
" xmlns:taxo=\"http://purl.org/rss/1.0/modules/taxonomy/\"\n"
" xmlns:dc=\"http://purl.org/dc/elements/1.1/\"\n"
" xmlns:syn=\"http://purl.org/rss/1.0/modules/syndication/\"\n"
" xmlns:admin=\"http://webns.net/mvcb/\"\n"
" xmlns:feedburner=\"http://rssnamespace.org/feedburner/ext/1.0\">\n\n"
" <channel rdf:about=\"" link-home "\">\n"
" <title>" title "</title>\n"
" <link>" link-home "</link>\n"
" <description>" (org-website-get-property-element property-list :description) "</description>\n"
" <dc:language>en-us</dc:language>\n"
" <dc:rights>" (org-website-get-property-element property-list :copyright) "</dc:rights>\n"
" <dc:date>" (format-time-string "%FT%TZ" nil t) "</dc:date>\n"
" <dc:publisher>" (org-website-get-property-element property-list :author) "</dc:publisher>\n"
" <dc:creator>" (org-website-get-property-element property-list :author) "</dc:creator>\n"
" <dc:subject>Software Engineering</dc:subject>\n"
" <syn:updatePeriod>daily</syn:updatePeriod>\n"
" <syn:updateFrequency>1</syn:updateFrequency>\n"
" <syn:updateBase>2007-06-04T00:00:00Z</syn:updateBase>\n"
" <items>\n"
" <rdf:Seq>\n"
;; (mapconcat
;; (lambda (x)
;; (let ((file (substring (car x) 1))
;; (date (cadr x))
;; (desc (caddr x)))
;; (concat " <rdf:li rdf:resource=\"" link-home file ".html\" />")))
;; indexes "\n")
" </rdf:Seq>\n"
" </items>\n"
" <image rdf:resource=\"" link-home "img/image.jpg\" />\n"
" </channel>\n\n"
" <image rdf:about=\"" link-home "img/image.jpg\">\n"
" <title>" title "</title>\n"
" <url>" link-home "img/image.jpg</url>\n"
" <link>" link-home "</link>\n"
" </image>\n"
contents
"\n"
" <textinput rdf:about=\"" link-home "search.html\">\n"
" <title>Search " title "</title>\n"
" <description>Search " title " entries</description>\n"
" <name>query</name>\n"
" <link>" link-home "search.html</link>\n"
" </textinput>\n\n"
"</rdf:RDF>\n")))
;; Template:1 ends here
;; [[file:init-emacs.org::*Inner Template][Inner Template:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish RSS: Inner Template
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish RSS: Inner Template")
;; custom rss inner template
(defun org-website-rss-inner-template (contents info)
"Return body of document string after RSS conversion.
CONTENTS is the transcoded contents string.
INFO is a plist holding export options."
(let ((property-list (org-website-get-property-list info)))
(concat
;; table of contents
;; (let ((depth (plist-get info :with-toc)))
;; (when depth (org-html-toc depth info)))
;; document contents
"\n"
" <item rdf:about=\"" (org-website-get-url property-list) "\">\n"
" <title>" (org-website-get-property-element property-list :description) "</title>\n"
" <link>" (org-website-get-url property-list) "</link>\n"
" <description>\n"
" <![CDATA[\n"
contents
" ]]>\n"
" </description>\n"
" </item>\n"
;; footnotes section
(org-website-html-footnote-section info))))
;; Inner Template:1 ends here
;; [[file:init-emacs.org::*Publish Gopher][Publish Gopher:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Publish Gopher
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Publish Gopher")
;; Publish Gopher:1 ends here
;; [[file:init-emacs.org::*Derived Backend][Derived Backend:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish Gopher: Derived Backend
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish Gopher: Derived Backend")
;; create derived backend with customizations to ascii backend
(org-export-define-derived-backend 'gopher 'ascii
;;:options-alist '((:ascii-text-width nil nil gopher-text-width))
:translate-alist '((template . org-website-gopher-template)
(inner-template . org-website-gopher-inner-template)
;;(inner-template . org-ascii-inner-template)
(headline . org-website-gopher-headline)
(section . org-website-gopher-section)))
;;(link . org-website-gopher-link)))
;; Derived Backend:1 ends here
;; [[file:init-emacs.org::*Publish to Gopher][Publish to Gopher:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish Gopher: Publish to Gopher
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish Gopher: Publish to Gopher")
(defun org-website-gopher-publish-to-gopher (plist file-name pub-dir)
"Publish a Website org file to Gopher and return output file name.
FILE-NAME is the file name of the Org file to be published.
PLIST is the property list for the given project.
PUB-DIR is the publishing directory."
(org-publish-org-to 'gopher file-name ".gopher" plist pub-dir))
;; Publish to Gopher:1 ends here
;; [[file:init-emacs.org::*Template][Template:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish Gopher: Template
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish Gopher: Template")
;; custom gopher template
;; INFO reference: http://orgmode.org/worg/dev/org-export-reference.html
(defun org-website-gopher-template (contents info)
"Return complete document string after Gopher conversion.
CONTENTS is the transcoded contents string.
INFO is a plist holding export options."
(let* ((property-list (org-website-get-property-list info))
(site (org-website-get-property-element property-list :site))
(title (org-website-get-property-element property-list :title)))
;;(message "%S" info)
;;(message "%S" property-list)
(concat
(format "%s\n\n" (org-website-format-headline title))
;; menu (only display on home page)
(if (string= (downcase title) "nullman")
(concat
(format "%s\n\n" (org-website-format-headline "menu"))
(mapconcat
(lambda (x)
(let* ((plist (cdr x))
(name (plist-get plist :name))
(title (plist-get plist :title))
(selector (plist-get plist :selector)))
(format "%s\t%s\t%s\n" gopher-type-submenu title (org-website-get-gopher-selector-hostname-port selector))))
(if (string= site "shermanwest")
org-website-shermanwest-menu-list
org-website-menu-list)
"")
"\n")
"")
;; main content
(cond
((string= site "nulldot")
(org-website-gopher-blog-contents-template contents info property-list))
(t
(concat contents "\n")))
;; footer
(cond
((string= site "kylesherman")
"")
(t
(concat
(format "%s\n\n" (make-string gopher-text-width ?=))
(format "Last Modified: %s\n" (org-website-get-property-element property-list :last-modified))
(format "%s\n" (org-website-get-property-element property-list :copyright))
(format "%s\t%s\t%s\t%s\n"
gopher-type-html-file
"Creative Commons Attribution-NonCommercial-ShareAlike license"
"http://creativecommons.org/licenses/by-nc-sa/3.0/"
gopher-port))))
)))
;; Template:1 ends here
;; [[file:init-emacs.org::*Inner Template][Inner Template:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish Gopher: Inner Template
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish Gopher: Inner Template")
;; custom gopher inner template
(defun org-website-gopher-inner-template (contents info)
"Return body of document string after Gopher conversion.
CONTENTS is the transcoded contents string.
INFO is a plist holding export options."
(require 'ox-ascii)
(concat
;; ;; table of contents
;; (let ((depth (plist-get info :with-toc)))
;; (when depth
;; (org-ascii--build-toc info depth)))
;; document contents
(replace-regexp-in-string "^ " "" contents) ; remove indentation
;; footnotes section
(org-website-gopher-footnote-section info)))
;; Inner Template:1 ends here
;; [[file:init-emacs.org::*Headline][Headline:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish Gopher: Headline
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish Gopher: Headline")
;; custom gopher headline
(defun org-website-gopher-headline (headline contents info)
"Transcode a HEADLINE element from Org to Gopher.
CONTENTS holds the contents of the headline.
INFO is a plist holding contextual information."
(let ((level (+ (org-export-get-relative-level headline info)
(1- (or (plist-get info :gopher-toplevel-hlevel) 1))))
(text (org-export-data (org-element-property :title headline) info))
(contents (or contents "")))
(concat
(format "\n%s\n" (if (< level 3)
(org-website-format-headline text ?= gopher-text-width)
(org-website-format-headline text ?- gopher-text-width)))
contents)))
;; Headline:1 ends here
;; [[file:init-emacs.org::*Section][Section:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish Gopher: Section
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish Gopher: Section")
;; custom gopher section
(defun org-website-gopher-section (section contents info)
"Transcode a SECTION element from Org to Gopher.
CONTENTS holds the contents of the section.
INFO is a plist holding contextual information."
(or contents ""))
;; Section:1 ends here
;; [[file:init-emacs.org::*Footnote Reference][Footnote Reference:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish Gopher: Footnote Reference
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish Gopher: Footnote Reference")
(defun org-website-gopher-footnote-reference (footnote-reference _contents info)
"Transcode a FOOTNOTE-REFERENCE element from Org to Gopher.
CONTENTS is nil.
INFO is a plist holding contextual information."
(require 'ox-ascii)
(concat
;; insert separator between two footnotes in a row
(let ((prev (org-export-get-previous-element footnote-reference info)))
(when (eq (org-element-type prev) 'footnote-reference)
(plist-get info :ascii-footnote-separator)))
(let ((n (org-export-get-footnote-number footnote-reference info)))
(format
(plist-get info :ascii-footnote-format)
(format "%d" n)))))
;; Footnote Reference:1 ends here
;; [[file:init-emacs.org::*Footnote Section][Footnote Section:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Publish Gopher: Footnote Section
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Publish Gopher: Footnote Section")
;; custom gopher footnote section
(defun org-website-gopher-footnote-section (info)
"Format the footnote section.
INFO is a plist used as a communication channel."
(let* ((fn-alist (org-export-collect-footnote-definitions info))
(fn-alist
(cl-loop for (n type raw) in fn-alist
collect (cons n (if (eq (org-element-type raw) 'org-data)
(org-trim (org-export-data raw info))
(format "%s" (org-trim (org-export-data raw info))))))))
(when fn-alist
(format
"%s"
(mapconcat
(lambda (fn)
(let ((n (car fn))
(def (cdr fn)))
(format
"%s\n%s\n"
(format
org-ascii-footnote-format
(format "%s" n))
def)))
fn-alist "\n")))))
;; Footnote Section:1 ends here
;; [[file:init-emacs.org::*Helper Functions][Helper Functions:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Helper Functions
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Helper Functions")
;; Helper Functions:1 ends here
;; [[file:init-emacs.org::*Publish][Publish:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Helper Functions: Publish
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Helper Functions: Publish")
(defun org-website-publish (&optional project force)
"Publish org-website projects.
If PROJECT is non-nil, only publish that project.
If FORCE is non-nil, force publish all files in project."
(interactive)
(let ((files (directory-files "~/web/org/" nil "\.org\\'")))
(when (member "styles.org" files)
(setq files (append "styles.org" (remove "styles.org" files))))
(dolist (file files)
(let ((site (file-name-sans-extension file)))
(when (or (not project)
(string= project site))
;; publish site
(org-publish site force))))))
(defun org-website-publish-async (&optional project force)
"Asynchronous version of `org-website-publish'."
(interactive)
(eval
`(async-spinner
(lambda ()
(load "~/web/bin/init-emacs-website.el")
(org-website-publish ,project ,force))
(lambda (result)
(message "Website publish finished")))))
;; Publish:1 ends here
;; [[file:init-emacs.org::*Tangle Publish][Tangle Publish:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Helper Functions: Tangle Publish
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Helper Functions: Tangle Publish")
(defun org-website-tangle-publish (&optional project force)
"Tangle and publish org-website projects.
If PROJECT is non-nil, only tangle/publish that project.
If FORCE is non-nil, force publish all files in project."
(interactive)
(let ((files (directory-files "~/web/org/" nil "\.org\\'"))
(org-html-htmlize-output-type 'font))
(when (member "styles.org" files)
(setq files (append "styles.org" (remove "styles.org" files))))
(dolist (file files)
(let ((site (file-name-sans-extension file)))
(when (or (not project)
(string= project site))
;; tangle site file
(org-babel-tangle-file (concat "~/web/org/" file))
;; publish site
(org-publish site force))))))
(defun org-website-tangle-publish-async (&optional project force)
"Asynchronous version of `org-website-tangle-publish'."
(interactive)
(eval
`(async-spinner
(lambda ()
(load "~/web/bin/init-emacs-website.el")
(org-website-tangle-publish ,project ,force))
(lambda (result)
(message "Website tangle/publish finished")))))
;; Tangle Publish:1 ends here
;; [[file:init-emacs.org::*+Tangle Publish Asynchronously+][+Tangle Publish Asynchronously+:1]]
;; ;;------------------------------------------------------------------------------
;; ;;;; Org Website: Helper Functions: Tangle Publish Asynchronously
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "Org Website: Helper Functions: Tangle Publish Asynchronously")
;; (defun org-website-tangle-publish-async (&optional project force)
;; "Tangle and publish org-website projects asynchronously.
;; \nIf PROJECT is non-nil, only tangle/publish that project.
;; If FORCE is non-nil, force publish all files in project."
;; (interactive)
;; (message (concat "~/web/bin/website-tangle-publish"
;; (if project (concat " --site " project) "")
;; (if force " --force" "")))
;; ;; (let ((args (cl-remove-if #'null
;; ;; (append
;; ;; (when project (append '("--site") (list project)))
;; ;; (when force '("--force"))))))
;; (eval
;; `(async-spinner
;; (lambda ()
;; (shell-command
;; (concat "~/web/bin/website-tangle-publish"
;; (if ,project (concat " --site " ,project) "")
;; (if ,force " --force" ""))))
;; (lambda (result)
;; (message "Website tangle/publish finished")))))
;; ;; (eval `(start-process
;; ;; "org-website-tangle-publish-async-process-name"
;; ;; "*org-website-tangle-publish-async*"
;; ;; "~/web/bin/website-tangle-publish"
;; ;; ,@args)))))
;; +Tangle Publish Asynchronously+:1 ends here
;; [[file:init-emacs.org::*Blog Post Create][Blog Post Create:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Helper Functions: Blog Post Create
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Helper Functions: Blog Post Create")
(defun org-website-blog-post-create (&optional title)
"Create empty blog post entry with TITLE.
If TITLE is nil, caller is prompted for one."
(interactive "sTitle: ")
(save-match-data
(setq title (titleize title))
(find-file "~/web/org/nulldot.org")
(goto-char (point-min))
(re-search-forward "^\*\*\* Blog Posts$")
(org-forward-heading-same-level 1 t)
(forward-line -1)
(newline)
(let* ((ts (current-time))
(time (format-time-string "%Y.%m.%d.%H%M" ts))
(name (concat time "-" (org-generate-custom-id-from-title title)))
(path (format-time-string "%Y/%m" ts))
(file (concat "~/web/sites/nulldot/site/" path "/" name ".org"))
(posted (format-time-string "%Y-%m-%d %H:%M" ts)))
(insert
(concat
"******* " time " " title "\n"
" :PROPERTIES:\n"
" :CUSTOM_ID: site-blog-posts-" time "\n"
" :END:\n"
"\n"
"#+NAME: blog-" time "\n"
"#+BEGIN_SRC org :tangle " file "\n"
" <<level-2>>\n"
" ,#+TITLE: " title "\n"
" ,#+DESCRIPTION: \n"
" ,#+POSTED: " posted "\n"
" ,#+LAST_MODIFIED: " posted "\n"
" ,#+UUID: " (uuid) "\n"
" ,#+TAGS: \n"
"\n"
" ,#+ATTR_HTML: :class blog-img :title " title "\n"
" [[][<<site-url>>/" path "/img/]]\n"
"\n"
"\n"
"\n"
" ,#+BEGIN_QUOTE\n"
" ,#+END_QUOTE\n"
"#+END_SRC\n"))
(forward-line -14)
(goto-char (line-end-position)))))
;; Blog Post Create:1 ends here
;; [[file:init-emacs.org::*Blog Post Update Posted][Blog Post Update Posted:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Helper Functions: Blog Post Update Posted
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Helper Functions: Blog Post Update Posted")
(defun org-website-blog-post-update-posted (&optional date)
"Update posted time of current blog post entry.
Set blog timestamp to `current-time' or DATE, if non-nil."
(interactive)
(when (string= (expand-file-name "~/web/org/nulldot.org") buffer-file-name)
(save-mark-and-excursion
(save-match-data
(let* ((case-fold-search t)
(start (progn (org-previous-visible-heading 1) (point)))
(end (progn (org-next-visible-heading 1) (point)))
(title (progn (goto-char start) (re-search-forward "#\\+TITLE: \\(.*\\)" end) (match-string 1)))
(ts (if date (date-to-time date) (current-time)))
(time (format-time-string "%Y.%m.%d.%H%M" ts))
(name (concat time "-" (org-generate-custom-id-from-title title)))
(path (format-time-string "%Y/%m" ts))
(file (concat "~/web/sites/nulldot/site/" path "/" name ".org"))
(posted (format-time-string "%Y-%m-%d %H:%M" ts)))
(goto-char start)
;; heading
(re-search-forward "^\*+ \\(.*\\)" (line-end-position))
(replace-match (concat time " " title) nil nil nil 1)
;; custom_id
(re-search-forward "^[ \t]*:CUSTOM_ID: site-blog-posts-\\(.*\\)" end)
(replace-match time nil nil nil 1)
;; name
(re-search-forward "^[ \t]*#\\+NAME: blog-\\(.*\\)" end)
(replace-match time nil nil nil 1)
;; file
(re-search-forward "^[ \t]*#\\+BEGIN_SRC org :tangle \\(.*\\)" end)
(let ((old-file (match-string 1)))
(when (file-exists-p old-file)
(delete-file old-file)))
(replace-match file nil nil nil 1)
;; posted
(re-search-forward "^[ \t]*#\\+POSTED: \\(.*\\)" end)
(replace-match posted nil nil nil 1)
;; last_modified
(re-search-forward "^[ \t]*#\\+LAST_MODIFIED: \\(.*\\)" end)
(replace-match posted nil nil nil 1))))))
;; Blog Post Update Posted:1 ends here
;; [[file:init-emacs.org::*Unflatten][Unflatten:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Helper Functions: Unflatten
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Helper Functions: Unflatten")
(defun unflatten (xs &optional fn-value fn-level)
"Unflatten a list XS into a tree, e.g. (1 2 3 1) => (1 (2 (3)) 1).
FN-VALUE specifies how to extract the values from each element,
which are included in the output tree, FN-LEVEL tells how to
extract the level of each element. By default these are the
`identity' function so it will work on a list of numbers."
(let* ((level 1)
(tree (cons nil nil))
(start tree)
(stack nil)
(fn-value (or fn-value #'identity))
(fn-level (or fn-level #'identity)))
(dolist (x xs)
(let ((x-value (funcall fn-value x))
(x-level (funcall fn-level x)))
(cond
((> x-level level)
(setcdr tree (cons (cons x-value nil) nil))
(setq tree (cdr tree))
(push tree stack)
(setq tree (car tree))
(setq level x-level))
((= x-level level)
(setcdr tree (cons x-value nil))
(setq tree (cdr tree)))
((< x-level level)
(while (< x-level level)
(setq tree (pop stack))
(setq level (- level 1)))
(setcdr tree (cons x-value nil))
(setq tree (cdr tree))
(setq level x-level)))))
(cdr start)))
;; Unflatten:1 ends here
;; [[file:init-emacs.org::*Generate Website Emacs Initialization File][Generate Website Emacs Initialization File:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Generate Website Emacs Initialization File
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Generate Website Emacs Initialization File")
(defun org-website-generate-website-emacs-initialization-file ()
"Generate minimal version of init-emacs.el called
init-emacs-website.el to be used with batch commands."
(save-mark-and-excursion
(save-match-data
(let ((source-file (expand-file-name "init-emacs.el" emacs-home-dir))
(target-file (expand-file-name "init-emacs-website.el" "~/web/bin"))
(sections (append '(;;";;; Package Manager: Quelpa"
";;; Package Manager: Straight"
";; set emacs home directory"
";; do not make backup files"
";;;; Org Mode: Functions: org-get-data"
";;;; Org Mode: Babel: Setup"
";;;; Org Mode: Babel: Tangle Update Timestamps"
";;;; Org Mode: Babel: Tangle Case-Sensitive"
";;;; Functions: Emacs Functions: delete-line"
";;; Modules: htmlize"
";;; Modules: w3m")
(let ((start (progn
(goto-char (point-min))
(re-search-forward "^[ \t]*:CUSTOM_ID: org-website$")))
(end (re-search-forward "^[ \t]*:CUSTOM_ID: org-website-generate-website-emacs-initialization-file$"))
list)
(goto-char start)
(while (re-search-forward "^[ \t]*\\(;;;; .*\\)$" end :noerror)
(push (match-string-no-properties 1) list))
(nreverse list))))
(prefix (concat "(require 'cl-macs)\n"
"(require 'subr-x)\n"
"(require 'org)\n"
"(require 'ox)\n")))
(org-copy-tangled-sections source-file target-file sections prefix)))))
(defun after-save-hook--generate-init-emacs-website-elisp-file ()
"Hook to generate init-emacs-website.el file on save."
(when (and buffer-file-name
(string= (file-truename buffer-file-name) init-emacs-true-file-name))
(org-website-generate-website-emacs-initialization-file)))
(add-hook 'after-save-hook #'after-save-hook--generate-init-emacs-website-elisp-file :append)
;; Generate Website Emacs Initialization File:1 ends here
;; [[file:init-emacs.org::*Remote Synchronization][Remote Synchronization:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Remote Synchronization
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Remote Synchronization")
;; Remote Synchronization:1 ends here
;; [[file:init-emacs.org::*Rsync to Morpheus][Rsync to Morpheus:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Remote Synchronization: Rsync to Morpheus
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Remote Synchronization: Rsync to Morpheus")
(defun org-website-rsync-to-morpheus (&optional property-list)
"Synchronize published site with morpheus server."
(interactive)
(shell-command (concat "rsync -rlptx --delete --force"
" --exclude=\".git*\""
" \"${HOME}/public_html/\""
" \"morpheus:${HOME}/public_html/\""))
(shell-command (concat "rsync -rlptx --delete --force"
" --exclude=\".git*\""
" \"${HOME}/public_gopher/\""
" \"morpheus:${HOME}/public_gopher/\""))
(shell-command (concat "rsync -rlptx --delete --force"
" --exclude=\".git*\""
" \"${HOME}/public_gemini/\""
" \"morpheus:${HOME}/public_gemini/\"")))
(defun org-website-rsync-to-morpheus-async (&optional property-list)
"Asynchronous version of `org-website-rsync-to-morpheus'."
(interactive)
(eval
`(async-spinner
(lambda ()
(fset 'org-website-rsync-to-morpheus ,(symbol-function 'org-website-rsync-to-morpheus))
(org-website-rsync-to-morpheus ,property-list))
(lambda (result)
(message "Website rsync to morpheus finished")))))
;; Rsync to Morpheus:1 ends here
;; [[file:init-emacs.org::*Rsync to DigitalOcean][Rsync to DigitalOcean:1]]
;;------------------------------------------------------------------------------
;;;; Org Website: Remote Synchronization: Rsync to DigitalOcean
;;------------------------------------------------------------------------------
(init-message 3 "Org Website: Remote Synchronization: Rsync to DigitalOcean")
(defun org-website-rsync-to-digitalocean (&optional application force)
"Synchronize published site with digitalocean server.
Normally, applications are not synced. If APPLICATION is
non-nil, sync it instead. Supported applications:
\"powerhouse\"
\"bloodmoon\"
If FORCE is non-nil, do not prompt before synchronizing
applicaitons."
(interactive)
(let ((digitalocean "159.203.165.79"))
(if application
(when (or force
(yes-or-no-p (format "Website rsync %s to DigitalOcean" application)))
(shell-command
(concat "rsync -rlptx --delete --force"
" --exclude=\".git*\""
" --rsh=\"ssh -l kyle\""
" \"${HOME}/public_html/sites/nullware/" application "/\""
" \"" digitalocean ":/home/kyle/public_html/sites/nullware/" application "/\"")))
(progn
(shell-command
(concat "rsync -rlptx --delete --force"
" --exclude=\".git*\""
" --exclude=\"nullware/powerhouse/*\""
" --exclude=\"nullware/bloodmoon/*\""
" --rsh=\"ssh -l kyle\""
" \"${HOME}/public_html/sites/\""
" \"" digitalocean ":/home/kyle/public_html/sites/\""))
(shell-command
(concat "rsync -rlptx --delete --force"
" --exclude=\".git*\""
" --rsh=\"ssh -l kyle\""
" \"${HOME}/public_gopher/\""
" \"" digitalocean ":/home/kyle/public_gopher/\""))
(shell-command
(concat "rsync -rlptx --delete --force"
" --exclude=\".git*\""
" --rsh=\"ssh -l kyle\""
" \"${HOME}/public_gemini/\""
" \"" digitalocean ":/home/kyle/public_gemini/\""))))))
(defun org-website-rsync-to-digitalocean-async (&optional application force)
"Asynchronous version of `org-website-rsync-to-digitalocean'."
(interactive)
(when (or (not application)
force
(yes-or-no-p (format "Website rsync %s to DigitalOcean" application)))
(eval
`(async-spinner
(lambda ()
(fset 'org-website-rsync-to-digitalocean ,(symbol-function 'org-website-rsync-to-digitalocean))
(org-website-rsync-to-digitalocean ,application ,force))
(lambda (result)
(message "Website rsync to DigitalOcean finished"))))))
;; Rsync to DigitalOcean:1 ends here
;; [[file:init-emacs.org::*Deployment][Deployment:1]]
;;------------------------------------------------------------------------------
;;; Org Website: Deployment
;;------------------------------------------------------------------------------
(init-message 2 "Org Website: Deployment")
;; Deployment:1 ends here
;; [[file:init-emacs.org::*Functions][Functions:1]]
;;==============================================================================
;;; Functions
;;==============================================================================
(init-message 1 "Functions")
;; Functions:1 ends here
;; [[file:init-emacs.org::*Initialization Functions][Initialization Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Initialization Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Initialization Functions")
;; Initialization Functions:1 ends here
;; [[file:init-emacs.org::*require-if-available][require-if-available:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Initialization Functions: require-if-available
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Initialization Functions: require-if-available")
;; prevent load errors if a required package does not exist
(defun require-if-available (&rest args)
"Require symbols and load library strings.
Fails quietly if some are not available."
(let (lib)
(condition-case nil
(mapc (lambda (e)
(setq lib e)
(cond
((stringp e) (load-library e))
((symbolp e) (require e))))
args)
('file-error
(progn (message "Could not load extension: %s" lib) nil)))))
;; require-if-available:1 ends here
;; [[file:init-emacs.org::*load-file-if-available][load-file-if-available:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Initialization Functions: load-file-if-available
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Initialization Functions: load-file-if-available")
(defun load-file-if-available (file)
"Load emacs lisp file, if it exists.
Fails quietly if file does not exist."
(when (file-exists-p file)
(load-file file)))
;; load-file-if-available:1 ends here
;; [[file:init-emacs.org::*compile-file-if-needed][compile-file-if-needed:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Initialization Functions: compile-file-if-needed
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Initialization Functions: compile-file-if-needed")
(defun compile-file-if-needed-process-file (file)
"Byte-compile expanded FILE name."
(let* ((file (expand-file-name file))
(file-comp (concat file "c")))
(when (or
(not (file-exists-p file-comp))
(file-newer-than-file-p file file-comp))
(byte-compile-file file))))
(defun compile-file-if-needed (file)
"Byte-compile emacs lisp FILE if needed."
;; add .el if needed
(unless (and (> (length file) 3)
(string= (substring file -3) ".el"))
(setq file (concat file ".el")))
;; find file
(if (file-exists-p file)
(compile-file-if-needed-process-file file)
(dolist (path load-path)
(let ((file (concat path "/" file)))
(when (file-exists-p file)
(compile-file-if-needed-process-file file)))))
(when (get-buffer "*Compile-Log*")
;;(kill-buffer "*Compile-Log*")
(delete-other-windows)))
;; compile-file-if-needed:1 ends here
;; [[file:init-emacs.org::*with-eval-after-load][with-eval-after-load:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Initialization Functions: with-eval-after-load
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Initialization Functions: with-eval-after-load")
(unless (fboundp 'with-eval-after-load)
(defmacro with-eval-after-load (file &rest body)
`(eval-after-load ,file
`(funcall (function ,(lambda () ,@body))))))
;; with-eval-after-load:1 ends here
;; [[file:init-emacs.org::*eval-after-load-with-byte-compile][eval-after-load-with-byte-compile:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Initialization Functions: eval-after-load-with-byte-compile
;;
;; Byte compile the body. If the feature is not available, ignore warnings.
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Initialization Functions: eval-after-load-with-byte-compile")
;; byte compiled `eval-after-load'
(defmacro eval-after-load-with-byte-compile (file &rest body)
"After FILE is loaded, evaluate BODY.
BODY is byte compiled.
FILE may be a named feature or a file name, see `eval-after-load'
for details."
(declare (indent 1) (debug t))
`(,(if (or (not byte-compile-current-file)
(if (symbolp file)
(require file nil :no-error)
(load file :no-message :no-error)))
'progn
(message "eval-after-load-with-byte-compile: cannot find %s" file)
'with-no-warnings)
(with-eval-after-load ',file ,@body)))
;; eval-after-load-with-byte-compile:1 ends here
;; [[file:init-emacs.org::*safe-load][safe-load:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Initialization Functions: safe-load
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Initialization Functions: safe-load")
(defvar safe-load-error-list ""
"List of files that reported errors when loaded with `safe-load'.")
(defun safe-load (file &optional noerror nomessage nosuffix)
"Load FILE safely.
If an error occurs when loading, report it and add FILE to
`safe-load-error-list'."
(interactive "f")
(condition-case nil
(load file noerror nomessage nosuffix)
('error
(setq safe-load-error-list (concat safe-load-error-list " " file))
(message "Error loading %s" file)
;;(sleep-for 1)
nil)))
(defun safe-load-check ()
"Check for any previous `safe-load' loading errors."
(interactive)
(unless (string= safe-load-error-list "")
(message "Error loading: %s" safe-load-error-list)))
(defun safe-load-compile (file &optional noerror nomessage nosuffix)
"Calls `compile-file-if-needed' followed by `safe-load'."
(interactive "f")
(compile-file-if-needed file)
(safe-load file noerror nomessage nosuffix))
;; safe-load:1 ends here
;; [[file:init-emacs.org::*save-mark-and-excursion][save-mark-and-excursion:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Initialization Functions: save-mark-and-excursion
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Initialization Functions: save-mark-and-excursion")
(unless (fboundp 'save-mark-and-excursion)
(defun save-mark-and-excursion--save ()
(cons
(let ((mark (mark-marker)))
(and mark (marker-position mark) (copy-marker mark)))
mark-active))
(defun save-mark-and-excursion--restore (saved-mark-info)
(let ((saved-mark (car saved-mark-info))
(omark (marker-position (mark-marker)))
(nmark nil)
(saved-mark-active (cdr saved-mark-info)))
;; mark marker
(if (null saved-mark)
(set-marker (mark-marker) nil)
(setf nmark (marker-position saved-mark))
(set-marker (mark-marker) nmark)
(set-marker saved-mark nil))
;; mark active
(let ((cur-mark-active mark-active))
(setf mark-active saved-mark-active)
;; if mark is active now, and either was not active or was at a
;; different place, run the activate hook
(if saved-mark-active
(unless (eq omark nmark)
(run-hooks 'activate-mark-hook))
;; if mark has ceased to be active, run deactivate hook
(when cur-mark-active
(run-hooks 'deactivate-mark-hook))))))
(defmacro save-mark-and-excursion (&rest body)
"Like `save-excursion', but also save and restore the mark state.
This macro does what `save-excursion' did before Emacs 25.1."
(let ((saved-marker-sym (make-symbol "saved-marker")))
`(let ((,saved-marker-sym (save-mark-and-excursion--save)))
(unwind-protect
(save-mark-and-excursion ,@body)
(save-mark-and-excursion--restore ,saved-marker-sym))))))
;; save-mark-and-excursion:1 ends here
;; [[file:init-emacs.org::*Advice Functions][Advice Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Advice Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Advice Functions")
;; Advice Functions:1 ends here
;; [[file:init-emacs.org::*Compile Goto Error Org][Compile Goto Error Org:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Advice Functions: Compile Goto Error Org
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Advice Functions: Compile Goto Error Org")
(defun compile-goto-error--org (&optional event)
"Open compilation bugs in org file for errors in tangled elisp code."
(when (eq major-mode 'emacs-lisp-mode)
(ignore-errors (org-babel-tangle-jump-to-org))))
(defun compilation-mode-hook--compile-goto-error ()
"Hook to advise `compile-goto-error'."
(advice-add 'compile-goto-error :after #'compile-goto-error--org))
(add-hook 'compilation-mode-hook #'compilation-mode-hook--compile-goto-error)
;; Compile Goto Error Org:1 ends here
;; [[file:init-emacs.org::*General Functions][General Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: General Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: General Functions")
;; General Functions:1 ends here
;; [[file:init-emacs.org::*list-to-string][list-to-string:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: list-to-string
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: list-to-string")
(defun list-to-string (list &optional delimiter)
"Return concatenated characters in LIST using optional DELIMITER."
(let ((delimiter (or delimiter "")))
(mapconcat 'string list delimiter)))
;; list-to-string:1 ends here
;; [[file:init-emacs.org::*string-to-list][string-to-list:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: string-to-list
;;------------------------------------------------------------------------------
;;
;; There are multiple ways to convert a string to a list.
;;
;; You can use `split-string' to return a list of strings:
;;
;; (split-string STRING "" t)
;;
;; You can use loop to return a list of characters:
;;
;; (cl-loop for x across STRING collect x)
;;
;; You can also use append to return a list of characters:
;;
;; (append STRING nil)
(init-message 3 "Functions: General Functions: string-to-list")
(defun string-to-list (string)
"Return list of characters in STRING."
(cl-loop for x across string collect x))
;; string-to-list:1 ends here
;; [[file:init-emacs.org::*join-strings][join-strings:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: join-strings
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: join-strings")
(defun join-strings (list &optional delim)
"Convert LIST of strings into a single string.
Use optional DELIM as a delimiter."
(if delim
(cl-reduce (lambda (x y) (concat x delim y)) list)
(cl-reduce (lambda (x y) (concat x y)) list)))
;; join-strings:1 ends here
;; [[file:init-emacs.org::*file-to-string][file-to-string:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: file-to-string
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: file-to-string")
(defun file-to-string (file)
"Return the contents of FILE as a string."
(if (file-exists-p file)
(with-temp-buffer
(insert-file-contents file)
(buffer-string))
nil))
;; file-to-string:1 ends here
;; [[file:init-emacs.org::*safe-substring][safe-substring:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: safe-substring
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: safe-substring")
(defun safe-substring (string from &optional to)
"Calls the `substring' function safely.
No errors will be returned for out of range values of FROM and
TO. Instead an empty string is returned."
(let* ((len (length string))
(to (or to len)))
(when (< from 0)
(setq from (+ len from)))
(when (< to 0)
(setq to (+ len to)))
(if (or (< from 0) (> from len)
(< to 0) (> to len)
(< to from))
""
(substring string from to))))
;; safe-substring:1 ends here
;; [[file:init-emacs.org::*for-each][for-each:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: for-each
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: for-each")
(defun for-each (fn list)
"Call FN for each element in list LIST."
(when list
(funcall fn (car list))
(for-each fn (cdr list))))
;; for-each:1 ends here
;; [[file:init-emacs.org::*is-single][is-single:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: is-single
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: is-single")
(defun is-single (list)
"Return true if LIST is a list of one element."
(and (consp list) (null (cdr list))))
;; is-single:1 ends here
;; [[file:init-emacs.org::*append-element][append-element:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: append-element
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: append-element")
(defun append-element (list elm)
"Append ELM to end of list LIST."
(append list (list elm)))
;; append-element:1 ends here
;; [[file:init-emacs.org::*map-integer][map-integer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: map-integer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: map-integer")
(defun map-integer (fn n)
"Call function FN once for every number from 0 to N-1."
(let ((acc nil))
(dotimes (i n)
(push (funcall fn i) acc))
(nreverse acc)))
;; map-integer:1 ends here
;; [[file:init-emacs.org::*filter][filter:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: filter
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: filter")
(defun filter (fn list)
"Call function FN for each element in list LIST and return the non-nil results."
(let (acc)
(dolist (x list (nreverse acc))
(let ((val (funcall fn x)))
(when val (push val acc))))))
;; filter:1 ends here
;; [[file:init-emacs.org::*most][most:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: most
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: most")
(defun most (fn list)
"Call function FN for each element in LIST and return the highest score.
The function FN must return a number as a score for a given element.
The element with the highest result is returned with its score."
(if (null list)
(list nil nil)
(let* ((wins (car list))
(max (funcall fn wins)))
(dolist (x (cdr list))
(let ((score (funcall fn x)))
(when (> score max)
(setq wins x
max score))))
(list wins max))))
;; most:1 ends here
;; [[file:init-emacs.org::*queue][queue:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: queue
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: queue")
(defun make-queue ()
"Return FIFO (first-in first-out) queue function.
Then call the queue function with one of the following commands:
'push X = Add X to the back of the queue
'pop = Remove element from the front of the queue and return it
'peek = Return the element in the front of the queue
'show = Display the queue's contents
'fb = Display the front and back queues (for debugging)
Source: http://irreal.org/blog/?p=40"
(lexical-let (front
back)
(lambda (cmd &optional data)
(cl-labels
((exchange ()
(setq front (reverse back))
(setq back '())))
(cl-case cmd
((push) (push data back))
((pop) (or (pop front)
(progn
(exchange)
(pop front))))
((peek) (unless front
(exchange))
(car front))
((show) (format "%s" (append front (reverse back))))
((fb) (format "front: %s, back: %s" front back))
(else (error "Illegal command given to queue object: %s" cmd)))))))
;; queue:1 ends here
;; [[file:init-emacs.org::*quicksort][quicksort:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: quicksort
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: quicksort")
(defun quicksort (list)
"Return sorted LIST (using the Quicksort algorithm)."
(if (null list) nil
(let* ((elt (car list))
(rst (cdr list))
(left-p (lambda (x) (< x elt))))
(append (quicksort (cl-remove-if-not left-p rst))
(list elt)
(quicksort (cl-remove-if left-p rst))))))
;; quicksort:1 ends here
;; [[file:init-emacs.org::*hash-table-dump][hash-table-dump:1]]
;;------------------------------------------------------------------------------
;;;; Functions: General Functions: hash-table-dump
;;------------------------------------------------------------------------------
(init-message 3 "Functions: General Functions: hash-table-dump")
(defun hash-table-dump (table)
"Return contents of hash TABLE as an association list."
(let (result)
(maphash (lambda (k v) (push (cons k v) result)) table)
(nreverse result)))
;; hash-table-dump:1 ends here
;; [[file:init-emacs.org::*Emacs Functions][Emacs Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Emacs Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Emacs Functions")
;; Emacs Functions:1 ends here
;; [[file:init-emacs.org::*inside-string][inside-string:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: inside-string
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: inside-string")
(defun inside-string ()
"Return non-nil if point is inside a string."
(not (not (nth 3 (syntax-ppss)))))
;; inside-string:1 ends here
;; [[file:init-emacs.org::*inside-comment][inside-comment:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: inside-comment
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: inside-comment")
(defun inside-comment ()
"Return non-nil if point is inside a comment."
(nth 4 (syntax-ppss)))
;; inside-comment:1 ends here
;; [[file:init-emacs.org::*try-finally][try-finally:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: try-finally
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: try-finally")
;; try/finally code block
(defmacro try-finally (fn &rest finally)
"Evaluate FN catching and returning any errors after FINALLY is
evaluated."
`(unwind-protect
(let (result)
(condition-case err
(setq result (progn ,fn))
('error
(message (format "Caught error: %s" err))
(setq result (cons 'error (list err)))))
result)
,@finally))
;; try-finally:1 ends here
;; [[file:init-emacs.org::*save-buffer-always][save-buffer-always:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: save-buffer-always
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: save-buffer-always")
(defun save-buffer-always ()
"Save current buffer in visited file even if it has not been modified."
(interactive)
(set-buffer-modified-p t)
(save-buffer))
;; save-buffer-always:1 ends here
;; [[file:init-emacs.org::*save-buffer-always-maybe][save-buffer-always-maybe:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: save-buffer-always-maybe
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: save-buffer-always-maybe")
;; allow prefix to determine if regular save or forced save is used
(defun save-buffer-always-maybe (arg)
"Call `save-buffer' if no prefix given, otherwise call
`save-buffer-always' to force a save."
(interactive "P")
(if arg
(save-buffer-always)
(save-buffer)))
;; save-buffer-always-maybe:1 ends here
;; [[file:init-emacs.org::*describe-function-or-variable-at-point][describe-function-or-variable-at-point:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: describe-function-or-variable-at-point
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: describe-function-or-variable-at-point")
(defun describe-function-or-variable-at-point (&optional point)
"Describe function or variable at POINT (or `point' if not given).
Use `describe-function' or `describe-variable' as appropriate."
(interactive)
(let ((pos (or point (point))))
(save-mark-and-excursion
(goto-char pos)
(if (eq (variable-at-point) 0)
(call-interactively 'describe-function)
(call-interactively 'describe-variable)))))
;; describe-function-or-variable-at-point:1 ends here
;; [[file:init-emacs.org::*mode-line-add][mode-line-add:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: mode-line-add
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: mode-line-add")
(defun mode-line-add (item)
"Add ITEM to `global-mode-string' part of the mode line."
(or global-mode-string (setq global-mode-string '("")))
(add-to-list 'global-mode-string item t))
;; mode-line-add:1 ends here
;; [[file:init-emacs.org::*insert-line-below][insert-line-below:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: insert-line-below
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: insert-line-below")
(defun insert-line-below ()
"Insert a line below current one."
(interactive)
(end-of-line)
(newline)
(indent-for-tab-command))
;; insert-line-below:1 ends here
;; [[file:init-emacs.org::*insert-line-above][insert-line-above:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: insert-line-above
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: insert-line-above")
(defun insert-line-above ()
"Insert a line above current one."
(interactive)
(forward-line 0)
(newline)
(forward-line -1)
(indent-for-tab-command))
;; insert-line-above:1 ends here
;; [[file:init-emacs.org::*move-line-down][move-line-down:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: move-line-down
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: move-line-down")
(defun move-line-down ()
(interactive)
(let ((col (current-column))
(eol (line-end-position)))
(forward-line 1)
(unless (> (point) eol)
(goto-char eol)
(newline))
(transpose-lines 1)
(forward-line -1)
(move-to-column col)))
;; move-line-down:1 ends here
;; [[file:init-emacs.org::*move-line-up][move-line-up:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: move-line-up
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: move-line-up")
(defun move-line-up ()
(interactive)
(let ((col (current-column))
(eol (line-end-position)))
(forward-line 1)
(unless (> (point) eol)
(goto-char eol)
(newline))
(ignore-errors (transpose-lines -1))
(forward-line -1)
(move-to-column col)))
;; move-line-up:1 ends here
;; [[file:init-emacs.org::*kill-word-enhanced][kill-word-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: kill-word-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: kill-word-enhanced")
(defun kill-word-enhanced (arg)
"Kill word at point."
(interactive "*P")
(save-mark-and-excursion
(let ((p (point)))
(forward-word 1)
(when (> (point) p)
(forward-word -1)))
(kill-word (or arg 1))
(when (eq (char-after) ? )
(delete-char 1))))
;; kill-word-enhanced:1 ends here
;; [[file:init-emacs.org::*kill-region-or-word][kill-region-or-word:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: kill-region-or-word
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: kill-region-or-word")
(defun kill-region-or-word ()
"Call `kill-region' or `backward-kill-word' depending on
whether or not a region is selected."
(interactive "*")
(if (use-region-p)
(kill-region (point) (mark))
(backward-kill-word 1)))
;; kill-region-or-word:1 ends here
;; [[file:init-emacs.org::*kill-duplicate-lines][kill-duplicate-lines:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: kill-duplicate-lines
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: kill-duplicate-lines")
(defun kill-duplicate-lines (&optional beg end)
"Kill duplicate lines in the pre-sorted selected region or entire buffer (if none)."
(interactive "*")
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max)))))
(save-mark-and-excursion
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
(while (not (eobp))
(kill-line 1)
(yank)
(let ((next-line (point)))
(while (re-search-forward (format "^%s" (regexp-quote (car kill-ring))) nil :noerror)
(replace-match "" nil nil))
(goto-char next-line)))))))
;; kill-duplicate-lines:1 ends here
;; [[file:init-emacs.org::*indent-or-expand][indent-or-expand:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: indent-or-expand
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: indent-or-expand")
(defun indent-or-expand ()
"Either indent according to mode, or expand the word preceding point."
(interactive "*")
(if (and
(not (bobp))
(not (eobp))
(= ?w (char-syntax (char-before)))
(not (= ?w (char-syntax (char-after)))))
(dabbrev-expand nil)
(indent-according-to-mode)))
;; indent-or-expand:1 ends here
;; [[file:init-emacs.org::*swap-windows][swap-windows:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: swap-windows
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: swap-windows")
(defun swap-windows ()
"If you have two windows, swap them."
(interactive)
(if (not (= (count-windows) 2))
(message "You need exactly two windows to swap them.")
(let* ((w1 (first (window-list)))
(w2 (second (window-list)))
(b1 (window-buffer w1))
(b2 (window-buffer w2))
(s1 (window-start w1))
(s2 (window-start w2)))
(set-window-buffer w1 b2)
(set-window-buffer w2 b1)
(set-window-start w1 s2)
(set-window-start w2 s1))))
;; swap-windows:1 ends here
;; [[file:init-emacs.org::*toggle-window-split][toggle-window-split:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: toggle-window-split
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: toggle-window-split")
(defun toggle-window-split ()
"If you have two windows, toggle them between horizontal and vertical layouts."
(interactive)
(if (not (= (count-windows) 2))
(message "You need exactly two windows to toggle them.")
(let* ((w1 (first (window-list)))
(w2 (second (window-list)))
(b1 (window-buffer w1))
(b2 (window-buffer w2))
(s1 (window-start w1))
(s2 (window-start w2))
(e1 (window-edges w1))
(e2 (window-edges w2))
(win-2nd (not (and (<= (car e1) (car e2))
(<= (cadr e1) (cadr e2)))))
(splitter
(if (= (car e1) (car e2))
'split-window-horizontally
'split-window-vertically)))
(delete-other-windows)
(funcall splitter)
(when win-2nd (other-window 1))
(set-window-buffer (selected-window) b1)
(set-window-buffer (next-window) b2)
(select-window w1)
(when win-2nd (other-window 1)))))
;; toggle-window-split:1 ends here
;; [[file:init-emacs.org::*enlarge-window-5][enlarge-window-5:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: enlarge-window-5
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: enlarge-window-5")
(defun enlarge-window-5 (arg)
"Make current window 5 lines bigger."
(interactive "P")
(if arg
(enlarge-window (* 5 arg))
(enlarge-window 5)))
;; enlarge-window-5:1 ends here
;; [[file:init-emacs.org::*shrink-window-5][shrink-window-5:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: shrink-window-5
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: shrink-window-5")
(defun shrink-window-5 (arg)
"Make current window 5 lines smaller."
(interactive "P")
(if arg
(enlarge-window (* -5 arg))
(enlarge-window -5)))
;; shrink-window-5:1 ends here
;; [[file:init-emacs.org::*compile-elisp][compile-elisp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: compile-elisp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: compile-elisp")
(defun compile-elisp (&optional dir)
"Byte compile DIR directory.
DIR defaults to `emacs-home-dir' or `~/.emacs.d'."
(interactive)
(byte-recompile-directory (or dir emacs-home-dir "~/.emacs.d") 0))
;; compile-elisp:1 ends here
;; [[file:init-emacs.org::*join-next-line][join-next-line:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: join-next-line
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: join-next-line")
(defun join-next-line (arg)
"Join next line with current one."
(interactive "*P")
(dotimes (n (or arg 1))
(join-line -1)))
;; join-next-line:1 ends here
;; [[file:init-emacs.org::*sort-all-lines][sort-all-lines:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: sort-all-lines
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: sort-all-lines")
(defun sort-all-lines ()
"Sort all lines in current buffer."
(interactive "*")
(save-mark-and-excursion
(sort-lines nil (point-min) (point-max))))
;; sort-all-lines:1 ends here
;; [[file:init-emacs.org::*delete-word][delete-word:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: delete-word
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: delete-word")
(defun delete-word (arg)
"Delete characters forward until encountering the end of the
type of character on point. Types are: whitespace, alphanumeric,
and symbol/other.
With argument ARG, do this that many times."
(interactive "p")
(let ((whitespace-regexp "[ \t\n]")
(alphanumeric-regexp "[[:alnum:]-_]"))
(dotimes (x arg)
(delete-region
(point)
(save-mark-and-excursion
(let ((type (cond ((looking-at whitespace-regexp) :whitespace)
((looking-at alphanumeric-regexp) :alphanumeric)
(t :other)))
(char (char-after)))
(forward-char 1)
(while (and (not (eobp))
(cl-case type
(:whitespace (looking-at whitespace-regexp))
(:alphanumeric (looking-at alphanumeric-regexp))
(:other (= char (char-after)))))
(forward-char 1))
(point)))))))
;; delete-word:1 ends here
;; [[file:init-emacs.org::*backward-delete-word][backward-delete-word:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: backward-delete-word
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: backward-delete-word")
(defun backward-delete-word (arg)
"Delete characters backward until encountering the end of the
type of character on point. Types are: whitespace, alphanumeric,
and symbol/other.
With argument ARG, do this that many times."
(interactive "p")
(let ((whitespace-regexp "[ \t\n]")
(alphanumeric-regexp "[[:alnum:]-_]"))
(dotimes (x arg)
(delete-region
(save-mark-and-excursion
(backward-char 1)
(let ((type (cond ((bobp) :bobp)
((looking-at whitespace-regexp) :whitespace)
((looking-at alphanumeric-regexp) :alphanumeric)
(t :other)))
(char (char-after)))
(unless (eq type :bobp)
(backward-char 1)
(while (cl-case type
(:bobp nil)
(:whitespace (looking-at whitespace-regexp))
(:alphanumeric (looking-at alphanumeric-regexp))
(:other (= char (char-after))))
(if (bobp)
(setq type :bobp)
(backward-char 1)))
(unless (eq type :bobp)
(forward-char 1)))
(point)))
(point)))))
;; backward-delete-word:1 ends here
;; [[file:init-emacs.org::*copy-line][copy-line:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: copy-line
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: copy-line")
(defun copy-line (&optional line)
"Copy the line containing the point or LINE."
(interactive)
(save-mark-and-excursion
(when line
(goto-char (point-min))
(forward-line (1- line)))
(goto-char (line-beginning-position))
(let ((beg (point)))
(if (eobp)
(goto-char (line-end-position))
(forward-line 1))
(copy-region-as-kill beg (point)))))
;; copy-line:1 ends here
;; [[file:init-emacs.org::*cut-line][cut-line:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: cut-line
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: cut-line")
(defun cut-line (&optional line)
"Cut the line containing the point or LINE."
(interactive "*")
(save-mark-and-excursion
(when line
(goto-char (point-min))
(forward-line (1- line)))
(goto-char (line-beginning-position))
(let ((beg (point)))
(if (eobp)
(goto-char (line-end-position))
(forward-line 1))
(kill-region beg (point)))))
;; cut-line:1 ends here
;; [[file:init-emacs.org::*delete-line][delete-line:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: delete-line
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: delete-line")
(defun delete-line (&optional line)
"Delete the line containing the point or LINE."
(interactive "*")
(let ((col (- (point) (line-beginning-position))))
(when line
(goto-char (point-min))
(forward-line (1- line)))
(goto-char (line-beginning-position))
(delete-region (point)
(progn
(forward-line 1)
(point)))
(if (<= (+ (point) col) (line-end-position))
(forward-char col)
(goto-char (line-end-position)))))
;; delete-line:1 ends here
;; [[file:init-emacs.org::*delete-to-end-of-line][delete-to-end-of-line:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: delete-to-end-of-line
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: delete-to-end-of-line")
(defun delete-to-end-of-line (&optional arg)
"Delete from the point to the end of the line containing the point."
(interactive "*P")
(delete-region (point)
(progn
(if arg
(forward-line (prefix-numeric-value arg))
(if (not (eolp))
(goto-char (line-end-position))
(forward-char 1)))
(point))))
;; delete-to-end-of-line:1 ends here
;; [[file:init-emacs.org::*duplicate-line][duplicate-line:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: duplicate-line
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: duplicate-line")
(defun duplicate-line (&optional comment line)
"Duplicate the line containing the point.
If COMMENT is non-nil, also comment out the original line.
If LINE is non-nil, duplicate that line instead.
Handles duplicating `org-table' lines correctly. Also fixes
closing s-expressions properly.
Cursor is left at current column in newly created line."
(interactive "*P")
(let ((col (current-column)))
(when line
(goto-char (point-min))
(forward-line (1- line)))
(let ((line (buffer-substring (line-beginning-position) (line-end-position))))
(when comment
(comment-region (line-beginning-position) (line-end-position)))
(when (and (fboundp 'org-at-table-p) (org-at-table-p))
(org-table-insert-row)
(delete-region (line-beginning-position) (1+ (line-end-position))))
(goto-char (line-end-position))
(newline)
(insert line)
(move-to-column col)
(when (or (eq major-mode 'emacs-lisp-mode)
(eq major-mode 'lisp-mode))
(save-mark-and-excursion
(ignore-errors
(forward-line -1)
(goto-char (line-beginning-position))
(forward-sexp)
(when (looking-at "\\()+\\)[ \t]*;")
(replace-match (make-string (length (match-string 1)) ?\s) nil nil nil 1))
(when (looking-at ")+")
(replace-match ""))
(forward-line 1)))))))
;; duplicate-line:1 ends here
;; [[file:init-emacs.org::*duplicate-line-inc][duplicate-line-inc:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: duplicate-line-inc
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: duplicate-line-inc")
(defun duplicate-line-inc (&optional line)
"Duplicate the line containing the point or LINE and increment any numbers by 1."
(interactive "*")
(let ((col (current-column)))
(save-mark-and-excursion
(when line
(goto-char (point-min))
(forward-line (1- line)))
(copy-region-as-kill (line-beginning-position) (line-end-position))
(goto-char (line-end-position))
(if (eobp)
(newline)
(forward-line 1))
(open-line 1)
(yank))
(forward-line 1)
(while (re-search-forward "[0-9]+" (line-end-position) :noerror)
(let ((num (string-to-number
(buffer-substring (match-beginning 0) (match-end 0)))))
(replace-match (int-to-string (1+ num)))))
(move-to-column col)))
;; duplicate-line-inc:1 ends here
;; [[file:init-emacs.org::*display-line-numbers-type-toggle][display-line-numbers-type-toggle:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: display-line-numbers-type-toggle
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: display-line-numbers-type-toggle")
(defun display-line-numbers-type-toggle ()
"Toggle `display-line-numbers' between `t' and `relative' values."
(interactive)
(setq display-line-numbers
(if (eq display-line-numbers 'relative)
t
'relative)))
;; display-line-numbers-type-toggle:1 ends here
;; [[file:init-emacs.org::*goto-line-enhanced][goto-line-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: goto-line-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: goto-line-enhanced")
(defun goto-line-enhanced ()
"Show line numbers while prompting for the line number to go to."
(interactive)
(if (or
display-line-numbers
current-prefix-arg)
(call-interactively 'goto-line)
(unwind-protect
(progn
(display-line-numbers-mode 1)
(call-interactively 'goto-line))
(display-line-numbers-mode -1))))
(bind-keys* ([remap goto-line] . goto-line-enhanced))
;; goto-line-enhanced:1 ends here
;; [[file:init-emacs.org::*forward-sexp-enhanced][forward-sexp-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: forward-sexp-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: forward-sexp-enhanced")
(defun forward-sexp-enhanced (arg)
"Move point forward one balanced expression (sexp) or ARG sexp's (backward if ARG is negative)."
(interactive "P")
(let ((arg (or arg 1))
(p (point)))
(ignore-errors
(forward-sexp arg))
(when (= p (point))
(cond
((> arg 0)
(forward-char 1)
(when (> arg 1)
(forward-sexp-enhanced (1- arg))))
((< arg 0)
(forward-char -1)
(when (< arg -1)
(forward-sexp-enhanced (1+ arg))))
(t)))))
(bind-keys* ([remap forward-sexp] . forward-sexp-enhanced))
;; forward-sexp-enhanced:1 ends here
;; [[file:init-emacs.org::*backward-sexp-enhanced][backward-sexp-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: backward-sexp-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: backward-sexp-enhanced")
(defun backward-sexp-enhanced (arg)
"Move point backward one balanced expression (sexp) or ARG sexp's (forward if ARG is negative)."
(interactive "P")
(let ((arg (or arg 1)))
(forward-sexp-enhanced (- 0 arg))))
(bind-keys* ([remap backward-sexp] . backward-sexp-enhanced))
;; backward-sexp-enhanced:1 ends here
;; [[file:init-emacs.org::*scroll-up-enhanced][scroll-up-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: scroll-up-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: scroll-up-enhanced")
(defun scroll-up-enhanced (arg)
"Scroll up one page or ARG amount.
If less than a page away, jump to the end of the buffer."
(interactive "P")
(let ((col (current-column)))
(condition-case nil
(if arg
(scroll-up arg)
(scroll-up))
('error
(goto-char (point-max))))
(move-to-column col)))
(bind-keys* ([remap scroll-up] . scroll-up-enhanced))
;; scroll-up-enhanced:1 ends here
;; [[file:init-emacs.org::*scroll-down-enhanced][scroll-down-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: scroll-down-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: scroll-down-enhanced")
(defun scroll-down-enhanced (arg)
"Scroll down one page or ARG amount.
If less than a page away, jump to the beginning of the buffer."
(interactive "P")
(let ((col (current-column)))
(condition-case nil
(if arg
(scroll-down arg)
(scroll-down))
('error
(goto-char (point-min))))
(move-to-column col)))
(bind-keys* ([remap scroll-down] . scroll-down-enhanced))
;; scroll-down-enhanced:1 ends here
;; [[file:init-emacs.org::*scroll-up-command-enhanced][scroll-up-command-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: scroll-up-command-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: scroll-up-command-enhanced")
(defun scroll-up-command-enhanced (arg)
"Scroll up one page or ARG amount.
If less than a page away, jump to the end of the buffer."
(interactive "P")
(let ((col (current-column)))
(condition-case nil
(if arg
(scroll-up-command arg)
(scroll-up-command))
('error
(goto-char (point-max))))
(move-to-column col)))
(bind-keys* ([remap scroll-up-command] . scroll-up-command-enhanced))
;; scroll-up-command-enhanced:1 ends here
;; [[file:init-emacs.org::*scroll-down-command-enhanced][scroll-down-command-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: scroll-down-command-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: scroll-down-command-enhanced")
(defun scroll-down-command-enhanced (arg)
"Scroll down one page or ARG amount.
If less than a page away, jump to the beginning of the buffer."
(interactive "P")
(let ((col (current-column)))
(condition-case nil
(if arg
(scroll-down-command arg)
(scroll-down-command))
('error
(goto-char (point-min))))
(move-to-column col)))
(bind-keys* ([remap scroll-down-command] . scroll-down-command-enhanced))
;; scroll-down-command-enhanced:1 ends here
;; [[file:init-emacs.org::*downcase-word-enhanced][downcase-word-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: downcase-word-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: downcase-word-enhanced")
(defun downcase-word-enhanced (arg)
"Convert word at point to lower case."
(interactive "*P")
(let ((p (point)))
(forward-word 1)
(when (> (point) p)
(forward-word -1)))
(downcase-word (or arg 1)))
(bind-keys* ([remap downcase-word] . downcase-word-enhanced))
;; downcase-word-enhanced:1 ends here
;; [[file:init-emacs.org::*upcase-word-enhanced][upcase-word-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: upcase-word-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: upcase-word-enhanced")
(defun upcase-word-enhanced (arg)
"Convert word at point to upper case."
(interactive "*P")
(let ((p (point)))
(forward-word 1)
(when (> (point) p)
(forward-word -1)))
(upcase-word (or arg 1)))
(bind-keys* ([remap upcase-word] . upcase-word-enhanced))
;; upcase-word-enhanced:1 ends here
;; [[file:init-emacs.org::*capitalize-word-enhanced][capitalize-word-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: capitalize-word-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: capitalize-word-enhanced")
(defun capitalize-word-enhanced (arg)
"Capitalize word at point."
(interactive "*P")
(let ((syntax-table (copy-syntax-table (syntax-table))))
(modify-syntax-entry ?- "." syntax-table)
(with-syntax-table syntax-table
(let ((p (point)))
(forward-word 1)
(when (> (point) p)
(forward-word -1)))
(capitalize-word (or arg 1)))))
(bind-keys* ([remap capitalize-word] . capitalize-word-enhanced))
;; capitalize-word-enhanced:1 ends here
;; [[file:init-emacs.org::*toggle-word-case][toggle-word-case:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: toggle-word-case
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: toggle-word-case")
(defun toggle-word-case (arg)
"Toggle between the following word states:
- lowercase
- capitalized
- uppercase"
(interactive "*P")
(let ((syntax-table (copy-syntax-table (syntax-table))))
(modify-syntax-entry ?- "." syntax-table)
(with-syntax-table syntax-table
(let ((p (point))
(arg (or arg 1)))
(forward-word 1)
(let ((w (point)))
;; count hyphens as part of the word
(while (= (char-after) ?-)
(forward-word 1))
(let ((eow (point)))
(goto-char w)
(when (> (point) p)
(forward-word -1))
(let ((bow (point))
(word (buffer-substring-no-properties (point) eow)))
(goto-char bow)
(while (and (< (point) eow)
(or (= (point) bow)
(= (char-after) ?-)))
(cond
;; lowercase -> capitalized
((s-lowercase-p word)
(capitalize-word arg))
;; uppercase -> lowercase
((s-uppercase-p word)
(downcase-word arg))
;; other -> uppercase
(t
(upcase-word arg))))
(goto-char p))))))))
(bind-keys* ("M-c" . toggle-word-case))
;; toggle-word-case:1 ends here
;; [[file:init-emacs.org::*eval-current-sexp][eval-current-sexp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: eval-current-sexp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: eval-current-sexp")
(defun eval-current-sexp (eval-last-sexp-arg-internal)
"Evaluate current sexp; print value in minibuffer.
Interactively, with prefix argument, print output into current buffer.
Calls `eval-last-sexp' to handle eval."
(interactive "P")
(save-mark-and-excursion
(end-of-defun)
(eval-last-sexp eval-last-sexp-arg-internal)))
;; eval-current-sexp:1 ends here
;; [[file:init-emacs.org::*eval-sexp-buffer][eval-sexp-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: eval-sexp-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: eval-sexp-buffer")
(defun eval-sexp-buffer (&optional buffer)
"Evaluate all sexp's in BUFFER.
BUFFER defaults to the current buffer."
(interactive)
(save-mark-and-excursion
(when buffer
(set-buffer buffer))
(goto-char (point-min))
(let ((count 0))
(while (not (eobp))
(forward-sexp)
(eval-last-sexp nil)
(cl-incf count))
(message (format "Evaluated %d expressions." count)))))
;; eval-sexp-buffer:1 ends here
;; [[file:init-emacs.org::*eval-and-replace-last-sexp][eval-and-replace-last-sexp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: eval-and-replace-last-sexp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: eval-and-replace-last-sexp")
(defun eval-and-replace-last-sexp ()
"Replace sexp before point with its evaluation."
(interactive "*")
(backward-kill-sexp)
(condition-case nil
(prin1 (eval (read (current-kill 0)))
(current-buffer))
('error
(message "Invalid expression")
(insert (current-kill 0)))))
;; eval-and-replace-last-sexp:1 ends here
;; [[file:init-emacs.org::*eval-and-replace-current-sexp][eval-and-replace-current-sexp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: eval-and-replace-current-sexp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: eval-and-replace-current-sexp")
(defun eval-and-replace-current-sexp ()
"Replace current sexp with its evaluation."
(interactive "*")
(save-mark-and-excursion
(end-of-defun)
(eval-and-replace-last-sexp)))
;; eval-and-replace-current-sexp:1 ends here
;; [[file:init-emacs.org::*macroexpand-and-replace][macroexpand-and-replace:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: macroexpand-and-replace
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: macroexpand-and-replace")
(defun macroexpand-and-replace ()
"Replace sexp before point with its macroexpand."
(interactive "*")
(backward-kill-sexp)
(condition-case nil
(prin1 (macroexpand (read (current-kill 0)))
(current-buffer))
('error
(message "Invalid expression")
(insert (current-kill 0)))))
;; macroexpand-and-replace:1 ends here
;; [[file:init-emacs.org::*calc-eval-and-replace-region][calc-eval-and-replace-region:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: calc-eval-and-replace-region
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: calc-eval-and-replace-region")
(defun calc-eval-and-replace-region (beg end)
"Evaluate region using `calc-eval' and replace it with the result."
(interactive "*r")
(let ((result (calc-eval (buffer-substring-no-properties beg end))))
(kill-region beg end)
(insert result)))
;; calc-eval-and-replace-region:1 ends here
;; [[file:init-emacs.org::*calc-eval-and-replace-line][calc-eval-and-replace-line:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: calc-eval-and-replace-line
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: calc-eval-and-replace-line")
(defun calc-eval-and-replace-line ()
"Evaluate line using `calc-eval' and replace it with the result."
(interactive "*")
(calc-eval-and-replace-region (line-beginning-position) (line-end-position)))
;; calc-eval-and-replace-line:1 ends here
;; [[file:init-emacs.org::*indent-current-sexp][indent-current-sexp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: indent-current-sexp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: indent-current-sexp")
(defun indent-current-sexp ()
"Indent current sexp."
(interactive "*")
(save-mark-and-excursion
(end-of-defun)
(let ((end (point)))
(beginning-of-defun)
;; indent sexp
(indent-sexp nil)
;; loop through every line checking for eol comments
(while (< (point) end)
(goto-char (line-end-position))
;; if comment exists, indent it
(when (eq (get-text-property (point) 'face) 'font-lock-comment-face)
(comment-indent))
(forward-line 1)))))
;; indent-current-sexp:1 ends here
;; [[file:init-emacs.org::*indent-sexp-buffer][indent-sexp-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: indent-sexp-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: indent-sexp-buffer")
(defun indent-sexp-buffer (&optional buffer)
"Indent all sexp's in BUFFER.
BUFFER defaults to the current buffer."
(interactive "*")
(save-mark-and-excursion
(when buffer
(set-buffer buffer))
(goto-char (point-min))
(let ((count 0))
(while (not (eobp))
(forward-sexp 1)
(indent-current-sexp)
(cl-incf count))
(message (format "Indented %d expressions." count)))))
;; indent-sexp-buffer:1 ends here
;; [[file:init-emacs.org::*comment-or-uncomment-sexp][comment-or-uncomment-sexp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: comment-or-uncomment-sexp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: comment-or-uncomment-sexp")
(defun uncomment-sexp (&optional n)
"Uncomment an sexp around point."
(interactive "P")
(let* ((initial-point (point-marker))
(p)
(end (save-mark-and-excursion
(save-match-data
(when (elt (syntax-ppss) 4)
(search-backward-regexp comment-start-skip
(line-beginning-position)
:noerror))
(setq p (point-marker))
(comment-forward (point-max))
(point-marker))))
(beg (save-mark-and-excursion
(save-match-data
(forward-line 0)
(while (= end (save-mark-and-excursion
(comment-forward (point-max))
(point)))
(forward-line -1))
(goto-char (line-end-position))
(search-backward-regexp comment-start-skip
(line-beginning-position)
:noerror)
(while (looking-at-p comment-start-skip)
(forward-char -1))
(point-marker)))))
(unless (= beg end)
(uncomment-region beg end)
(goto-char p)
;; identify the top-level sexp inside the comment
(while (and (ignore-errors (backward-up-list) t)
(>= (point) beg))
(skip-chars-backward (rx (syntax expression-prefix)))
(setq p (point-marker)))
;; re-comment everything before it
(ignore-errors
(comment-region beg p))
;; and everything after it
(goto-char p)
(forward-sexp (or n 1))
(skip-chars-forward "\r\n[:blank:]")
(if (< (point) end)
(ignore-errors
(comment-region (point) end))
;; if this is a closing delimiter, pull it up
(goto-char end)
(skip-chars-forward "\r\n[:blank:]")
(when (= 5 (car (syntax-after (point))))
(delete-indentation))))
;; without a prefix, it's more useful to leave point where it was
(unless n
(goto-char initial-point))))
;; (defun comment-sexp--raw ()
;; "Comment the sexp at point or ahead of point."
;; (pcase (or (bounds-of-thing-at-point 'sexp)
;; (save-mark-and-excursion
;; (skip-chars-forward "\r\n[:blank:]")
;; (bounds-of-thing-at-point 'sexp)))
;; (`(,l . ,r)
;; (goto-char r)
;; (skip-chars-forward "\r\n[:blank:]")
;; (comment-region l r)
;; (skip-chars-forward "\r\n[:blank:]"))))
(defun comment-or-uncomment-sexp (&optional n)
"Comment the sexp at point and move past it.
If already inside (or before) a comment, uncomment instead.
With a prefix argument N, (un)comment that many sexps."
(interactive "P")
(if (or (elt (syntax-ppss) 4)
(< (save-mark-and-excursion
(skip-chars-forward "\r\n[:blank:]")
(point))
(save-mark-and-excursion
(comment-forward 1)
(point))))
(uncomment-sexp n)
(dotimes (_ (or n 1))
(pcase (or (bounds-of-thing-at-point 'sexp)
(save-mark-and-excursion
(skip-chars-forward "\r\n[:blank:]")
(bounds-of-thing-at-point 'sexp)))
(`(,l . ,r)
(goto-char r)
(skip-chars-forward "\r\n[:blank:]")
(comment-region l r)
(skip-chars-forward "\r\n[:blank:]"))))))
;; comment-or-uncomment-sexp:1 ends here
;; [[file:init-emacs.org::*rename-buffer-and-file][rename-buffer-and-file:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: rename-buffer-and-file
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: rename-buffer-and-file")
(defun rename-buffer-and-file (file-name &optional confirm)
"Rename current buffer and file to FILE-NAME."
(interactive
(list (if buffer-file-name
(read-file-name "Rename buffer to: " default-directory)
(error "Current buffer is not visiting a file"))
(not current-prefix-arg)))
(or (not file-name) (string-equal file-name "")
(let ((source-file-name buffer-file-name))
(unless source-file-name
(error "Buffer '%s' is not visiting a file" (buffer-name)))
(write-file file-name confirm)
(when (file-exists-p file-name)
(delete-file source-file-name)))))
;; rename-buffer-and-file:1 ends here
;; [[file:init-emacs.org::*move-buffer-and-file][move-buffer-and-file:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: move-buffer-and-file
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: move-buffer-and-file")
(defun move-buffer-and-file (dir &optional confirm)
"Move current buffer and file to DIR."
(interactive
(list (if buffer-file-name
(read-directory-name "Move to directory: " default-directory
(file-name-directory buffer-file-name))
(error "Current buffer is not visiting a file"))
(not current-prefix-arg)))
(let* ((source-file-name buffer-file-name)
(dir (if (or (string= dir "")
(not (string= (substring dir -1) "/")))
(concat dir "/")
dir))
(file-name (concat dir (file-name-nondirectory source-file-name))))
(if (not source-file-name)
(message "Buffer '%s' is not visiting a file" (buffer-name))
(progn
(unless (and confirm
(file-exists-p file-name)
(not (yes-or-no-p (format "File `%s' exists; overwrite? " file-name)))
(message "Canceled"))
(copy-file source-file-name file-name t)
(delete-file source-file-name)
(set-visited-file-name file-name)
(set-buffer-modified-p nil)
(vc-refresh-state))))))
;; move-buffer-and-file:1 ends here
;; [[file:init-emacs.org::*delete-buffer-and-file][delete-buffer-and-file:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: delete-buffer-and-file
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: delete-buffer-and-file")
(defun delete-buffer-and-file (&optional buffer)
"Delete BUFFER and file associated with it.
BUFFER defaults to the current buffer."
(interactive)
(let* ((buffer-name (or buffer (current-buffer)))
(file-name (buffer-file-name buffer-name)))
(if (not (and file-name (file-exists-p file-name)))
(if (fboundp 'ido-kill-buffer)
(ido-kill-buffer)
(kill-buffer))
(unless (and
(not (yes-or-no-p (format "Are you sure you want to delete '%s'? " file-name)))
(message "Canceled"))
(delete-file file-name)
(kill-buffer buffer-name)
(message "File '%s' successfully deleted" file-name)))))
;; delete-buffer-and-file:1 ends here
;; [[file:init-emacs.org::*expand-relative-file-name][expand-relative-file-name:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: expand-relative-file-name
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: expand-relative-file-name")
(defun expand-relative-file-name (file-name)
"Expand FILE-NAME found in current directory."
(expand-file-name file-name (file-name-directory (or load-file-name buffer-file-name))))
;; expand-relative-file-name:1 ends here
;; [[file:init-emacs.org::*remove-trailing-blanks][remove-trailing-blanks:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: remove-trailing-blanks
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: remove-trailing-blanks")
;; mode hooks are added in their sections
(defun remove-trailing-blanks (&optional ask)
"Remove trailing spaces and tabs from every line in the current buffer.
Also remove trailing newlines from the end of the buffer, apart
from one.
If ASK is non-nil, ask for confirmation."
(when (and (not (zerop (buffer-size)))
(char-equal (char-after (buffer-size)) ?\n)
(save-mark-and-excursion
(save-restriction
(save-match-data
(widen)
(goto-char (point-min))
(or (search-forward " \n" nil :noerror)
(search-forward "\t\n" nil :noerror)
(re-search-forward "\n\n$" nil :noerror)))))
(if ask
(yes-or-no-p "Remove trailing spaces and newlines before saving? ")
(message "Removing trailing spaces and newlines...")
t))
(save-mark-and-excursion
(save-restriction
(save-match-data
(widen)
(goto-char (point-min))
(while (re-search-forward "[ \t]+$" nil 'move)
(replace-match ""))
(when (bolp)
(skip-chars-backward "\n")
(delete-region (1+ (point)) (point-max)))))))
nil)
(defun remove-trailing-blanks-ask ()
(remove-trailing-blanks t))
(defun install-remove-trailing-blanks ()
(add-hook 'write-contents-functions #'remove-trailing-blanks))
(defun install-remove-trailing-blanks-ask ()
(add-hook 'write-contents-functions #'remove-trailing-blanks-ask))
;; remove trailing blanks
;;(add-hook 'fundamental-mode-hook #'install-remove-trailing-blanks)
;; remove trailing blanks from all save files
;;(add-hook 'write-contents-functions #'remove-trailing-blanks)
;; remove-trailing-blanks:1 ends here
;; [[file:init-emacs.org::*remove-tabs][remove-tabs:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: remove-tabs
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: remove-tabs")
;; mode hooks are added in their sections
(defun remove-tabs (&optional ask)
"Remove tabs from every line in the current buffer.
If ASK is non-nil, ask for confirmation.
If buffer is read-only quietly do nothing."
(when (not buffer-read-only)
(when (and (not (zerop (buffer-size)))
(char-equal (char-after (buffer-size)) ?\n)
(save-mark-and-excursion
(save-restriction
(save-match-data
(widen)
(goto-char (point-min))
(search-forward "\t" nil :noerror))))
(if ask
(yes-or-no-p "Remove tabs before saving? ")
(message "Removing tabs...")
t))
(save-mark-and-excursion
(save-restriction
(save-match-data
(goto-char (point-min))
(while (re-search-forward "[ \t]+$" nil :noerror)
(delete-region (match-beginning 0) (match-end 0)))
(goto-char (point-min))
(when (search-forward "\t" nil :noerror)
(untabify (1- (point)) (point-max))))))))
nil)
(defcustom remove-tabs-exceptions '((:file . "\.tsv\\'")
(:file . "\.gopher\\'")
(:file . "\\'.gopherus.bookmarks\\'")
(:file . "\\'Makefile\\'")
(:mode . "Makefile"))
"List of mode name and file name regexp patterns to exclude
from tab removal on file save."
:type 'list
:group 'files)
(defun remove-tabs-with-exceptions (&optional ask)
(let ((file-name (file-name-nondirectory buffer-file-name)))
(unless
(cl-remove-if (lambda (x)
(let ((type (car x))
(name (cdr x)))
(and
(not (and (eq type :mode)
(stringp mode-name)
(string= mode-name name)))
(not (and (eq type :file)
(string-match name file-name))))))
remove-tabs-exceptions)
(remove-tabs ask))))
(defun remove-tabs-ask ()
(remove-tabs t))
(defun remove-tabs-with-exceptions-ask ()
(remove-tabs-with-exceptions t))
(defun install-remove-tabs ()
(add-hook 'write-contents-functions #'remove-tabs-with-exceptions))
(defun install-remove-tabs-ask ()
(add-hook 'write-contents-functions #'remove-tabs-with-exceptions-ask))
;; remove tabs
;;(add-hook 'fundamental-mode-hook #'install-remove-tabs)
;; remove tabs from all saved files (with exceptions)
(add-hook 'write-contents-functions #'remove-tabs-with-exceptions)
;; remove-tabs:1 ends here
;; [[file:init-emacs.org::*indent-down][indent-down:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: indent-down
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: indent-down")
(defun indent-down ()
"Indent current line via `lisp-indent-line' then go down one line via `next-line'."
(interactive "*")
(lisp-indent-line)
(forward-line 1))
;; indent-down:1 ends here
;; [[file:init-emacs.org::*server-start-maybe][server-start-maybe:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: server-start-maybe
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: server-start-maybe")
(defun server-start-maybe ()
"Safe way to start or restart an emacs server."
(unless (or window-system-windows
(and (fboundp 'server-runningp)
(server-running-p)))
(server-start :leave-dead)
(server-start)))
;; server-start-maybe:1 ends here
;; [[file:init-emacs.org::*load-bookmarks][load-bookmarks:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: load-bookmarks
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: load-bookmarks")
(defun load-bookmarks (&optional file)
"Load bookmarks html FILE.
FILE defaults to `~/lynx_bookmarks.html'."
(interactive)
(let ((file (or file "~/lynx_bookmarks.html")))
;;(w3m-browse-url (expand-file-name file))))
(eww-open-in-new-buffer (expand-file-name file))))
;; load-bookmarks:1 ends here
;; [[file:init-emacs.org::*find-file-updir][find-file-updir:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: find-file-updir
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: find-file-updir")
(defun find-file-updir (name &optional directory)
"Return the absolute file name of NAME if it is found in the
current buffer's default directory or in any parent directory.
If DIRECTORY is non-nil, then it is used instead of the current
buffer's default directory."
(let ((name (expand-file-name name directory)))
(while (and
(not (file-exists-p name))
(not (string= name (concat "/" (file-name-nondirectory name)))))
(setq name (expand-file-name (concat
(file-name-directory name)
"../"
(file-name-nondirectory name)))))
(when (file-exists-p name) name)))
;; find-file-updir:1 ends here
;; [[file:init-emacs.org::*find-file-eof][find-file-eof:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: find-file-eof
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: find-file-eof")
(defun find-file-eof (file)
"Run `find-file' with FILE, then move the point to the end of buffer."
(find-file file)
(goto-char (point-max)))
;; find-file-eof:1 ends here
;; [[file:init-emacs.org::*mark-full-word][mark-full-word:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: mark-full-word
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: mark-full-word")
(defun mark-full-word (&optional arg allow-extend)
"Set mark ARG words away from start of word at point.
Point is moved to the beginning of the word at point, then
`mark-word' is called with the given arguments."
(interactive "P\np")
(beginning-of-thing 'word)
(mark-word arg allow-extend))
;; mark-full-word:1 ends here
;; [[file:init-emacs.org::*term-buffer][term-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: term-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: term-buffer")
(defun term-buffer ()
"Create or visit a persistent terminal buffer."
(interactive)
(let ((name "*ansi-term*"))
(if (not (get-buffer name))
(progn
(split-window-sensibly (selected-window))
(other-window 1)
(ansi-term (getenv "SHELL")))
(switch-to-buffer-other-window name))))
;; term-buffer:1 ends here
;; [[file:init-emacs.org::*term-ansi][term-ansi:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: term-ansi
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: term-ansi")
(when (fboundp 'term-ansi-make-term)
(defun term-ansi (name cmd &rest switches)
"Run an application in an ansi-term window."
(let ((buffer (apply #'term-ansi-make-term
(generate-new-buffer-name (concat "*" name "*"))
cmd nil switches)))
(set-buffer buffer)
(when (fboundp 'term-mode) (term-mode))
(when (fboundp 'term-char-mode) (term-char-mode))
(when (fboundp 'term-set-escape-char) (term-set-escape-char ?\C-x))
(switch-to-buffer buffer))))
;; term-ansi:1 ends here
;; [[file:init-emacs.org::*pop-up-shell][pop-up-shell:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: pop-up-shell
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: pop-up-shell")
(defun pop-up-shell (arg)
"Pop-up a shell in a side window passing ARG."
(interactive "P")
(select-window
(display-buffer-in-side-window
(save-window-excursion
(let ((prefix-arg arg))
(call-interactively #'shell))
(current-buffer))
'((side . bottom)))))
;; pop-up-shell:1 ends here
;; [[file:init-emacs.org::*pop-up-shell-toggle][pop-up-shell-toggle:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: pop-up-shell-toggle
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: pop-up-shell-toggle")
(defun pop-up-shell-toggle (arg)
"Toggle visibility of `pop-up-shell'.
ARG is passed along if shell is being toggled on."
(interactive "P")
(let ((buffer-window (get-buffer-window "*shell*")))
(if buffer-window
(delete-window buffer-window)
(pop-up-shell arg))))
;; pop-up-shell-toggle:1 ends here
;; [[file:init-emacs.org::*switch-to-scratch][switch-to-scratch:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: switch-to-scratch
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: switch-to-scratch")
(defun switch-to-scratch ()
"Switch to `*scratch*' buffer, creating it if needed."
(interactive)
(switch-to-buffer "*scratch*"))
;; switch-to-scratch:1 ends here
;; [[file:init-emacs.org::*switch-to-scratch-for-current-mode][switch-to-scratch-for-current-mode:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: switch-to-scratch-for-current-mode
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: switch-to-scratch-for-current-mode")
(defun switch-to-scratch-for-current-mode ()
"Switch to `*scratch-MODE*' buffer, creating it if needed."
(interactive)
(let* ((mode major-mode)
(buffer-name (concat "*scratch-" (symbol-name mode) "*")))
(switch-to-buffer buffer-name)
(funcall mode)))
;; switch-to-scratch-for-current-mode:1 ends here
;; [[file:init-emacs.org::*new-scratch][new-scratch:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: new-scratch
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: new-scratch")
(defun new-scratch ()
"Create a new scratch buffer."
(interactive)
(switch-to-buffer (generate-new-buffer-name "*scratch*")))
;; new-scratch:1 ends here
;; [[file:init-emacs.org::*new-emacs-lisp-scratch][new-emacs-lisp-scratch:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: new-emacs-lisp-scratch
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: new-emacs-lisp-scratch")
(defun new-emacs-lisp-scratch ()
"Create a new scratch buffer with `emacs-lisp-mode'."
(interactive)
(switch-to-buffer (generate-new-buffer-name "*scratch-emacs-lisp-mode*"))
(emacs-lisp-mode))
;; new-emacs-lisp-scratch:1 ends here
;; [[file:init-emacs.org::*recreate-scratch-when-killed][recreate-scratch-when-killed:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: recreate-scratch-when-killed
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: recreate-scratch-when-killed")
(defun recreate-scratch-when-killed ()
"Recreate scratch buffer, when it is killed.
Add the following to your init.el file for this to work:
\(add-hook 'kill-buffer-query-functions #'recreate-scratch-when-killed)"
(interactive)
(let ((buffer-name "*scratch*"))
(if (string= (buffer-name (current-buffer)) buffer-name)
(let ((kill-buffer-query-functions kill-buffer-query-functions))
(remove-hook 'kill-buffer-query-functions 'recreate-scratch-when-killed)
(kill-buffer (current-buffer))
(set-buffer (get-buffer-create buffer-name))
nil)
t)))
(add-hook 'kill-buffer-query-functions #'recreate-scratch-when-killed)
;; recreate-scratch-when-killed:1 ends here
;; [[file:init-emacs.org::*switch-to-messages][switch-to-messages:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: switch-to-messages
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: switch-to-messages")
(defun switch-to-messages ()
"Switch to `*Messages*' buffer, creating it if needed."
(interactive)
(switch-to-buffer "*Messages*"))
;; switch-to-messages:1 ends here
;; [[file:init-emacs.org::*diff-current-buffer][diff-current-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: diff-current-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: diff-current-buffer")
(defun diff-current-buffer ()
"Show a diff of the current buffer with its file contents."
(interactive)
(diff-buffer-with-file (current-buffer)))
;; diff-current-buffer:1 ends here
;; [[file:init-emacs.org::*get-char-property-here][get-char-property-here:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: get-char-property-here
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: get-char-property-here")
(defun get-char-property-here ()
"Get character property at current point."
(interactive)
(let (face)
(setq face (get-char-property (point) 'face))
(when (called-interactively-p 'any)
(message "%s" face))
face))
;; get-char-property-here:1 ends here
;; [[file:init-emacs.org::*comments-in-buffer][comments-in-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: comments-in-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: comments-in-buffer")
(defun comments-in-buffer (&optional beg end)
"Return a list of all the comments in the current buffer.
Optional START and END parameters will limit the search to a region."
(interactive)
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max))))
comments)
(save-mark-and-excursion
(save-restriction
(save-match-data
(narrow-to-region beg end)
(goto-char (point-min))
(while (comment-search-forward (point-max) t)
(push (buffer-substring-no-properties (point) (line-end-position)) comments))))
(nreverse comments))))
;; comments-in-buffer:1 ends here
;; [[file:init-emacs.org::*count-words][count-words:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: count-words
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: count-words")
(defun count-words (&optional beg end)
"Count the number of words in the selected region or entire buffer (if none)."
(interactive)
(let* ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max))))
(count (how-many "\\w+" beg end)))
(when (called-interactively-p 'any)
(message "%s" count))
count))
;; count-words:1 ends here
;; [[file:init-emacs.org::*count-words-paragraph][count-words-paragraph:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: count-words-paragraph
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: count-words-paragraph")
(defun count-words-paragraph ()
"Count the number of words in the current paragraph."
(interactive)
(save-mark-and-excursion
(let (end
(count 0))
(forward-paragraph 1)
(setq end (point))
(backward-paragraph 1)
(setq count (how-many "\\w+" (point) end))
(when (called-interactively-p 'any)
(message "%s" count))
count)))
;; count-words-paragraph:1 ends here
;; [[file:init-emacs.org::*date-offset][date-offset:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: date-offset
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: date-offset")
(defun date-offset (&optional offset timezone format)
"Return current date/time plus OFFSET seconds.
OFFSET is the number of seconds to add to the current
time (defaults to 0).
TIMEZONE changes the timezone (defaults to local system setting).
FORMAT is a 'date' format string (defaults to
'+%Y-%m-%dT%H:%M:%SZ')."
(interactive)
(let* ((offset (or offset 0))
(format (or format (setq format "+%Y-%m-%dT%H:%M:%SZ")))
(date (replace-regexp-in-string
"^ +\\|[ \n]+$" ""
(shell-command-to-string
(concat
(if timezone
(concat "TZ=" (shell-quote-argument timezone) " ")
"")
"date -d \"" (shell-quote-argument (number-to-string offset))
" sec\" " (shell-quote-argument format))))))
(when (called-interactively-p 'any)
(message "%s" date))
date))
;; date-offset:1 ends here
;; [[file:init-emacs.org::*ascii-table][ascii-table:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: ascii-table
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: ascii-table")
(defun ascii-table ()
"Print a table of the ASCII characters from 0 to 254 in a buffer."
(interactive)
;; thanks to David Jolley for the special-chars list
(let ((special-chars ["NUL " "SOH " "STX " "ETX " "EOT "
"ENQ " "ACK " "BEL " "BS " "HT "
"LF " "VT " "FF " "CR " "SO "
"SI " "DLE " "DC1 " "DC2 " "DC3 "
"DC4 " "NAK " "SYN " "ETB " "CAN "
"EM " "SUB " "ESC " "FS " "GS "
"RS " "US "]))
(switch-to-buffer "*ASCII Table*")
(buffer-disable-undo (current-buffer))
(let (buffer-read-only)
(erase-buffer)
(dotimes (y 32)
(dotimes (x 8)
(when (and (> y 0) (zerop (mod x 8)))
(newline))
(let ((c (+ y (* x 32))))
(insert (format "%4d " c)
(cond
((< c 32)
(aref special-chars c))
((= c 127)
"DEL ")
((or (< c 127) (> c 159))
(format "%-4c" c))
(t " ")))))))
(setq buffer-read-only t)
(goto-char (point-min))))
;; simple version
;; (defun ascii-table ()
;; "Print the ASCII characters from 0 to 254 in a buffer."
;; (interactive)
;; (switch-to-buffer "*ASCII Table*")
;; (buffer-disable-undo (current-buffer))
;; (erase-buffer)
;; (dotimes (x 255)
;; (insert (format "%4d %c\n" x x)))
;; (setq buffer-read-only t)
;; (goto-char (point-min)))
;; ascii-table:1 ends here
;; [[file:init-emacs.org::*powers-of-two-table][powers-of-two-table:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: powers-of-two-table
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: powers-of-two-table")
(defun powers-of-two-table ()
"Print a table of the first 64 Powers of two in a buffer."
(interactive)
(switch-to-buffer "*Powers of Two Table*")
(buffer-disable-undo (current-buffer))
(let (buffer-read-only)
(erase-buffer)
(insert "POWER DECIMAL HEX\n")
(insert "----- -------------------- -----------------\n")
(dotimes (x 65)
(if (<= x 60)
(let ((pow (expt 2 x)))
(insert (format "%5d %20d %17X\n" x pow pow)))
(let ((dec (progn (calc-radix 10)
(calc-eval (format "2^%d" x))))
(hex (progn (calc-radix 16)
(substring (calc-eval (format "2^%d" x)) 3))))
(insert (format "%5d %20s %17s\n" x dec hex))))))
(setq buffer-read-only t)
(goto-char (point-min)))
;; powers-of-two-table:1 ends here
;; [[file:init-emacs.org::*memory-use-counts-pretty][memory-use-counts-pretty:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: memory-use-counts-pretty
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: memory-use-counts-pretty")
(defun memory-use-counts-pretty ()
"Pretty print version of `memory-use-counts'."
(interactive)
(let ((tags '(Conses Floats Vector-Cells Symbols String-Chars Miscs Intervals Strings))
(muc (memory-use-counts))
(str ""))
(dotimes (n (length tags))
(setq str (concat str (if (zerop (length str)) "" ", ")
(symbol-name (nth n tags)) ": " (number-to-string (nth n muc)))))
str))
;; memory-use-counts-pretty:1 ends here
;; [[file:init-emacs.org::*git-paste-cleanup][git-paste-cleanup:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: git-paste-cleanup
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: git-paste-cleanup")
(defun git-paste-cleanup (beg end)
"Remove `+' characters from the start of lines in region."
(interactive "*r")
(save-mark-and-excursion
(goto-char beg)
(when (> (point) (line-beginning-position))
(forward-line 1)
(goto-char (line-beginning-position)))
(while (< (point) end)
(when (looking-at "^+")
(delete-char 1))
(forward-line 1))))
;; git-paste-cleanup:1 ends here
;; [[file:init-emacs.org::*execute-buffer][execute-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: execute-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: execute-buffer")
;; TODO: need to test
(defun execute-buffer ()
"Execute or compile current file."
(interactive)
(let* ((file-name (shell-quote-argument buffer-file-name))
(file-type (substring (shell-command-to-string (concat "file " file-name)) 0 -1))
(type-map '(("Lisp" . "clisp")
("bash" . "bash")
("perl" . "perl")
("python" . "python")
("java" . "javac")
("kotlin" . "kotlinc")
("php" . "php")
(" c " . "gcc")))
cmd)
(delete-other-windows)
(cl-do ((type type-map (cdr type)))
((or (not type) cmd))
(when (cl-search (car type) file-type)
(setq cmd (cdr type))))
(shell-command (concat cmd " " file-name))))
;; execute-buffer:1 ends here
;; [[file:init-emacs.org::*file-in-exec-path][file-in-exec-path:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: file-in-exec-path
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: file-in-exec-path")
(defun file-in-exec-path (name)
"Return non-nil if NAME is a file found in `exec-path'."
(catch 'done
(dolist (dir exec-path)
(when (file-exists-p (concat (file-name-as-directory dir) name))
(throw 'done t)))
nil))
;; file-in-exec-path:1 ends here
;; [[file:init-emacs.org::*unicode-shell][unicode-shell:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: unicode-shell
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: unicode-shell")
(defun unicode-shell ()
"Execute the shell buffer in UTF-8 encoding.
Note that you need to set the environment variable LANG and
others appropriately."
(interactive)
(let ((coding-system-for-read 'utf-8)
(coding-system-for-write 'utf-8)
(coding-system-require-warning t))
(call-interactively 'shell)))
;; unicode-shell:1 ends here
;; [[file:init-emacs.org::*async-spinner][async-spinner:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: async-spinner
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: async-spinner")
(defmacro async-spinner (start-func &optional finish-func)
"Return `async-start' command for given params with a spinner."
(require 'async)
(require 'spinner)
(let ((spinner (spinner-start 'horizontal-moving))
(result (gensym)))
`(async-start
(lambda ()
(funcall ,start-func))
(lambda (,result)
(funcall ,spinner)
(funcall ,finish-func ,result)))))
;; async-spinner:1 ends here
;; [[file:init-emacs.org::*time][time:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: time
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: time")
(defmacro time (&rest body)
"Return the time it takes to evaluate BODY."
`(let ((time (current-time)))
,@body
(let ((duration (float-time (time-since time))))
(message "%.06f" duration)
duration)))
;; time:1 ends here
;; [[file:init-emacs.org::*package-desc-summary-to-kill-ring][package-desc-summary-to-kill-ring:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: package-desc-summary-to-kill-ring
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: package-desc-summary-to-kill-ring")
(defun package-desc-summary-to-kill-ring ()
"When `thing-at-point' is a package library, return package
description summary and put it on the kill ring."
(interactive)
(let* ((name (thing-at-point 'symbol t))
(summary (package-desc-summary
(with-temp-buffer
(insert-file-contents-literally
(find-library-name name))
(package-buffer-info)))))
(kill-new summary)
(message "%s: %s" name summary)))
;; package-desc-summary-to-kill-ring:1 ends here
;; [[file:init-emacs.org::*toggle-case-fold-search][toggle-case-fold-search:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Functions: toggle-case-fold-search
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Functions: toggle-case-fold-search")
(defun toggle-case-fold-search ()
"Toggle search case sensitivity."
(interactive)
(setq case-fold-search (not case-fold-search))
(message "case-fold-search: %s" (if case-fold-search "ON" "OFF")))
;; toggle-case-fold-search:1 ends here
;; [[file:init-emacs.org::*Emacs Grouped Functions][Emacs Grouped Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Emacs Grouped Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Emacs Grouped Functions")
;; Emacs Grouped Functions:1 ends here
;; [[file:init-emacs.org::*Buffer Kill][Buffer Kill:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Grouped Functions: Buffer Kill
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Grouped Functions: Buffer Kill")
;; Buffer Kill:1 ends here
;; [[file:init-emacs.org::*kill-buffer-query-functions-maybe-bury][kill-buffer-query-functions-maybe-bury:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Grouped Functions: Buffer Kill: kill-buffer-query-functions-maybe-bury
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Emacs Grouped Functions: Buffer Kill: kill-buffer-query-functions-maybe-bury")
;;(defconst bury-buffer-names '("*scratch*" "*Messages*"))
(defconst bury-buffer-names '("*Messages*"))
(defun kill-buffer-query-functions-maybe-bury ()
"Bury certain buffers instead of killing them.
Return nil if buffer should be buried instead of killed.
Used as a `kill-buffer-query-functions' hook."
(if (member (buffer-name (current-buffer)) bury-buffer-names)
(progn
(kill-region (point-min) (point-max))
(bury-buffer)
nil)
t))
(add-hook 'kill-buffer-query-functions #'kill-buffer-query-functions-maybe-bury)
;; kill-buffer-query-functions-maybe-bury:1 ends here
;; [[file:init-emacs.org::*kill-other-window-buffer][kill-other-window-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Grouped Functions: Buffer Kill: kill-other-window-buffer
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Emacs Grouped Functions: Buffer Kill: kill-other-window-buffer")
(defun kill-other-window-buffer (&optional delete-window)
"Kill buffer in other window, prompting user to select a window
if there are more than two.
When DELETE-WINDOW is non-nil, also delete the window."
(interactive)
(let ((orig-window (selected-window)))
(cond
((and (fboundp 'switch-window)
(> (length (window-list)) 1))
(switch-window)
(kill-buffer (current-buffer))
(when delete-window
(delete-window))
(select-window orig-window))
((= (length (window-list)) 2)
(other-window 1)
(kill-buffer (current-buffer))
(when delete-window
(delete-window))
(select-window orig-window))
(t
(message "No other window to kill")))))
;; kill-other-window-buffer:1 ends here
;; [[file:init-emacs.org::*kill-other-window-buffer-and-delete-window][kill-other-window-buffer-and-delete-window:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Grouped Functions: Buffer Kill: kill-other-window-buffer-and-delete-window
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Emacs Grouped Functions: Buffer Kill: kill-other-window-buffer-and-delete-window")
(defun kill-other-window-buffer-and-delete-window ()
"Kill buffer in other window, prompting user to select a window
if there are more than two. Then delete that window."
(interactive)
(kill-other-window-buffer t))
;; kill-other-window-buffer-and-delete-window:1 ends here
;; [[file:init-emacs.org::*Clipboard][Clipboard:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Grouped Functions: Clipboard
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Grouped Functions: Clipboard")
;; Modified versions of the similarly named functions `clipboard-kill-region',
;; `clipboard-kill-ring-save', and `clipboard-yank'. These functions use the
;; Linux command line tool `xsel' (which must be installed) to get the same
;; functionality when running Emacs in command line mode.
;; In Ubuntu/Debian run:
;; sudo apt-get install xsel
;; only load if not in window mode and xsel command is available on system
(when (and (not window-system)
(executable-find "xsel"))
(init-message 4 "xclipboard-kill-region")
(defun xclipboard-kill-region (beg end)
"Kill the region, and save it in the X clipboard."
(interactive "*r")
(async-shell-command
(concat "echo "
(shell-quote-argument (buffer-substring-no-properties beg end))
" | xsel -i"))
(kill-region beg end))
(init-message 4 "xclipboard-kill-ring-save")
(defun xclipboard-kill-ring-save (beg end)
"Copy region to kill ring, and save in the X clipboard."
(interactive "r")
(async-shell-command
(concat "echo "
(shell-quote-argument (buffer-substring-no-properties beg end))
" | xsel -i"))
(kill-ring-save beg end))
(init-message 4 "xclipboard-yank")
(defun xclipboard-yank ()
"Insert the clipboard contents, or the last stretch of killed text."
(interactive "*")
(insert (shell-command-to-string "xsel -o"))))
;; Clipboard:1 ends here
;; [[file:init-emacs.org::*Occur][Occur:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Grouped Functions: Occur
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Emacs Grouped Functions: Occur")
;; Occur:1 ends here
;; [[file:init-emacs.org::*occur-inverse][occur-inverse:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Grouped Functions: Occur: occur-inverse
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Emacs Grouped Functions: Occur: occur-inverse")
(defun occur-inverse (regexp)
"Show all lines in the current buffer not containing a match for REGEXP.
If a non-match spreads across multiple lines, all those lines are shown.
Otherwise, behaves the same as `occur'."
(interactive "sRegexp: ")
(let ((filtered
(mapconcat
(lambda (line)
(if (string-match-p regexp line)
""
line))
(split-string
(buffer-substring-no-properties (point-min) (point-max)) "\n")
"\n")))
(with-temp-buffer
(insert filtered)
(occur ".+"))))
;; occur-inverse:1 ends here
;; [[file:init-emacs.org::*occur-remove][occur-remove:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Emacs Grouped Functions: Occur: occur-remove
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Emacs Grouped Functions: Occur: occur-remove")
(defun occur-remove (regexp)
"Remove all lines in the *Occur* buffer containing a match for REGEXP."
(interactive "sRegexp: ")
(unless (string= (buffer-name) "*Occur*")
(error "This function can only be run within an *Occur* buffer."))
(let ((inhibit-read-only t))
(save-mark-and-excursion
(goto-char (point-min))
(while (not (eobp))
(goto-char (line-beginning-position))
(if (re-search-forward regexp (line-end-position) :noerror)
(delete-line)
(forward-line 1))))))
;; occur-remove:1 ends here
;; [[file:init-emacs.org::*Text Conversion Functions][Text Conversion Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Text Conversion Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Text Conversion Functions")
;; Text Conversion Functions:1 ends here
;; [[file:init-emacs.org::*set-coding-system][set-coding-system:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: set-coding-system
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: set-coding-system")
(defun set-coding-system (coding-system)
"Change buffer file coding system to CODING-SYSTEM.
CODING-SYSTEM could be:
'unix
'dos
'mac
Or any coding system returned by `list-coding-systems'."
(interactive)
(set-buffer-file-coding-system coding-system :force))
;; set-coding-system:1 ends here
;; [[file:init-emacs.org::*escape-xml][escape-xml:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: escape-xml
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: escape-xml")
(defun escape-xml (string)
"Escape XML in STRING."
;; & => &
(setq string (replace-regexp-in-string "&" "&" string))
;; ' => '
(setq string (replace-regexp-in-string "'" "'" string))
;; ! => &bang;
;;(setq string (replace-regexp-in-string "!" "&bang;" string))
;; = => &eq;
;;(setq string (replace-regexp-in-string "=" "&eq;" string))
;; > => >
(setq string (replace-regexp-in-string ">" ">" string))
;; < => <
(setq string (replace-regexp-in-string "<" "<" string))
;; ? => ?
;;(setq string (replace-regexp-in-string "\?" "?" string))
;; " => "
(setq string (replace-regexp-in-string "\"" """ string))
;; / => &slash;
;;(setq string (replace-regexp-in-string "/" "&slash;" string))
;; return result
string)
;; escape-xml:1 ends here
;; [[file:init-emacs.org::*unescape-xml][unescape-xml:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: unescape-xml
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: unescape-xml")
(defun unescape-xml (string)
"Unescape XML in STRING."
;; ' => '
(setq string (replace-regexp-in-string "'" "'" string))
;; &bang; => !
;;(setq string (replace-regexp-in-string "&bang;" "!" string))
;; &eq; => =
;;(setq string (replace-regexp-in-string "&eq;" "=" string))
;; > => >
(setq string (replace-regexp-in-string ">" ">" string))
;; < => <
(setq string (replace-regexp-in-string "<" "<" string))
;; ? => ?
;;(setq string (replace-regexp-in-string "?" "\?" string))
;; " => "
(setq string (replace-regexp-in-string """ "\"" string))
;; &slash; => /
;;(setq string (replace-regexp-in-string "&slash;" "/" string))
;; & => &
(setq string (replace-regexp-in-string "&" "&" string))
;; return result
string)
;; unescape-xml:1 ends here
;; [[file:init-emacs.org::*titleize][titleize:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: titleize
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: titleize")
;; rules found here: http://titlecapitalization.com/
(defun titleize (string &optional do-not-cap-ends)
"Capitalize STRING according to titling conventions.
If a word should be capitalized, `capitalize-word' is called,
otherwise `downcase-word' is called.
If DO-NOT-CAP-ENDS is non-nil, the first and last words will not
be automatically capitalized."
;; TODO: Do not change words that are mixed case or all caps
(interactive "*")
(let ((words-single
'(;; conjunctions
"and" "as" "be" "into" "is" "it" "nor" "or" "so" "the" "that" "yet"
;; prepositions (single words)
"a" "abaft" "aboard" "about" "above" "absent" "across" "afore"
"after" "against" "along" "alongside" "amid" "amidst" "among"
"amongst" "an" "anenst" "apropos" "apud" "around" "as" "aside"
"astride" "at" "athwart" "atop" "barring" "before" "behind" "below"
"beneath" "beside" "besides" "between" "beyond" "but" "by" "circa"
"concerning" "despite" "down" "during" "except" "excluding"
"failing" "following" "for" "forenenst" "from" "given" "in"
"including" "inside" "into" "like" "mid" "midst" "minus" "modulo"
"near" "next" "notwithstanding" "o'" "of" "off" "on" "onto"
"opposite" "out" "outside" "over" "pace" "past" "per" "plus" "pro"
"qua" "regarding" "round" "sans" "save" "since" "than" "through"
"thru" "throughout" "thruout" "till" "times" "to" "toward" "towards"
"under" "underneath" "unlike" "until" "unto" "up" "upon" "versus"
"vs" "via" "vice" "vis-à-vis" "vis-a-vis" "whereas" "with" "within"
"without" "worth"))
(words-double
'(;; prepositions (double words)
"according to" "ahead of" "apart from" "as for" "as of" "as per"
"as regards" "aside from" "back to" "because of" "close to"
"due to" "except for" "far from" "in to" "inside of" "instead of"
"left of" "near to" "next to" "on to" "out from" "out of"
"outside of" "owing to" "prior to" "pursuant to" "rather than"
"regardless of" "right of" "subsequent to" "such as" "thanks to"
"that of" "up to"))
(words-triple
'(;; prepositions (triple words)
"as far as" "as long as" "as opposed to" "as well as" "as soon as"
"at the behest of" "by means of" "by virtue of" "for the sake of"
"in accordance with" "in addition to" "in case of" "in front of"
"in lieu of" "in order to" "in place of" "in point of"
"in spite of" "on account of" "on behalf of" "on top of"
"with regard to" "with respect to" "with a view to")))
(let ((words-single-regexp (regexp-opt (mapcar #'capitalize words-single) 'words))
(words-double-regexp (regexp-opt (mapcar #'capitalize words-double) 'words))
(words-triple-regexp (regexp-opt (mapcar #'capitalize words-triple) 'words))
(abbreviation-word-regexp "\\b[A-Z][.A-Z]+[^ ]*\\b")
(first-word-regexp "^\\(\\w+\\)")
(last-word-regexp "\\(\\w+\\)$"))
(cl-labels
((get-abbrevs (string)
(let ((case-fold-search nil)
(pos 0)
abbrevs)
(while (string-match abbreviation-word-regexp string pos)
(push (list (match-beginning 0)
(match-end 0)
(match-string 0 string))
abbrevs)
(setq pos (match-end 0)))
(nreverse abbrevs)))
(set-abbrevs (string abbrevs)
(let ((string string))
(dolist (a abbrevs)
(setq string
(concat (substring string 0 (car a))
(caddr a)
(substring string (cadr a)))))
string))
(cap (string)
(replace-regexp-in-string
words-single-regexp 'downcase
(replace-regexp-in-string
words-double-regexp 'downcase
(replace-regexp-in-string
words-triple-regexp 'downcase
(capitalize string) t t) t t) t t)))
(let ((abbrevs (get-abbrevs string)))
(if do-not-cap-ends
(set-abbrevs (cap string) abbrevs)
(set-abbrevs
(replace-regexp-in-string
first-word-regexp 'capitalize
(replace-regexp-in-string
last-word-regexp 'capitalize
(cap string) t t) t t) abbrevs)))))))
;; titleize:1 ends here
;; [[file:init-emacs.org::*titleize-word-enhanced][titleize-word-enhanced:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: titleize-word-enhanced
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: titleize-word-enhanced")
(defun titleize-word-enhanced (arg)
"Titleize word at point."
(interactive "*p")
(let ((syntax-table (copy-syntax-table (syntax-table))))
(modify-syntax-entry ?- "." syntax-table)
(modify-syntax-entry ?_ "." syntax-table)
(modify-syntax-entry ?' "w" syntax-table)
(with-syntax-table syntax-table
(dotimes (x (or arg 1))
(let ((p (point)))
(forward-word 1)
(forward-word -1)
(when (< (point) p)
(forward-word 1)))
(let ((bounds (bounds-of-thing-at-point 'word)))
(when bounds
(goto-char (car bounds)))
(when (re-search-forward "\\(\\w+\\)" nil :noerror)
(replace-match (titleize (match-string 0) t) t)))))))
;; titleize-word-enhanced:1 ends here
;; [[file:init-emacs.org::*titleize-line-or-region][titleize-line-or-region:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: titleize-line-or-region
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: titleize-line-or-region")
(defun titleize-line-or-region (&optional beg end)
"Capitalize the current line or selected region according to
titling conventions.
If a word should be capitalized, `capitalize-word' is called,
otherwise `downcase-word' is called."
(interactive "*")
(let* ((pos (point))
(beg (or beg (cond
((use-region-p)
(region-beginning))
((eq major-mode 'wdired-mode)
(point))
(t
(beginning-of-line-text) (point)))))
(end (or end (cond
((use-region-p)
(region-end))
((eq major-mode 'wdired-mode)
(if (re-search-forward "\.[^.]+$" (line-end-position) :noerror)
(match-beginning 0)
(line-end-position)))
(t
(line-end-position)))))
(col (- pos beg)))
(let ((syntax-table (copy-syntax-table (syntax-table)))
(str (buffer-substring-no-properties beg end)))
(modify-syntax-entry ?- "." syntax-table)
(modify-syntax-entry ?_ "." syntax-table)
(modify-syntax-entry ?' "w" syntax-table)
(with-syntax-table syntax-table
(kill-region beg end)
(goto-char beg)
(insert (titleize str))
(goto-char (+ beg col))))))
;; titleize-line-or-region:1 ends here
;; [[file:init-emacs.org::*unfill-paragraph][unfill-paragraph:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: unfill-paragraph
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: unfill-paragraph")
;; reverse of `fill-paragraph'
(defun unfill-paragraph ()
"Convert a multi-line paragraph into a single line of text."
(interactive)
(let ((fill-column (point-max)))
(fill-paragraph nil)))
;; unfill-paragraph:1 ends here
;; [[file:init-emacs.org::*double-space-punctuation][double-space-punctuation:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: double-space-punctuation
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: double-space-punctuation")
(defun double-space-punctuation (&optional beg end)
"Double-space sentence ending punctuation in the current
paragraph or selected region."
(interactive "*")
(save-mark-and-excursion
(save-match-data
(let ((beg (or beg (and (use-region-p) (region-beginning))))
(end (or end (and (use-region-p) (region-end)))))
(unless (and beg end)
(mark-paragraph)
(setq beg (point)
end (mark-marker)))
(goto-char beg)
(while (and (< (point) end)
(re-search-forward "\\([^[:blank:]][.?!]['\"”]?\\)[[:blank:]]\\([^[:blank:]]\\)" end :noerror))
(replace-match "\\1 \\2"))))))
;; double-space-punctuation:1 ends here
;; [[file:init-emacs.org::*single-space-punctuation][single-space-punctuation:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Conversion Functions: single-space-punctuation
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Conversion Functions: single-space-punctuation")
(defun single-space-punctuation (&optional beg end)
"Single-space sentence ending punctuation in the current
paragraph or selected region."
(interactive "*")
(save-mark-and-excursion
(save-match-data
(let ((beg (or beg (and (use-region-p) (region-beginning))))
(end (or end (and (use-region-p) (region-end)))))
(unless (and beg end)
(mark-paragraph)
(setq beg (point)
end (mark-marker)))
(goto-char beg)
(while (and (< (point) end)
(re-search-forward "\\([^[:blank:]][.?!]['\"”]?\\)[[:blank:]]\\([^[:blank:]]\\)" end :noerror))
(replace-match "\\1 \\2"))))))
;; single-space-punctuation:1 ends here
;; [[file:init-emacs.org::*Text Inserting Functions][Text Inserting Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Text Inserting Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Text Inserting Functions")
;; Text Inserting Functions:1 ends here
;; [[file:init-emacs.org::*insert-timestamp][insert-timestamp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-timestamp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-timestamp")
(defun insert-timestamp (&optional pos)
"Insert a timestamp at point or POS."
(interactive "*")
(if pos
(save-mark-and-excursion
(goto-char pos)
(insert (format-time-string "%Y-%m-%d %H:%M:%S")))
(insert (format-time-string "%Y-%m-%d %H:%M:%S"))))
;; insert-timestamp:1 ends here
;; [[file:init-emacs.org::*insert-path][insert-path:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-path
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-path")
(defun insert-path (path)
"Insert path."
(interactive "*FPath: ")
(insert (expand-file-name path)))
;; insert-path:1 ends here
;; [[file:init-emacs.org::*uuid][uuid:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: uuid
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: uuid")
;; uuid
(defmacro uuid ()
"Return a UUID.
Example: 5ac55464-24e6-419c-99cf-5e1682bb3819"
(cond
;; use uuid script if found
((executable-find "uuid")
`(replace-regexp-in-string
"^ +\\|[ \n]+$" ""
(shell-command-to-string "uuid")))
;; otherwise, use linux mcookie command if found
((executable-find "mcookie")
`(let ((uuid (replace-regexp-in-string
"^ +\\|[ \n]+$" ""
(shell-command-to-string "mcookie"))))
(concat (substring uuid 0 8)
"-" (substring uuid 8 12)
"-" (substring uuid 12 16)
"-" (substring uuid 16 20)
"-" (substring uuid 20 32))))
;; else error
(t
`(error "Could not find a suitable system command to produce a UUID"))))
(defalias 'guid 'uuid)
;; old versions
;; (defun uuid ()
;; "Insert a UUID at point.
;;
;; Example: 5ac55464-24e6-419c-99cf-5e1682bb3819"
;; (interactive "*")
;; (insert (substring (shell-command-to-string "${HOME}/bin/uuid") 0 -1)))
;; (defun uuid ()
;; "Insert a UUID at point.
;;
;; Example: 4524044b2c41310701d09e8678bbc64e"
;; (interactive "*")
;; (insert (substring (shell-command-to-string "mcookie") 0 -1)))
;; (defun guid ()
;; "Insert a GUID at point.
;;
;; Example: ed812ddb-87c5-a1e0-3377-ed40a632e6ed"
;; (interactive "*")
;; (let ((uuid (substring (shell-command-to-string "mcookie") 0 -1)))
;; (insert (substring uuid 0 8)
;; "-" (substring uuid 8 12)
;; "-" (substring uuid 12 16)
;; "-" (substring uuid 16 20)
;; "-" (substring uuid 20 32))))
;; uuid:1 ends here
;; [[file:init-emacs.org::*insert-uuid][insert-uuid:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-uuid
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-uuid")
(defun insert-uuid ()
"Insert a UUID at point.
Example: 5ac55464-24e6-419c-99cf-5e1682bb3819"
(interactive "*")
(insert (uuid)))
(defalias 'insert-guid 'insert-uuid)
;; insert-uuid:1 ends here
;; [[file:init-emacs.org::*uuid-xml][uuid-xml:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: uuid-xml
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: uuid-xml")
;; uuid-xml
(defmacro uuid-xml ()
"Return a Java UUID serialized for XML.
Example:
<java.util.UUID>
<default>
<leastSigBits>-8689645201391190588</leastSigBits>
<mostSigBits>-4837091181110474279</mostSigBits>
</default>
</java.util.UUID>"
(let ((cmd "uuid-xml"))
;; use uuid script if found
(if (executable-find cmd)
`(shell-command-to-string (concat ,cmd " | tail -n +2"))
;; else error
`(error "Could not find %s command" ,cmd))))
;; uuid-xml:1 ends here
;; [[file:init-emacs.org::*insert-uuid-xml][insert-uuid-xml:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-uuid-xml
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-uuid-xml")
(defun insert-uuid-xml ()
"Insert a Java UUID serialized for XML at point.
Example:
<java.util.UUID>
<default>
<leastSigBits>-8689645201391190588</leastSigBits>
<mostSigBits>-4837091181110474279</mostSigBits>
</default>
</java.util.UUID>"
(interactive "*")
(insert (uuid-xml)))
;; insert-uuid-xml:1 ends here
;; [[file:init-emacs.org::*insert-incrementing-vertical-numbers][insert-incrementing-vertical-numbers:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-incrementing-vertical-numbers
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-incrementing-vertical-numbers")
(defun insert-incrementing-vertical-numbers (end &optional start)
"Insert incrementing numbers vertically in the current column.
Start with 1 or START (if non-nil) up to and including END."
(interactive "*nMax integer: ")
(let ((start (or start 1))
(col (- (point) (line-beginning-position))))
(cl-do ((x start (1+ x)))
((> x end))
(insert (number-to-string x))
(when (< x end)
(or (zerop (forward-line 1))
(progn
(goto-char (line-end-position))
(newline)))
(let ((pos (+ (line-beginning-position) col)))
(while (< (point) pos)
(if (eobp)
(insert " ")
(forward-char 1))))))))
;; insert-incrementing-vertical-numbers:1 ends here
;; [[file:init-emacs.org::*append-char-to-column][append-char-to-column:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: append-char-to-column
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: append-char-to-column")
(defun append-char-to-column (char col)
"Append character CHAR up to column COL and delete any past that point."
(save-mark-and-excursion
(goto-char (line-end-position))
(while (< (- (point) (line-beginning-position)) col)
(insert char))
(goto-char (+ (line-beginning-position) col))
(while (and
(char-after)
(char-equal (char-after) (string-to-char char)))
(delete-char 1))))
;; append-char-to-column:1 ends here
;; [[file:init-emacs.org::*append-equal-to-column-80][append-equal-to-column-80:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: append-equal-to-column-80
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: append-equal-to-column-80")
(defun append-equal-to-column-80 ()
"Insert equal characters up to column 80."
(interactive "*")
(append-char-to-column "=" 80))
;; append-equal-to-column-80:1 ends here
;; [[file:init-emacs.org::*append-dash-to-column-80][append-dash-to-column-80:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: append-dash-to-column-80
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: append-dash-to-column-80")
(defun append-dash-to-column-80 ()
"Insert dash characters up to column 80."
(interactive "*")
(append-char-to-column "-" 80))
;; append-dash-to-column-80:1 ends here
;; [[file:init-emacs.org::*append-asterisk-to-column-80][append-asterisk-to-column-80:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: append-asterisk-to-column-80
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: append-asterisk-to-column-80")
(defun append-asterisk-to-column-80 ()
"Insert asterisk characters up to column 80."
(interactive "*")
(append-char-to-column "*" 80))
;; append-asterisk-to-column-80:1 ends here
;; [[file:init-emacs.org::*insert-lisp-comment-block-equal][insert-lisp-comment-block-equal:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-lisp-comment-block-equal
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-lisp-comment-block-equal")
(defun insert-lisp-comment-block-equal ()
"Insert lisp comment block (equal)."
(interactive "*")
(indent-according-to-mode)
(insert ";;")
(append-equal-to-column-80)
(end-of-line)
(newline-and-indent)
(insert ";;")
(newline-and-indent)
(insert ";;")
(append-equal-to-column-80)
(end-of-line)
(newline)
(forward-line -2)
(end-of-line)
(insert " "))
;; insert-lisp-comment-block-equal:1 ends here
;; [[file:init-emacs.org::*insert-lisp-comment-block-dash][insert-lisp-comment-block-dash:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-lisp-comment-block-dash
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-lisp-comment-block-dash")
(defun insert-lisp-comment-block-dash ()
"Insert lisp comment block (dash)."
(interactive "*")
(indent-according-to-mode)
(insert ";;")
(append-dash-to-column-80)
(end-of-line)
(newline-and-indent)
(insert ";;")
(newline-and-indent)
(insert ";;")
(append-dash-to-column-80)
(end-of-line)
(newline)
(forward-line -2)
(end-of-line)
(insert " "))
;; insert-lisp-comment-block-dash:1 ends here
;; [[file:init-emacs.org::*insert-center-lisp-comment][insert-center-lisp-comment:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-center-lisp-comment
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-center-lisp-comment")
(defun insert-center-lisp-comment ()
"Insert center lisp comment (in comment block)."
(interactive "*")
(save-mark-and-excursion
(save-match-data
(goto-char (line-beginning-position))
(while (looking-at " +") (forward-char 1))
(while (looking-at ";+") (forward-char 1))
(let ((start (point)))
(forward-line -1)
(let ((len (- (line-end-position) (line-beginning-position)))
(spacer (char-before (line-end-position))))
(forward-line 1)
(while (search-forward (char-to-string spacer) (line-end-position) :noerror)
(replace-match ""))
(goto-char start)
(while (looking-at " ")
(delete-char 1 t))
(goto-char (line-end-position))
(while (eq (char-before (point)) ? )
(delete-char -1 t))
(let ((spacers (- (floor (/ (- len (- (point) start)) 2)) 4)))
(goto-char start)
(insert " " (make-string spacers spacer) " ")
(goto-char (line-end-position))
(insert " ")
(insert (make-string (- len (- (point) (line-beginning-position))) ?=))))))))
;; insert-center-lisp-comment:1 ends here
;; [[file:init-emacs.org::*insert-c-comment-block][insert-c-comment-block:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-c-comment-block
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-c-comment-block")
(defun insert-c-comment-block ()
"Insert c/c++/java comment block."
(interactive "*")
(indent-according-to-mode)
(insert "/")
(append-asterisk-to-column-80)
(end-of-line)
(newline-and-indent)
(insert "*")
(indent-according-to-mode)
(newline-and-indent)
(insert "*")
(indent-according-to-mode)
(append-asterisk-to-column-80)
(end-of-line)
(delete-char -1)
(insert "/")
(newline)
(forward-line -2)
(end-of-line)
(insert " "))
;; insert-c-comment-block:1 ends here
;; [[file:init-emacs.org::*insert-c-comment-stub][insert-c-comment-stub:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-c-comment-stub
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-c-comment-stub")
(defun insert-c-comment-stub ()
"Insert c/c++/java comment stub."
(interactive "*")
(end-of-line)
(indent-according-to-mode)
(insert "/**")
(newline-and-indent)
(insert "*")
(indent-according-to-mode)
(newline-and-indent)
(insert "*/")
(indent-according-to-mode)
(newline)
(forward-line -2)
(end-of-line)
(insert " "))
;; insert-c-comment-stub:1 ends here
;; [[file:init-emacs.org::*insert-db-change-log-template-line][insert-db-change-log-template-line:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-db-change-log-template-line
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-db-change-log-template-line")
(defun insert-db-change-log-template-line ()
"Insert Everest DB Change Log template line at point."
(interactive "*")
;;(insert (cons '(format-time-string "%m/%d" (current-time)) " | | | E_ | .D.Q.S.T.P. | yes\n"))
(insert (format-time-string "%m/%d" (current-time)))
(insert " | | | E_ | .D.Q.S.T.P. | yes")
(newline)
(forward-line -1)
(forward-char 8))
;; insert-db-change-log-template-line:1 ends here
;; [[file:init-emacs.org::*insert-db-change-log-template-line-legacy][insert-db-change-log-template-line-legacy:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-db-change-log-template-line-legacy
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-db-change-log-template-line-legacy")
(defun insert-db-change-log-template-line-legacy ()
"Insert Legacy DB Change Log template line at point."
(interactive "*")
(insert (format-time-string "%m/%d" (current-time)))
(insert " | | | AwardCafe_Client | .D.S.P. | yes")
(newline)
(forward-line -1)
(forward-char 8))
;; insert-db-change-log-template-line-legacy:1 ends here
;; [[file:init-emacs.org::*insert-xml-header][insert-xml-header:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-xml-header
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-xml-header")
(defun insert-xml-header ()
"Insert standard XML header.
Specifically: <?xml version=\"1.0\" encoding=\"utf-8\"?>"
(interactive "*")
(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>"))
;; insert-xml-header:1 ends here
;; [[file:init-emacs.org::*insert-lexical-binding][insert-lexical-binding:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-lexical-binding
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-lexical-binding")
(defun insert-lexical-binding ()
"Insert file local variable `lexical-binding' in the first line
of the current buffer."
(interactive "*")
(save-mark-and-excursion
(goto-char (point-min))
(if (looking-at ";; -\\*-.*-\\*-")
(unless (looking-at ";; -\\*-.*lexical-binding:.*-\\*-")
(goto-char (line-end-position))
(forward-char -4)
(when (looking-at " -\\*-")
(forward-char -1)
(if (looking-at ";")
(forward-char 1)
(progn
(forward-char 1)
(insert ";")))
(insert " lexical-binding: t;")))
(insert ";; -*- lexical-binding: t; -*-\n;;\n"))))
;; insert-lexical-binding:1 ends here
;; [[file:init-emacs.org::*insert-figlet][insert-figlet:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Text Inserting Functions: insert-figlet
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Text Inserting Functions: insert-figlet")
(defun insert-figlet (text)
"Insert figlet version of TEXT, if figlet is installed."
(interactive "*sText: ")
(if (executable-find "figlet")
(insert (shell-command-to-string (concat "figlet " text)))
(error "Could not find figlet command")))
;; insert-figlet:1 ends here
;; [[file:init-emacs.org::*External Program Functions][External Program Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: External Program Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: External Program Functions")
;; External Program Functions:1 ends here
;; [[file:init-emacs.org::*insert-date][insert-date:1]]
;;------------------------------------------------------------------------------
;;;; Functions: External Program Functions: insert-date
;;------------------------------------------------------------------------------
(init-message 3 "Functions: External Program Functions: insert-date")
(defun insert-date ()
"Insert current date in YYYY-MM-DD format."
(interactive "*")
(call-process "date" nil t nil "+%Y-%m-%d")
(delete-char -1))
;; insert-date:1 ends here
;; [[file:init-emacs.org::*insert-datetime][insert-datetime:1]]
;;------------------------------------------------------------------------------
;;;; Functions: External Program Functions: insert-datetime
;;------------------------------------------------------------------------------
(init-message 3 "Functions: External Program Functions: insert-datetime")
(defun insert-datetime ()
"Insert current date and time in YYYY-MM-DD HH:MM:SS format."
(interactive "*")
(call-process "date" nil t nil "+%Y-%m-%d %H:%M:%S")
(delete-char -1))
;; insert-datetime:1 ends here
;; [[file:init-emacs.org::*insert-time][insert-time:1]]
;;------------------------------------------------------------------------------
;;;; Functions: External Program Functions: insert-time
;;------------------------------------------------------------------------------
(init-message 3 "Functions: External Program Functions: insert-time")
(defun insert-time ()
"Insert current time in HH:MM:SS format."
(interactive "*")
(call-process "date" nil t nil "+%H:%M:%S")
(delete-char -1))
;; insert-time:1 ends here
;; [[file:init-emacs.org::*insert-date-stamp][insert-date-stamp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: External Program Functions: insert-date-stamp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: External Program Functions: insert-date-stamp")
(defun insert-date-stamp ()
"Insert current date in YYYYMMDD format."
(interactive "*")
(call-process "date" nil t nil "+%Y%m%d")
(delete-char -1))
;; insert-date-stamp:1 ends here
;; [[file:init-emacs.org::*insert-fortune][insert-fortune:1]]
;;------------------------------------------------------------------------------
;;;; Functions: External Program Functions: insert-fortune
;;------------------------------------------------------------------------------
(init-message 3 "Functions: External Program Functions: insert-fortune")
(defun insert-fortune (&optional file)
"Insert a random fortune.
If FILE is non-nil, use that fortune file."
(interactive "*")
(call-process "fortune" nil t nil "-a" (if file (shell-quote-argument file) "")))
;; insert-fortune:1 ends here
;; [[file:init-emacs.org::*insert-quote][insert-quote:1]]
;;------------------------------------------------------------------------------
;;;; Functions: External Program Functions: insert-quote
;;------------------------------------------------------------------------------
(init-message 3 "Functions: External Program Functions: insert-quote")
(defun insert-quote ()
"Insert a random quote."
(interactive "*")
(insert-fortune (expand-file-name "~/quotes")))
;; insert-quote:1 ends here
;; [[file:init-emacs.org::*insert-arch-package-description][insert-arch-package-description:1]]
;;------------------------------------------------------------------------------
;;;; Functions: External Program Functions: insert-arch-package-description
;;------------------------------------------------------------------------------
(init-message 3 "Functions: External Program Functions: insert-arch-package-description")
(defun insert-arch-package-description (package)
"Insert Arch OS package description for given PACKAGE."
(interactive "*")
(cl-labels
((command-path (command)
(let ((path (s-trim (shell-command-to-string
(format "which %s 2>/dev/null" command)))))
(if (string= path "")
nil
path))))
(let ((package-manager (or (command-path "pamac")
(command-path "yaourt")
(command-path "yay")
(command-path "pacman"))))
(if package-manager
(let ((cmd (format
"%s %s %s | awk '/^%s / {p=1;next}p' | tr -d '\\n' | tr -s '[:blank:]'"
package-manager
(if (string= (substring package-manager -5) "pamac")
"search -a"
"-Ss")
package
package)))
(message "Searching for Arch package: %s" cmd)
(insert (s-trim (shell-command-to-string cmd))))
(error "Neither 'pamac', 'yaourt', 'yay', or 'pacman' where found in path")))))
;; insert-arch-package-description:1 ends here
;; [[file:init-emacs.org::*set-arch-package-description][set-arch-package-description:1]]
;;------------------------------------------------------------------------------
;;;; Functions: External Program Functions: set-arch-package-description
;;------------------------------------------------------------------------------
(init-message 3 "Functions: External Program Functions: set-arch-package-description")
(defun set-arch-package-description ()
"Set Arch OS package description for package install command found on current line."
(interactive "*")
(save-mark-and-excursion
(forward-line 0)
(when (and
(re-search-forward "\\b\\(pacman\\|yaourt\\|yay\\|pamac\\)\\([ \t]+\\(-S\\|install\\|build\\)\\)\\([ \t]+-[^ \t]*\\)*" (point-at-eol) :noerror)
(re-search-forward "[ \t]*\\b\\([^ \t]+\\)\\b" (point-at-eol) :noerror))
(let ((package (match-string-no-properties 1)))
;; remove any existing description
(if (re-search-forward "#" (point-at-eol) :noerror)
(progn
(delete-region (point) (line-end-position))
(insert " "))
(progn
(end-of-line)
(insert " # ")))
(insert-arch-package-description package)
(align-comments)))))
;; set-arch-package-description:1 ends here
;; [[file:init-emacs.org::*Newer Emacs Functionality Functions][Newer Emacs Functionality Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Newer Emacs Functionality Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Newer Emacs Functionality Functions")
;; Newer Emacs Functionality Functions:1 ends here
;; [[file:init-emacs.org::*line-number-at-pos][line-number-at-pos:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Newer Emacs Functionality Functions: line-number-at-pos
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Newer Emacs Functionality Functions: line-number-at-pos")
(unless (fboundp 'line-number-at-pos)
(defun line-number-at-pos (&optional pos)
"Return (narrowed) buffer line number at position POS.
If POS is nil, use current buffer location."
(save-mark-and-excursion
(when pos
(goto-char pos))
(1+ (count-lines (point-min) (line-beginning-position))))))
;; line-number-at-pos:1 ends here
;; [[file:init-emacs.org::*save-mark-and-excursion][save-mark-and-excursion:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Newer Emacs Functionality Functions: save-mark-and-excursion
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Newer Emacs Functionality Functions: save-mark-and-excursion")
(unless (fboundp 'save-mark-and-excursion)
(defmacro save-mark-and-excursion (&rest body)
"Like `save-excursion', but also save and restore the mark state.
This macro does what `save-excursion' did before Emacs 25.1."
(declare (indent 0) (debug t))
(let ((saved-marker-sym (make-symbol "saved-marker")))
`(let ((,saved-marker-sym (save-mark-and-excursion--save)))
(unwind-protect
(save-excursion ,@body)
(save-mark-and-excursion--restore ,saved-marker-sym))))))
;; save-mark-and-excursion:1 ends here
;; [[file:init-emacs.org::*Grep Search Functions][Grep Search Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Grep Search Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Grep Search Functions")
;; Grep Search Functions:1 ends here
;; [[file:init-emacs.org::*grep-elisp][grep-elisp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-elisp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-elisp")
(defun grep-elisp (query &optional extended)
"Grep custom elisp directories for QUERY.
Run `grep' COMMAND, where COMMAND is:
`grep-default-command' QUERY FILES
FILES is a list of files generated from the following
files/directories:
`emacs-home-dir' or ~/.emacs.d (if EXTENDED is t)
`local-init-dir' if it exists
`local-modules-dir' if it exists
A file matching pattern of `*.el$' is used."
(interactive "sGrep custom elisp files: ")
(let (paths
path
files)
(if extended
(if (and (boundp 'emacs-home-dir)
(file-exists-p emacs-home-dir))
(push emacs-home-dir paths)
"~/.emacs.d")
(progn
(when (and (boundp 'local-init-dir)
local-init-dir
(file-exists-p local-init-dir))
(push local-init-dir paths))
(when (and (boundp 'local-modules-dir)
local-modules-dir
(file-exists-p local-modules-dir))
(push local-modules-dir paths))))
;; loop through paths
(while paths
(setq path (expand-file-name (car paths)))
(setq paths (cdr paths))
;; traverse directories
(if (file-directory-p path)
;; loop through files
(dolist (file (nreverse (directory-files path t)))
;; ignore `.' and `..'
(unless (string-match "^\\.\\.?$" (file-name-nondirectory file))
;; add directories to paths
(if (file-directory-p file)
(push file paths)
;; add elisp file
(when (string-match "\\.el\\'" file)
(push file files)))))
;; add file
(push path files)))
;; build command
(let ((cmd (or grep-command "grep -n -H -i -r -e ")))
;; add query
(setq cmd (concat cmd " \"" query "\""))
;; add files
(dolist (file files)
(setq cmd (concat cmd " \"" file "\"")))
;; execute command using `grep' command
(grep cmd))))
;; grep-elisp:1 ends here
;; [[file:init-emacs.org::*grep-elisp-extended][grep-elisp-extended:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-elisp-extended
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-elisp-extended")
(defun grep-elisp-extended (query)
"Call `grep-elisp' with QUERY and EXTENDED set to t."
(interactive "sGrep custom elisp files (extended): ")
(grep-elisp query t))
;; grep-elisp-extended:1 ends here
;; [[file:init-emacs.org::*grep-custom][grep-custom:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-custom
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-custom")
;; grep custom macro
(defmacro grep-custom (dirs match)
"Return a custom grep function.
DIRS is a list of the directories to search.
MATCH is the file pattern to match."
`(lambda (query)
(let ((paths (reverse (quote ,dirs)))
(match ,match)
path
files)
;; loop through paths
(while paths
(setq path (expand-file-name (car paths)))
(setq paths (cdr paths))
;; traverse directories
(if (file-directory-p path)
;; loop through files
(dolist (file (nreverse (directory-files path t)))
;; ignore `.' and `..' and svn directories
(unless (or (string-match "^\\.\\.?$" (file-name-nondirectory file))
(string-match "\\.svn" (file-name-nondirectory file)))
;; add directories to paths
(if (file-directory-p file)
(push file paths)
;; add files in directories to files
(when (or (not match)
(string-match match file))
(push file files)))))
;; add file
(push path files)))
;; build command
(let ((cmd (or grep-command "grep -n -H -i -e")))
;; add query
(setq cmd (concat cmd " \"" query "\""))
;; add files
(dolist (file files)
(setq cmd (concat cmd " \"" file "\"")))
;; execute command using `grep' command
(grep cmd)))))
;; examples:
;; (funcall (grep-custom ("~/.profile") ".*") "path")
;; grep-custom:1 ends here
;; [[file:init-emacs.org::*grep-custom-generate][grep-custom-generate:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-custom-generate
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-custom-generate")
(defmacro grep-custom-generate (name prompt dirs match)
"Generate a custom grep function.
NAME is the function name.
PROMPT is displayed if no query is given.
DIRS is a list of the directories to search.
MATCH is the file pattern to match."
(let ((dirs dirs)
(match match))
`(defun ,name (query)
,(concat "Grep custom directories for QUERY.\n\n"
"Run `grep' COMMAND, where COMMAND is:\n\n"
"`grep-default-command' QUERY FILES\n\n"
"FILES is a list of files generated from the following\n"
"files/directories:\n\n"
(concat " " (cl-reduce (lambda (x y) (concat x "\n " y)) dirs) "\n\n")
"A file matching pattern of `" match "' is used.")
(interactive ,(concat "s" prompt))
(funcall (grep-custom ,dirs ,match) query))))
;; grep-custom-generate:1 ends here
;; [[file:init-emacs.org::*grep-bin][grep-bin:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-bin
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-bin")
;; grep bin
(grep-custom-generate grep-bin "Grep HOME bin files: " ("~/bin") nil)
;; grep-bin:1 ends here
;; [[file:init-emacs.org::*grep-clojure][grep-clojure:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-clojure
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-clojure")
;; grep clojure
(grep-custom-generate grep-clojure "Grep Clojure files: " ("~/dev/clojure") "\\(\\.org$\\|\\.clj$\\)")
;; grep-clojure:1 ends here
;; [[file:init-emacs.org::*grep-clisp][grep-clisp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-clisp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-clisp")
;; grep clisp
(grep-custom-generate grep-clisp "Grep CLISP files: " ("~/dev/clisp") "\\(\\.org$\\|\\.lisp$\\)")
;; grep-clisp:1 ends here
;; [[file:init-emacs.org::*grep-emacs-init][grep-emacs-init:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-emacs-init
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-emacs-init")
;; grep emacs initialization
(grep-custom-generate grep-emacs-init "Grep Emacs Initialization files: "
("~/.emacs.d/init.el"
"~/.emacs.d/init-emacs.org"
"~/.emacs.d/customization.el")
"\\(\\.org$\\|\\.el$\\)")
;; grep-emacs-init:1 ends here
;; [[file:init-emacs.org::*grep-home-init][grep-home-init:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-home-init
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-home-init")
;; grep home
(grep-custom-generate grep-home-init "Grep Home Initialization files: "
("~/org/init-home.org") "\\.org\\'")
;; grep-home-init:1 ends here
;; [[file:init-emacs.org::*grep-org][grep-org:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-org
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-org")
;; grep org
(grep-custom-generate grep-org "Grep org files: " ("~/org") "\\.org\\'")
;; grep-org:1 ends here
;; [[file:init-emacs.org::*grep-python][grep-python:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-python
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-python")
;; grep python
(grep-custom-generate grep-python "Grep Python files: " ("~/dev/python") "\\(\\.org$\\|\\.py$\\)")
;; grep-python:1 ends here
;; [[file:init-emacs.org::*grep-racket][grep-racket:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-racket
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-racket")
;; grep racket
(grep-custom-generate grep-racket "Grep Racket files: " ("~/dev/racket") "\\.rkt\\'")
;; grep-racket:1 ends here
;; [[file:init-emacs.org::*grep-web][grep-web:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Grep Search Functions: grep-web
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Grep Search Functions: grep-web")
;; grep web
(grep-custom-generate grep-web "Grep web files: " ("~/web/org") "\\.org\\'")
;; grep-web:1 ends here
;; [[file:init-emacs.org::*TAGS File Functions][TAGS File Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: TAGS File Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: TAGS File Functions")
;; TAGS File Functions:1 ends here
;; [[file:init-emacs.org::*etags-create][etags-create:1]]
;;------------------------------------------------------------------------------
;;;; Functions: TAGS File Functions: etags-create
;;------------------------------------------------------------------------------
(init-message 3 "Functions: TAGS File Functions: etags-create")
(defun etags-create (&optional local)
"Create local TAGS file.
If LOCAL is non-nil, visit the new TAGS file locally only.
First an existing TAGS file is searched for going up the
directory path. If none is found, a \"src\" directory is
searched for and, if found, its parent directory is used.
Failing that the user is prompted for the location."
(interactive)
(let ((file (or (find-file-updir "TAGS")
(when (find-file-updir "src")
(expand-file-name (concat (find-file-updir "src") "/../TAGS")))
;; ask for TAGS directory if not found
(concat (read-directory-name "Top of source tree: " default-directory) "/TAGS")))
(extension (or (file-name-extension buffer-file-name)
;; extension defaults to `el'
"el"))
query)
;; generate find command parameters
;; for c/c++ files, add extra extensions
(if (member extension '("h" "c" "hpp" "cpp"))
(setq query "-name \"*.h\" -o -name \"*.c\" -o -name \"*.hpp\" -o -name \"*.cpp\"")
(setq query (concat "-name \"*." extension "\"")))
(let ((cmd (concat "find " (file-name-directory file) " " query " -print0 | "
"grep -zZv \"/.svn/\" | "
"xargs -0 etags -o " file " && "
"echo 'Created TAGS file'")))
(message (format "Running command: %s" cmd))
;; create tags file
(shell-command cmd)
;; kill TAGS buffer
(when (get-buffer "TAGS")
(kill-buffer "TAGS"))
;; set tags file
(visit-tags-table file local))))
;; etags-create:1 ends here
;; [[file:init-emacs.org::*Code Formatting Functions][Code Formatting Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Code Formatting Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Code Formatting Functions")
;; Code Formatting Functions:1 ends here
;; [[file:init-emacs.org::*indent-region-or-thing][indent-region-or-thing:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: indent-region-or-thing
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: indent-region-or-thing")
(defun indent-region-or-thing (&optional beg end)
"Indent selected region, or org code block, or sexp surrounding
point, or line."
(interactive)
(let ((case-fold-search t)
(beg (or beg (if (use-region-p) (region-beginning) nil)))
(end (or end (if (use-region-p) (region-end) nil)))
(eol (line-end-position)))
(deactivate-mark)
(save-window-excursion
(save-mark-and-excursion
(save-match-data
(cond
;; region
((and beg end)
(indent-region beg end))
;; org code block
((and (eq major-mode 'org-mode)
(eq (org-element-type (org-element-at-point)) 'src-block))
(condition-case nil
(let ((case-fold-search t)
(re "^\\([ \t]*\\)#\\+BEGIN_\\(\\sw+\\)"))
(forward-line 0)
(unless (looking-at re)
(re-search-backward re))
(replace-match "" nil nil nil 1)
(re-search-forward (concat "^\\([ \t]*\\)#\\+END_" (match-string 2)))
(replace-match "" nil nil nil 1))
('error nil))
(org-babel-do-in-edit-buffer (indent-region (point-min) (point-max))))
;; sexp
((save-excursion
(and (beginning-of-defun)
(progn
(end-of-defun)
(> (point) eol))))
(beginning-of-defun)
(indent-region (line-beginning-position) (line-end-position))
(let* ((bounds (bounds-of-thing-at-point 'sexp))
(beg (car bounds))
(end (cdr bounds)))
(indent-region beg end)))
(t
(indent-according-to-mode))))))))
;; indent-region-or-thing:1 ends here
;; [[file:init-emacs.org::*indent-buffer][indent-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: indent-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: indent-buffer")
(defun indent-buffer ()
"Indent current buffer."
(indent-region (point-min) (point-max)))
;; indent-buffer:1 ends here
;; [[file:init-emacs.org::*find-code-block][find-code-block:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: find-code-block
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: find-code-block")
(defun find-code-block (&optional regexp indent)
"Find the begin and end of code block containing point.
When run interactively, then begin and end points of the block
are printed in the minibuffer. Otherwise, a list containing them
is returned.
A code block is defined as contiguous lines of text having the
same indentation. So a code block ends when either the
indentation changes or a blank line is reached.
The begin point will be at the start of a line and the end point
will be at the end of a line, unless point is not in a code block
in which case nil is returned for both.
The optional parameter REGEXP is an additional regular expression
to match on. If non-nil, every line in the code block must also
match REGEXP.
If optional parameter INDENT is non-nil then each line will be
indented via `indent-according-to-mode'."
(interactive "*")
(let (beg
end
(ind 0)
(blank-line-regexp "^[ \t]*$"))
(save-mark-and-excursion
;; indent if INDENT is t
;;(when indent
;; (indent-according-to-mode))
(setq ind (current-indentation))
(goto-char (line-beginning-position))
;; continue if we are in a code block
(unless (or
(looking-at blank-line-regexp)
(if regexp
(not (looking-at regexp))
nil))
;; move up to first line in block
(while (and
(not (bobp))
(not (looking-at blank-line-regexp))
(= ind (current-indentation))
(if regexp
(looking-at regexp)
t))
(forward-line -1)
;; indent if INDENT is t
;;(when indent
;; (indent-according-to-mode))
(goto-char (line-beginning-position)))
;; if current line is not part of range, then move down
(unless (and
(not (looking-at blank-line-regexp))
(= ind (current-indentation))
(if regexp
(looking-at regexp)
t))
(forward-line 1))
(goto-char (line-beginning-position))
(setq beg (point))
;; indent if INDENT is t
(when indent
(indent-according-to-mode))
(setq ind (current-indentation))
;; move down to last line in block
(while (and
(not (eobp))
(not (looking-at blank-line-regexp))
(= ind (current-indentation))
(if regexp
(looking-at regexp)
t))
(forward-line 1)
;; indent if INDENT is t
(when indent
(indent-according-to-mode))
(goto-char (line-beginning-position)))
(unless (and
(not (looking-at blank-line-regexp))
(= ind (current-indentation))
(if regexp
(looking-at regexp)
t))
(forward-line -1))
(end-of-line)
(setq end (point))))
(if (called-interactively-p 'any)
(message "%s %s" beg end)
(list beg end))))
;; find-code-block:1 ends here
;; [[file:init-emacs.org::*align-assignment-commands][align-assignment-commands:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: align-assignment-commands
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: align-assignment-commands")
;; TODO: look at `align' and `align-regexp' functions to help with this
(defun align-assignment-commands (&optional indent)
"Align a block of variable assignment commands.
Match any contiguous block of code (presumably assignment
commands) and align the equal signs.
If optional parameter INDENT is non-nil then each line will be
indented via `indent-according-to-mode'.
Example:
// assignments
var1 = value1; // var1
variable2 = value2; // var2
Becomes:
// assignments
var1 = value1; // var1
variable2 = value2; // var2"
(interactive "*")
(let* ((range (find-code-block nil indent)) ; range
(beg (car range)) ; beginning of range
(end (cadr range)) ; end of range
(pos 0)
(equal-regexp "[ \t]*=[ \t]*"))
(save-mark-and-excursion
;; if there are lines in range, continue
(when (> end beg)
;; preserve block range
(save-restriction
(narrow-to-region beg end)
;; preserve search data
(save-match-data
;; move down code block
(goto-char (point-min))
(while (< (point) (point-max))
;; store farthest equal sign that is not in a comment
(when (and
(re-search-forward equal-regexp (line-end-position) :noerror)
(not (equal (get-char-property (point) 'face)
'font-lock-comment-face)))
;; remove extra whitespace
(goto-char (line-beginning-position))
(re-search-forward equal-regexp (line-end-position))
(replace-match " = ")
;; put point before the equal sign
(backward-char 2)
;; store point if larger than others
(when (> (- (point) (line-beginning-position)) pos)
(setq pos (- (point) (line-beginning-position)))))
(goto-char (line-beginning-position))
(forward-line 1))
;; move through the block, padding as needed
(goto-char (point-min))
(while (< (point) (point-max))
(when (and
(re-search-forward equal-regexp (line-end-position) :noerror)
(not (equal (get-char-property (point) 'face)
'font-lock-comment-face)))
(backward-char 2)
;; pad as needed
(while (< (- (point) (line-beginning-position)) pos)
(insert " ")))
(goto-char (line-beginning-position))
(forward-line 1))
;; handle lines that ends in a comment
(goto-char (point-min))
(while (< (point) (point-max))
(goto-char (line-beginning-position))
(forward-char (current-indentation))
;; if line is not a comment line and line ends in a comment, then
;; call comment-indent
(when (and
(not (equal (get-char-property (line-end-position) 'face)
'font-lock-comment-face))
(equal (get-char-property (line-end-position) 'face)
'font-lock-comment-face))
(comment-indent))
(forward-line 1))))))))
;; align-assignment-commands:1 ends here
;; [[file:init-emacs.org::*align-assignment-commands-indent][align-assignment-commands-indent:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: align-assignment-commands-indent
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: align-assignment-commands-indent")
(defun align-assignment-commands-indent ()
(interactive "*")
(align-assignment-commands t))
;; align-assignment-commands-indent:1 ends here
;; [[file:init-emacs.org::*align-declaration-commands][align-declaration-commands:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: align-declaration-commands
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: align-declaration-commands")
;; TODO: fix removal of extra whitespace in block
;; TODO: fix adding whitespace where needed in block
(defun align-declaration-commands (&optional indent)
"Align a block of variable declaration commands.
If optional parameter INDENT is non-nil then each line will be
indented via `indent-according-to-mode'.
Example:
// variables
public Integer i; // int example
public String s; // string example
private Integer i2; // int 2
private String s2; // string 2
protected Date dte; // date example
Becomes:
// variables
public Integer i; // int example
public String s; // string example
private Integer i2; // int 2
private String s2; // string 2
protected Date dte; // date example"
(interactive "*")
(let* ((range (find-code-block nil indent)) ; range
(beg (car range)) ; beginning of range
(end (cadr range)) ; end of range
face ; current font face
face-prev ; previous font face
face-change ; has face changed
(change -1) ; current column to align on
(change-prev -2) ; previous column to align on
(whitespace-regexp "[ \t]+")) ; regexp to match whitespace
(save-mark-and-excursion
;; if there are lines in range, continue
(when (> end beg)
;; preserve block range
(save-restriction
(narrow-to-region beg end)
;; preserve search data
(save-match-data
;; remove extra whitespace
(goto-char (point-min))
(while (< (point) (point-max))
(forward-char (current-indentation))
(while (re-search-forward whitespace-regexp (line-end-position) :noerror)
(replace-match " "))
(goto-char (line-beginning-position))
(forward-line 1))
;; loop until all face changes have been analyzed
(while (> change change-prev)
;; update change-prev
(setq change-prev change)
;; set change-prev to indent on first pass
(when (< change-prev 0)
(setq change-prev (current-indentation)))
;; clear face
(setq face nil)
;; clear face-prev
(setq face-prev nil)
;; goto start of range
(goto-char (point-min))
;; loop through all lines in range
(while (< (point) (point-max))
;; goto start of line + indentation
(goto-char (line-beginning-position))
(forward-char (current-indentation))
;; ignore comment lines
(unless (member (get-char-property (point) 'face)
(list 'font-lock-comment-face
'nxml-comment-delimiter-face
'nxml-comment-content-face))
;; goto start of line + change-prev
(goto-char (line-beginning-position))
(forward-char change-prev)
;; get face-prev of first non-whitespace character
(unless face-prev
(save-mark-and-excursion
(while (and (< (point) (line-end-position))
(looking-at whitespace-regexp))
(forward-char 1))
(when (< (point) (line-end-position))
(setq face-prev (get-char-property (point) 'face)))))
;; move forward until we hit whitespace, tracking any face change
(setq face-change nil)
(while (and (< (point) (line-end-position))
(not (looking-at whitespace-regexp)))
(when (not (equal face-prev (get-char-property (point) 'face)))
(setq face-change t))
(forward-char 1))
;; move forward until a non-whitespace character is reached that
;; changes the face
(while (and (< (point) (line-end-position))
(or
(looking-at whitespace-regexp)
(and (not face-change)
(equal face-prev (get-char-property (point) 'face)))))
(forward-char 1))
;; if the face changed and it is farther than the current
;; change, set the face and change value; face is set on the
;; first pass after which a match is expected
(when (and (< (point) (line-end-position))
(< change (- (point) (line-beginning-position)))
(if face
(equal face (get-char-property (point) 'face))
t))
;; only set face on first pass
(unless face
(setq face (get-char-property (point) 'face)))
(setq change (- (point) (line-beginning-position)))))
;; move to next line and continue
(forward-line 1))
;; if a face change is found, align lines
(when (> change change-prev)
;; goto start of range
(goto-char (point-min))
;; loop through all lines in range
(while (< (point) (point-max))
;; goto start of line + indentation
(goto-char (line-beginning-position))
(forward-char (current-indentation))
;; ignore comment lines
(unless (member (get-char-property (point) 'face)
(list 'font-lock-comment-face
'nxml-comment-delimiter-face
'nxml-comment-content-face))
;; goto start of line + change-prev
(goto-char (line-beginning-position))
(forward-char change-prev)
;; find start of face change
;; move forward until whitespace is reached
(while (and (< (point) (line-end-position))
(not (looking-at whitespace-regexp)))
(forward-char 1))
;; move forward until a non-whitespace character is reached
;; that matches the face change
(while (and (< (point) (line-end-position))
(or
(looking-at whitespace-regexp)
(not (equal face (get-char-property (point) 'face)))))
(forward-char 1))
;; space as needed
(while (< (- (point) (line-beginning-position)) change)
;; TODO: as a precaution check that previous character is
;; whitespace
(insert " ")))
;; move to next line and continue
(forward-line 1))))
;; handle lines that ends in a comment
(goto-char (point-min))
(while (< (point) (point-max))
(goto-char (line-beginning-position))
(forward-char (current-indentation))
;; if line is not a comment line and line ends in a comment, then
;; call comment-indent
(when (and
(not (equal (get-char-property (line-end-position) 'face)
'font-lock-comment-face))
(equal (get-char-property (line-end-position) 'face)
'font-lock-comment-face))
(comment-indent))
(forward-line 1))))))))
;; align-declaration-commands:1 ends here
;; [[file:init-emacs.org::*align-declaration-commands-indent][align-declaration-commands-indent:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: align-declaration-commands-indent
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: align-declaration-commands-indent")
(defun align-declaration-commands-indent ()
(interactive "*")
(align-declaration-commands t))
;; align-declaration-commands-indent:1 ends here
;; [[file:init-emacs.org::*align-comments][align-comments:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: align-comments
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: align-comments")
(defun align-comments (&optional beg end)
"Align a block of commented lines.
If region is not given, one of the following blocks will be
used (tried in order):
- Org source block
- Symbolic expression
- Current line
Example:
// variables
public Integer i; // int example
public String s; // string example
private Integer i2; // int 2
private String s2; // string 2
protected Date dte; // date example
Becomes:
// variables
public Integer i; // int example
public String s; // string example
private Integer i2; // int 2
private String s2; // string 2
protected Date dte; // date example"
(interactive "*")
(let ((case-fold-search t)
(comment-regexp (concat "\\(\\s-*\\)" comment-start))
(point (point))
(beg (or beg (if (use-region-p) (region-beginning) nil)))
(end (or end (if (use-region-p) (region-end) nil))))
(deactivate-mark)
(save-window-excursion
(save-mark-and-excursion
(save-match-data
(cond
;; region
((and beg end)
(align-regexp beg end comment-regexp))
;; org code block
((and (eq major-mode 'org-mode)
(eq (org-element-type (org-element-at-point)) 'src-block))
(condition-case nil
(let ((case-fold-search t)
(re "^\\([ \t]*\\)#\\+BEGIN_\\(\\sw+\\)"))
(forward-line 0)
(unless (looking-at re)
(re-search-backward re))
(replace-match "" nil nil nil 1)
(re-search-forward (concat "^\\([ \t]*\\)#\\+END_" (match-string 2)))
(replace-match "" nil nil nil 1))
('error nil))
(org-babel-do-in-edit-buffer (align-regexp (point-min) (point-max) comment-regexp)))
;; sexp
((beginning-of-defun)
(let* ((bounds (bounds-of-thing-at-point 'sexp))
(beg (car bounds))
(end (cdr bounds)))
(align-regexp beg end comment-regexp)))
(t
(align-regexp (point-at-bol) (point-at-eol) comment-regexp))))))
(goto-char point)))
;; align-comments:1 ends here
;; [[file:init-emacs.org::*java-toggle-comment-type][java-toggle-comment-type:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: java-toggle-comment-type
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: java-toggle-comment-type")
(defun java-toggle-comment-type ()
"Toggle between single and multi-line Java/C comments.
Examples:
/*
// comment => * comment
*/
/*
* comment => // comment
*/"
(interactive "*")
(let ((indentation-regexp "^[ \t]*")
(empty-line-regexp "^[ \t]*$")
(single-line-comment-regexp "^[ \t]*// ")
(multi-line-comment-regexp "^[ \t]*\\* ")
(multi-line-comment-begin-regexp "^[ \t]*/\\*")
(multi-line-comment-end-regexp "^[ \t]*\\*/")
(class-regexp "\\bclass\\b"))
(save-mark-and-excursion
(save-match-data
(goto-char (line-beginning-position))
(if (looking-at single-line-comment-regexp)
;; convert single line comments into a multi-line comment
(let ((beg (progn
(while (and (not (bobp))
(looking-at single-line-comment-regexp))
(forward-line -1))
(when (not (looking-at single-line-comment-regexp))
(forward-line 1))
(line-beginning-position)))
(end (progn
(while (and (not (eobp))
(looking-at single-line-comment-regexp))
(forward-line 1))
(when (not (looking-at single-line-comment-regexp))
(forward-line -1))
(line-end-position)))
(space (make-string (- (re-search-forward indentation-regexp) (line-beginning-position)) ? ))
(class (progn
(goto-char (line-beginning-position))
(forward-line 1)
(while (looking-at empty-line-regexp)
(forward-line 1))
(looking-at class-regexp))))
(goto-char beg)
;;(insert (concat space "/*" (if class "*" "")))
(insert (concat space "/*"))
(newline)
(while (re-search-forward single-line-comment-regexp end :noerror)
(replace-match (concat space " * ")))
(goto-char (line-end-position))
(newline)
(insert (concat space " */")))
;; convert multi-line comment to single line comments
(let ((beg (progn
(while (and (not (bobp))
(or (looking-at multi-line-comment-regexp)
(looking-at multi-line-comment-end-regexp)))
(forward-line -1))
(if (looking-at multi-line-comment-begin-regexp)
(line-beginning-position)
nil)))
(end (progn
(while (and (not (eobp))
(or (looking-at multi-line-comment-regexp)
(looking-at multi-line-comment-begin-regexp)))
(forward-line 1))
(if (looking-at multi-line-comment-end-regexp)
(line-end-position)
nil)))
(space (make-string (- (re-search-forward indentation-regexp) (line-beginning-position) 1) ? )))
(when (and beg end)
(goto-char beg)
(delete-region (point) (progn (forward-line 1) (point)))
(while (re-search-forward multi-line-comment-regexp end :noerror)
(replace-match (concat space "// ")))
(goto-char (line-end-position))
(delete-region (point) (progn (forward-line 1) (goto-char (line-end-position)) (point))))))))))
(init-message 3 "Functions: Code Formatting Functions: c-toggle-comment-type")
(defalias 'c-toggle-comment-type 'java-toggle-comment-type)
;; java-toggle-comment-type:1 ends here
;; [[file:init-emacs.org::*java-remove-comments][java-remove-comments:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: java-remove-comments
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: java-remove-comments")
(defun java-remove-comments (&optional beg end)
"Remove all Java comments from buffer or region."
(interactive "*")
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max)))))
(save-mark-and-excursion
(save-restriction
(narrow-to-region beg end)
(let (quote ; whether inside a quote
escape ; whether inside an escape
comment) ; whether inside a block comment
(goto-char (point-min))
(while (not (eobp))
(forward-char 1)
(let ((char (preceding-char))
(next-char (following-char)))
(cl-case char
(?\" ; quote
(unless (or comment escape)
(setq quote (not quote))))
(?\\ ; escape
(unless comment
(setq escape (not escape))))
(t
(if comment ; inside block comment
(when (and (char-equal char ?*) (char-equal next-char ?/)) ; check for comment end
(forward-char 1)
(when (and (eolp) (not (eobp)))
(forward-char 1))
(delete-region comment (point))
(setq comment nil))
(unless (or quote escape) ; check for comment start
(cond
;; inline comment
((and (char-equal char ?/) (char-equal next-char ?/))
(forward-char -1)
(while (and (not (bolp))
(or (char-equal (preceding-char) ? )
(char-equal (preceding-char) ?\t)))
(forward-char -1))
(let ((mark (point)))
(goto-char (line-end-position))
(when (not (eobp))
(forward-char 1))
(delete-region mark (point))))
;; block comment
((and (char-equal char ?/) (char-equal next-char ?*))
(setq comment (1- (point))))))))))))))))
;; java-remove-comments:1 ends here
;; [[file:init-emacs.org::*lisp-to-camel-case][lisp-to-camel-case:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: lisp-to-camel-case
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: lisp-to-camel-case")
(defun lisp-to-camel-case ()
"Convert word under point from lisp notation to camel case notation."
(interactive "*")
(let* ((bounds (bounds-of-thing-at-point 'word))
(beg (car bounds))
(end (cdr bounds)))
(save-mark-and-excursion
(save-restriction
(save-match-data
(narrow-to-region beg end)
(goto-char (point-min))
(while (re-search-forward "-" nil :noerror)
(let ((p (point)))
(capitalize-word 1)
(goto-char p)))
(goto-char (point-min))
(while (re-search-forward "-" nil :noerror)
(replace-match "")))))))
;; lisp-to-camel-case:1 ends here
;; [[file:init-emacs.org::*camel-case-to-lisp][camel-case-to-lisp:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: camel-case-to-lisp
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: camel-case-to-lisp")
(defun camel-case-to-lisp ()
"Convert word under point from camel case notation to lisp notation."
(interactive "*")
(let* ((bounds (bounds-of-thing-at-point 'word))
(beg (car bounds))
(end (cdr bounds))
(case-fold-search nil))
(save-mark-and-excursion
(save-restriction
(save-match-data
(narrow-to-region beg end)
(goto-char (point-min))
(while (re-search-forward "[A-Z]" nil :noerror)
(forward-char -1)
(insert "-")
(forward-char 1))
(goto-char (point-min))
(downcase-word 1))))))
;; camel-case-to-lisp:1 ends here
;; [[file:init-emacs.org::*c-pretty-print-buffer][c-pretty-print-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: c-pretty-print-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: c-pretty-print-buffer")
(defun c-pretty-print-buffer (&optional beg end)
"Clean up c/c++ code."
(interactive "*")
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max)))))
(save-mark-and-excursion
(save-restriction
(save-match-data
(narrow-to-region beg end)
;; remove tabs
(remove-tabs)
;; remove trailing blanks
(remove-trailing-blanks)
;; remove extra spaces from functions
(goto-char (point-min))
(while (re-search-forward "([ \t]*" nil :noerror)
(replace-match "("))
(goto-char (point-min))
(while (re-search-forward "[ \t]*)" nil :noerror)
(replace-match ")"))
;; remove extra spaces from template references
;;(goto-char (point-min))
;;(while (re-search-forward "<[ \t]*\\(.*?\\)[ \t]*>" nil :noerror)
;; (replace-match "<\\1>"))
;; add spaces after commas
(goto-char (point-min))
(while (re-search-forward "\\,\\([^ ]\\)" nil :noerror)
(replace-match ", \\1"))
;; remove double or more spaces
(goto-char (point-min))
(while (re-search-forward "\\([^ \.]\\) +" nil :noerror)
(replace-match "\\1 "))
;; remove double or more blank lines
(goto-char (point-min))
(while (re-search-forward "\n\n\n+" nil :noerror)
(replace-match "\n\n"))
;; remove blank line before block start
(goto-char (point-min))
(while (re-search-forward "\n\n[ \t]*{" nil :noerror)
(replace-match "\n{")
(indent-according-to-mode))
;; indent buffer
(indent-region (point-min) (point-max) nil))))))
;; c-pretty-print-buffer:1 ends here
;; [[file:init-emacs.org::*ruby-pretty-print-buffer][ruby-pretty-print-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: ruby-pretty-print-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: ruby-pretty-print-buffer")
(defun ruby-pretty-print-buffer (&optional beg end)
"Clean up ruby code."
(interactive "*")
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max)))))
(save-mark-and-excursion
(save-restriction
(save-match-data
(narrow-to-region beg end)
;; remove tabs
(remove-tabs)
;; remove trailing blanks
(remove-trailing-blanks)
;; remove extra spaces from functions
(goto-char (point-min))
(while (re-search-forward "([ \t]*\\(.*?\\)[ \t]*)" nil :noerror)
(replace-match "(\\1)"))
;; remove extra spaces from variable references
(goto-char (point-min))
(while (re-search-forward "#{[ \t]*\\(.*?\\)[ \t]*}" nil :noerror)
(replace-match "#{\\1}"))
;; remove extra spaces from hash references
(goto-char (point-min))
(while (re-search-forward "\\[[ \t]*\\(.*?\\)[ \t]*\\]" nil :noerror)
(replace-match "[\\1]"))
;; remove extra spaces from each clauses
(goto-char (point-min))
(while (re-search-forward "|[ \t]*\\(.*?\\)[ \t]*|" nil :noerror)
(replace-match "|\\1|"))
;; add spaces after commas
(goto-char (point-min))
(while (re-search-forward "\\,\\([^ ]\\)" nil :noerror)
(replace-match ", \\1"))
;; remove double or more spaces
(goto-char (point-min))
(while (re-search-forward "\\([^ \.]\\) +" nil :noerror)
(replace-match "\\1 "))
;; remove double or more blank lines
(goto-char (point-min))
(while (re-search-forward "\n\n\n+" nil :noerror)
(replace-match "\n\n"))
;; indent buffer
(indent-region (point-min) (point-max) nil))))))
;; ruby-pretty-print-buffer:1 ends here
;; [[file:init-emacs.org::*java-pretty-print-buffer][java-pretty-print-buffer:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: java-pretty-print-buffer
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: java-pretty-print-buffer")
(defun java-pretty-print-buffer (&optional beg end)
"Clean up Java code."
(interactive "*")
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max)))))
(save-mark-and-excursion
(save-restriction
(save-match-data
(narrow-to-region beg end)
;; remove tabs
(remove-tabs)
;; remove trailing blanks
(remove-trailing-blanks)
;; remove extra spaces from functions
(goto-char (point-min))
(while (re-search-forward "([ \t]*" nil :noerror)
(replace-match "("))
(goto-char (point-min))
(while (re-search-forward "[ \t]*)" nil :noerror)
(replace-match ")"))
;; add spaces after commas
(goto-char (point-min))
(while (re-search-forward "\\,\\([^ ]\\)" nil :noerror)
(replace-match ", \\1"))
;; add spaces after special forms keywords names
(dolist (name '("catch" "else" "for" "if" "return" "switch" "while"))
(goto-char (point-min))
(while (re-search-forward (concat name "(") nil :noerror)
(replace-match (concat name " ("))))
;; join "} CONNECTOR {" into one line
(dolist (name '("catch" "else"))
(goto-char (point-min))
(while (re-search-forward (concat "}[ \t\n]*" name) nil :noerror)
(replace-match (concat "} " name))
(indent-according-to-mode)))
;; remove double or more spaces
(goto-char (point-min))
(while (re-search-forward "\\([^ \.]\\) +" nil :noerror)
(replace-match "\\1 "))
;; remove double or more blank lines
(goto-char (point-min))
(while (re-search-forward "\n\n\n+" nil :noerror)
(replace-match "\n\n"))
;; remove blank line before block start
(goto-char (point-min))
(while (re-search-forward "\n\n[ \t]*{" nil :noerror)
(replace-match "\n{")
(indent-according-to-mode))
;; indent buffer
(indent-region (point-min) (point-max) nil))))))
;; java-pretty-print-buffer:1 ends here
;; [[file:init-emacs.org::*xml-format][xml-format:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Formatting Functions: xml-format
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Formatting Functions: xml-format")
(defun xml-format (&optional beg end)
"Format XML buffer.
Convert poorly formatted XML into something better."
(interactive "*")
(let ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max))))
(mode major-mode))
(save-mark-and-excursion
(save-restriction
(save-match-data
(narrow-to-region beg end)
(xml-mode)
(let ((xml-eol "[ \t]*\n[ \t]*")
(xml-tag-end-regexp ">")
(xml-close-tag-regexp "</")
(xml-block-regexp "<[^>]*>[^<]*</[^>]*>"))
;; remove all existing EOL characters
(goto-char (point-min))
(while (re-search-forward xml-eol nil :noerror)
(replace-match ""))
;; move down code adding newlines were needed
(goto-char (point-min))
(while (re-search-forward xml-tag-end-regexp nil :noerror)
(insert "\n")
(when (and
(looking-at xml-block-regexp)
(not (looking-at xml-close-tag-regexp)))
(re-search-forward xml-block-regexp nil :noerror)
(forward-char -1)))
;; indent buffer
(indent-region (point-min) (point-max)))
(funcall mode))))))
;; xml-format:1 ends here
;; [[file:init-emacs.org::*Code Inserting Functions][Code Inserting Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Code Inserting Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Code Inserting Functions")
;; Code Inserting Functions:1 ends here
;; [[file:init-emacs.org::*project-euler-insert-template][project-euler-insert-template:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Inserting Functions: project-euler-insert-template
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Inserting Functions: project-euler-insert-template")
(defun project-euler-insert-template (num &optional count)
"Insert a Project Euler template for NUM.
If optional COUNT is given, repeat up to NUM+COUNT-1."
(let ((buffer-name "project-euler.lisp"))
(unless (string= (buffer-name) buffer-name)
(error "Buffer is not '%s'" buffer-name))
(dotimes (x (or count 1))
(let ((strnum (format "%03d" (+ num x))))
(save-mark-and-excursion
(save-match-data
(goto-char (point-min))
(re-search-forward "^;;; Template")
(goto-char (line-beginning-position))
(forward-line 3)
(let ((beg (point)))
(forward-sexp 2)
(goto-char (line-beginning-position))
(forward-line 2)
(let ((template (replace-regexp-in-string
"\\?" strnum
(buffer-substring-no-properties beg (point)))))
(search-backward-regexp "^;;; New Problems")
(forward-line -1)
(insert template)))))))))
;; project-euler-insert-template:1 ends here
;; [[file:init-emacs.org::*insert-tree][insert-tree:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Code Inserting Functions: insert-tree
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Code Inserting Functions: insert-tree")
(defun insert-tree (leaves padding)
"Insert binary tree with LEAVES at the bottom and PADDING on the left."
(let ((size (* 3 (expt 2 leaves)))
(pad (do* ((l 1 (1+ l))
(pad 0 (+ pad (* 3 (expt 2 l)))))
((> l leaves) pad))))
(cl-do ((s size (1- s)))
((zerop s))
(let ((i ""))
(dotimes (x (+ padding s))
(setq i (concat i " ")))
(setq i (concat i "/"))
(dotimes (x (* (- size s) 2))
(setq i (concat i " ")))
(setq i (concat i "\\"))
(insert i)
(newline)))))
;; /\
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; 1 / \ 1
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; / \
;; /\ /\
;; / \ / \
;; / \ / \
;; / \ / \
;; / \ / \
;; 1 / \ 2 1 / \ 2
;; / \ / \
;; / \ / \
;; / \ / \
;; / \ / \
;; / \ / \
;; / \ / \
;; /\ /\ /\ /\
;; / \ / \ / \ / \
;; 1 / \ 3 2 / \ 6 1 / \ 3 2 / \ 6
;; / \ / \ / \ / \
;; / \ / \ / \ / \
;; / \ / \ / \ / \
;; /\ /\ /\ /\ /\ /\ /\ /\
;; 1 / \ 4 3 / \ 12 2 / \ 8 6 / \ 24 1 / \ 4 3 / \ 12 2 / \ 8 6 / \ 24
;; / \ / \ / \ / \ / \ / \ / \ / \
;; insert-tree:1 ends here
;; [[file:init-emacs.org::*Esoteric Functions][Esoteric Functions:1]]
;;------------------------------------------------------------------------------
;;; Functions: Esoteric Functions
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Esoteric Functions")
;; Esoteric Functions:1 ends here
;; [[file:init-emacs.org::*Fahrenheit/Celsius Conversions][Fahrenheit/Celsius Conversions:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: Fahrenheit/Celsius Conversions
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Esoteric Functions: Fahrenheit/Celsius Conversions")
;; Fahrenheit/Celsius Conversions:1 ends here
;; [[file:init-emacs.org::*fahrenheit-to-celsius][fahrenheit-to-celsius:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: Fahrenheit/Celsius Conversions: fahrenheit-to-celsius
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Esoteric Functions: Fahrenheit/Celsius Conversions: fahrenheit-to-celsius")
(defun fahrenheit-to-celsius (deg)
"Convert fahrenheit degrees to celsius."
(/ (* (- deg 32.0) 5.0) 9.0))
;; fahrenheit-to-celsius:1 ends here
;; [[file:init-emacs.org::*fahrenheit-to-celsius-query][fahrenheit-to-celsius-query:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: Fahrenheit/Celsius Conversions: fahrenheit-to-celsius-query
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Esoteric Functions: Fahrenheit/Celsius Conversions: fahrenheit-to-celsius-query")
(defun fahrenheit-to-celsius-query (deg)
"Prompt user for fahrenheit degrees to convert to celsius."
(interactive "nFahrenheit degrees: ")
(let ((cel (fahrenheit-to-celsius deg)))
(when (called-interactively-p 'any)
(message "Celsius degrees: %s" cel))
cel))
;; fahrenheit-to-celsius-query:1 ends here
;; [[file:init-emacs.org::*celsius-to-fahrenheit][celsius-to-fahrenheit:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: Fahrenheit/Celsius Conversions: celsius-to-fahrenheit
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Esoteric Functions: Fahrenheit/Celsius Conversions: celsius-to-fahrenheit")
(defun celsius-to-fahrenheit (deg)
"Convert celsius degrees to fahrenheit."
(+ (* (/ deg 5.0) 9.0) 32.0))
;; celsius-to-fahrenheit:1 ends here
;; [[file:init-emacs.org::*celsius-to-fahrenheit-query][celsius-to-fahrenheit-query:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: Fahrenheit/Celsius Conversions: celsius-to-fahrenheit-query
;;------------------------------------------------------------------------------
(init-message 4 "Functions: Esoteric Functions: Fahrenheit/Celsius Conversions: celsius-to-fahrenheit-query")
(defun celsius-to-fahrenheit-query (deg)
"Prompt user for celsius degrees to convert to fahrenheit."
(interactive "nCelsius degrees: ")
(let ((cel (celsius-to-fahrenheit deg)))
(when (called-interactively-p 'any)
(message "Fahrenheit degrees: %s" cel))
cel))
;; celsius-to-fahrenheit-query:1 ends here
;; [[file:init-emacs.org::*base-conversion][base-conversion:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: base-conversion
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Esoteric Functions: base-conversion")
(defun base-conversion (base-from base-to num)
"Convert NUM from BASE-FROM to BASE-TO."
(interactive)
;; first get base 10 number
(let ((num
(do* ((n (mod num 10) (mod num 10))
(num (/ num 10) (/ num 10))
(pos 1 (* pos base-from))
(result (* pos n) (+ result (* pos n))))
((zerop num) result))))
;; now convert to base-to
(do* ((n (mod num base-to) (mod num base-to))
(num (/ num base-to) (/ num base-to))
(pos 1 (* pos base-to))
(result (* pos n) (+ result (* pos n))))
((zerop num) result))))
;; base-conversion:1 ends here
;; [[file:init-emacs.org::*ldif-update-xml][ldif-update-xml:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: ldif-update-xml
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Esoteric Functions: ldif-update-xml")
(defun ldif-update-xml ()
"Update an LDIF node with the base64 encoded value of an XML block.
Must be run from the attribute being updated, which must be in
the form of `attribute::'."
(interactive "*")
(let (beg
end
attr
block
(blank-line-regexp "^[ \t]*$"))
(save-mark-and-excursion
(save-match-data
;; save attr position
(goto-char (line-beginning-position))
(when (search-forward "::" (line-end-position) :noerror)
(setq attr (point))
;; find xml block
(when (search-forward "<?xml" nil :noerror)
;; get xml block range (fron starting <?xml to first blank line)
;; TODO: make this better by search for starting and ending xml
;; nodes
(setq beg (line-beginning-position))
(while (and
(not (eobp))
(not (looking-at blank-line-regexp)))
(forward-line 1))
(forward-line -1)
(end-of-line)
(setq end (point))
;; copy block to temp buffer
(setq block (buffer-substring beg end))
;; following two lines used for debugging
;;(save-current-buffer
;; (set-buffer (get-buffer-create "*temp*"))
(with-temp-buffer
(insert block)
(goto-char (point-min))
;; if block is commented out, then uncomment
(search-forward "<?xml")
(goto-char (line-beginning-position))
(when (char-equal (char-after (point)) ?#)
(while (char-equal (char-after (point)) ?#)
;; remove leading #
(delete-char 1)
;; remove single space if exists
(when (char-equal (char-after (point)) ? )
(delete-char 1))
(forward-line 1)
(goto-char (line-beginning-position))))
;; remove comment lines
(goto-char (point-min))
(while (re-search-forward "^[ \t]*#" (point-max) :noerror)
(delete-region (line-beginning-position) (line-end-position))
(unless (eobp)
(delete-char 1)))
;; base64 encode block
(base64-encode-region (point-min) (point-max))
;; append every line with a space
(goto-char (point-min))
(while (not (eobp))
(goto-char (line-beginning-position))
(insert " ")
(forward-line 1))
;; copy encoded block
(setq block (buffer-substring (point-min) (point-max))))
;; delete attr data
(goto-char attr)
(delete-region (point) (line-end-position))
(forward-line 1)
(goto-char (line-beginning-position))
(while (char-equal (char-after (point)) ? )
(delete-region (line-beginning-position) (line-end-position))
(delete-char 1))
;; paste encoded block
(goto-char attr)
(insert block)))))))
;; ldif-update-xml:1 ends here
;; [[file:init-emacs.org::*lisp-to-racket-conversion][lisp-to-racket-conversion:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: lisp-to-racket-conversion
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Esoteric Functions: lisp-to-racket-conversion")
(defun lisp-to-racket-conversion ()
"Find and convert next Lisp function header into Racket format."
(interactive "*")
(re-search-forward "^[ \t]*\(\\(defun\\)")
(backward-kill-word 1)
(let ((indent (buffer-substring-no-properties (line-beginning-position) (1- (point)))))
(insert "define")
(forward-char 1)
(insert "(")
(let ((fn-name-start (point)))
(re-search-forward " ")
(let ((fn-name
(replace-regexp-in-string
"-" " "
(buffer-substring-no-properties fn-name-start (1- (point))))))
(delete-char 1)
(forward-line 0)
(forward-line 1)
(let ((start (point)))
(re-search-forward "^[ \t]*\"" (line-end-position))
(let ((str-start (point))
(escape nil))
;; find end of quoted string
(while (not (and (not escape) (char-equal (char-after) ?\")))
(when (char-equal (char-after) ?\\)
(setq escape (not escape)))
(forward-char 1))
(let ((str (replace-regexp-in-string
(concat "\n" indent)
(concat "\n" indent ";; ")
(buffer-substring-no-properties str-start (point)))))
(forward-line 0)
(forward-line 1)
(delete-region start (point))
(forward-line -2)
(end-of-line)
(insert (concat "\n" indent ";;------------------------------------------------------------------------------\n"))
(insert (concat indent ";;;; " fn-name))
(titleize-line-or-region)
(insert (concat "\n" indent ";;\n" indent ";; " str "\n"))
(insert (concat indent ";;------------------------------------------------------------------------------\n\n"))
(forward-line 0)
(forward-line 2))))))))
;; lisp-to-racket-conversion:1 ends here
;; [[file:init-emacs.org::*integer-to-roman-numerals][integer-to-roman-numerals:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Esoteric Functions: integer-to-roman-numerals
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Esoteric Functions: integer-to-roman-numerals")
(defun integer-to-roman-numerals (num)
"Return romain numeral version of given integer NUM.
Roman numerals use I, V, X, L, C, D, and M, standing respectively
for 1, 5, 10, 50, 100, 500, and 1,000."
(interactive "NInteger number: ")
(when (< num 0)
(error "NUM must be 1 or greater"))
(when (>= num 5000)
(error "NUM must be less than 5,000"))
(let ((roman))
(cl-labels
((convert (num)
(cond
((>= num 1000)
(push "M" roman)
(- num 1000))
((>= num 900)
(push "CM" roman)
(- num 900))
((>= num 500)
(push "D" roman)
(- num 500))
((>= num 400)
(push "CD" roman)
(- num 400))
((>= num 100)
(push "C" roman)
(- num 100))
((>= num 90)
(push "XC" roman)
(- num 90))
((>= num 50)
(push "L" roman)
(- num 50))
((>= num 40)
(push "XL" roman)
(- num 40))
((>= num 10)
(push "X" roman)
(- num 10))
((>= num 9)
(push "IX" roman)
(- num 9))
((>= num 5)
(push "V" roman)
(- num 5))
((>= num 4)
(push "IV" roman)
(- num 4))
((>= num 1)
(push "I" roman)
(- num 1)))))
(while (> num 0)
(setq num (convert num)))
(mapconcat 'identity (nreverse roman) ""))))
;; integer-to-roman-numerals:1 ends here
;; [[file:init-emacs.org::*Programs][Programs:1]]
;;------------------------------------------------------------------------------
;;; Functions: Programs
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Programs")
;; Programs:1 ends here
;; [[file:init-emacs.org::*National Debt][National Debt:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Programs: National Debt
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Programs: National Debt")
(defun national-debt ()
"Return the current US national debt."
(interactive)
(save-current-buffer
(let ((buffer (url-retrieve-synchronously "http://brillig.com/debt_clock/"))
result)
(when buffer
(with-current-buffer buffer
(goto-char (point-min))
(when (re-search-forward "debtiv\.gif.*[Aa][Ll][Tt]=\"\\([^\"]*\\)" nil :noerror)
(setq result
(replace-regexp-in-string
"\s+" ""
(buffer-substring-no-properties (match-beginning 1) (match-end 1)))))))
(if result
(if (called-interactively-p 'any)
(message result)
(string-to-number
(replace-regexp-in-string "," ""
(replace-regexp-in-string "\\$" "" result))))
(message "Error fetching the national debt")))))
;; National Debt:1 ends here
;; [[file:init-emacs.org::*Flesch Readability Index][Flesch Readability Index:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Programs: Flesch Readability Index
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Programs: Flesch Readability Index")
(defun flesch-readability-index (&optional beg end)
"Compute the Flesch Readability Index of the current region or entire buffer.
The Flesch Readability Index is defined on wikipedia here:
http://en.wikipedia.org/wiki/Flesch-Kincaid_Readability_Test
This function provides that index following the guidelines presented here:
http://cs.boisestate.edu/~amit/teaching/125/lab/p4.html
Guidelines:
- Count all words in the text. A word is any sequence of
characters delimited by white space, whether or not it is an
actual English word.
- Count all syllables in each word. To make this simple, use
the following rules. Each group of adjacent
vowels (a,e,i,o,u,y) counts as one syllable (for example, the
\"ea\" in \"real\" contributes one syllable, but the \"e..a\"
in \"regal\" count as two syllables). However, an \"e\" at
the end of a word doesn't count as a syllable. For example,
the word \"eagle\" would be one syllable by Flesch's rules.
However, the word \"intrigue\" is three syllables (since the
e is preceded by a vowel). Also, each word has at least one
syllable, even if the previous rules give a count of zero.
- Count all sentences. A sentence is ended by a period, colon,
semicolon, questions mark, or exclamation mark.
- The index is computed by:
index = 206.835 - (1.015 * words / sentences) - (84.6 * syllables / words)
- Index should be rounded to the nearest integer.
The index is a number, usually between 0 and 100, indicating how
difficult the text is to read."
(interactive)
(cl-labels
((count-words (beg end)
(how-many "\\w+" beg end))
(count-sentences (beg end)
(how-many "[\.\:\;\?\!]\\W" beg end))
;; (count-sentences (beg end)
;; (save-mark-and-excursion
;; (let ((count 0))
;; (goto-char beg)
;; (while (< (point) end)
;; (forward-sentence 1)
;; (setq count (1+ count))))))
(count-syllables (beg end)
(let ((letter-regexp "[A-Za-z]")
(vowel-regexp "[AEIOUYaeiouy]")
(e-end-regexp "[Ee]\\W"))
(save-mark-and-excursion
(let ((count 0))
(goto-char beg)
(while (< (point) end)
(while (and (< (point) end)
(not (looking-at letter-regexp)))
(forward-char 1))
(let ((state (if (looking-at vowel-regexp) 2 1)))
(when (= state 2)
(setq count (1+ count)))
(while (looking-at letter-regexp)
(if (and (= state 1)
(looking-at vowel-regexp)
(not (looking-at e-end-regexp)))
(setq state 2
count (1+ count))
(if (and (= state 2)
(not (looking-at vowel-regexp)))
(setq state 1)))
(forward-char 1))))
count)))))
(let* ((beg (or beg (if (use-region-p) (region-beginning) (point-min))))
(end (or end (if (use-region-p) (region-end) (point-max))))
(words (count-words beg end))
(sentences (count-sentences beg end))
(syllables (count-syllables beg end))
(index (round (- 206.835
(/ (* 1.015 words) (if (> sentences 0) sentences 1))
(/ (* 84.6 syllables) (if (> words 0) words 1)))))
(index-desc
(cond
((> index 90) "5th grader")
((> index 80) "6th grader")
((> index 70) "7th grader")
((> index 65) "8th grader")
((> index 60) "9th grader")
((> index 50) "High school student")
((> index 30) "College student")
((>= index 0) "College graduate")
(t "Law school graduate"))))
(message "Words: %s, Sentences: %s, Syllables %s, Flesch Readability Index: %s (%s)"
words sentences syllables index index-desc)
index)))
;; Flesch Readability Index:1 ends here
;; [[file:init-emacs.org::*Phone Number Words][Phone Number Words:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Programs: Phone Number Words
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Programs: Phone Number Words")
;; TODO: finish this
(defun phone-number-words (num &optional word-file)
"Convert phone number NUM into word strings that may be used instead.
Single digits may appear between words.
WORD-FILE defaults to `/usr/share/dict/words'."
(interactive "sPhone number: ")
(let ((word-file (or word-file "/usr/share/dict/words")))
(defun file-to-string (file)
(with-temp-buffer
(insert-file-contents file)
(buffer-string)))
(defun string-to-list (string)
(cl-loop for x across string collect x))
(defun list-to-string (list)
(mapconcat 'string list ""))
;;(setq word-file "~/tw")
(unless (file-exists-p word-file)
(error "Word file `%s' does not exist" word-file))
;; load word file
(let* ((words (split-string (file-to-string word-file))) ; word list
(word-hash (make-hash-table :size (length words))) ; number to word hash
(letter-digit '((?A . ?2) (?B . ?2) (?C . ?2)
(?D . ?3) (?E . ?3) (?F . ?3)
(?G . ?4) (?H . ?4) (?I . ?4)
(?J . ?5) (?K . ?5) (?L . ?5)
(?M . ?6) (?N . ?6) (?O . ?6)
(?P . ?7) (?Q . ?7) (?R . ?7) (?S . ?7)
(?T . ?8) (?U . ?8) (?V . ?8)
(?W . ?9) (?X . ?9) (?Y . ?9) (?Z . ?9)))) ; letter to digit mappings
;; build word hash
(dolist (word words)
(let* ((letters (string-to-list (upcase word)))
(number (list-to-string (mapcar (lambda (x) (char-to-string (cdr (assoc x letter-digit)))) letters))))
;;(message "letters: %S, number: %S" letters number)
(setf (gethash number word-hash) word))))))
;; Phone Number Words:1 ends here
;; [[file:init-emacs.org::*Keyboard Cat Mode][Keyboard Cat Mode:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Programs: Keyboard Cat Mode
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Programs: Keyboard Cat Mode")
(defvar keyboard-cat-overlay nil)
(defun keyboard-cat-next ()
(interactive)
(move-overlay keyboard-cat-overlay
(goto-char (min (1+ (overlay-start keyboard-cat-overlay))
(point-max)))
(overlay-end keyboard-cat-overlay)))
(defvar keyboard-cat-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [remap self-insert-command] 'keyboard-cat-next)
(define-key map [remap keyboard-quit] 'keyboard-cat-mode)
map))
(define-minor-mode keyboard-cat-mode
"Minor mode that slowly exposes current buffer as keys are pressed."
:init nil
:keymap keyboard-cat-mode-map
(if keyboard-cat-mode
(overlay-put
(setq-local keyboard-cat-overlay
(make-overlay (point-min) (point-max)))
'invisible t)
(delete-overlay keyboard-cat-overlay)))
;; Keyboard Cat Mode:1 ends here
;; [[file:init-emacs.org::*Keyboard Display Mode][Keyboard Display Mode:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Programs: Keyboard Display Mode
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Programs: Keyboard Display Mode")
(defvar keyboard-display-process-name "gxmessage")
(defvar keyboard-display-key-log nil)
(defvar keyboard-display-key-log-width 0)
(defvar keyboard-display-key-log-size 10
"Maximum number of key presses to keep in the log.")
(defvar keyboard-display-key-log-duration 5
"Number of seconds to keep key presses in the key log.")
(defvar keyboard-display-message-duration 5
"Number of seconds to keep key press display showing.")
(defvar keyboard-display-last-key "")
(defvar keyboard-display-last-key-count 1)
(defun keyboard-display-key-press ()
"Display current key press using gxmessage."
(let ((key (concat (if current-prefix-arg
(concat current-prefix-arg " ")
"")
(symbol-name this-command))))
(when keyboard-display-key-log
(if (< (caar (reverse keyboard-display-key-log))
(- (float-time (current-time)) keyboard-display-key-log-duration))
(setq keyboard-display-key-log nil
keyboard-display-key-log-width 0
keyboard-display-last-key ""
keyboard-display-last-key-count 1)
(when (>= (length keyboard-display-key-log) keyboard-display-key-log-size)
(pop keyboard-display-key-log))))
(if (string= keyboard-display-last-key key)
(setq key (concat key " x " (number-to-string (cl-incf keyboard-display-last-key-count))))
(setq keyboard-display-last-key key
keyboard-display-last-key-count 1))
(when (> (length key) keyboard-display-key-log-width)
(setq keyboard-display-key-log-width (length key)))
(setq key (substring (concat key (make-string keyboard-display-key-log-width ? ))
0 keyboard-display-key-log-width))
(if (> keyboard-display-last-key-count 1)
(setcdr (car (last keyboard-display-key-log)) key)
(setq keyboard-display-key-log (append keyboard-display-key-log
(list (cons (float-time (current-time)) key)))))
(let ((msg (mapconcat (lambda (x) (cdr x)) keyboard-display-key-log "\n")))
(start-process keyboard-display-process-name nil
"gxmessage" "-borderless" "-nofocus" "-center"
"-timeout" (int-to-string keyboard-display-message-duration)
"-buttons" "" "-fn" "mono 32" msg))))
(defvar keyboard-display-mode-map
(let ((map (make-sparse-keymap)))
map))
(define-minor-mode keyboard-display-mode
"Minor mode that displays every key press in a pop-up message."
:init nil
:keymap keyboard-display-mode-map
(if keyboard-display-mode
(add-hook 'pre-command-hook #'keyboard-display-key-press)
(remove-hook 'pre-command-hook 'keyboard-display-key-press)))
;; Keyboard Display Mode:1 ends here
;; [[file:init-emacs.org::*Star Wars Scroll][Star Wars Scroll:1]]
;;------------------------------------------------------------------------------
;; Star Wars Scroll (scroll current text buffer like Star Wars opening text)
;;
;; http://mbork.pl/2015-12-18_Star_Wars_crawl_in_Emacs
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Programs: Star Wars Scroll")
(defvar star-wars-scroll-substitution-list
'(("." . 0)
(" " . 0)
("[.,;:!?] " . 1)
("\\B[aeiou]\\B" . 0)
("\\B[bcdfghjklmnpqrstvwxyz]\\B" . 0)
("\\w\\b" . 0)
("[.,;:!?]" . 0)
("[^.,;:!?] " . 1)
("\\b\\w" . 0)
(".$" . 0)
("^." . 0))
"A list of dotted pairs with car equal to the regex matching
the character we want to delete and cdr equal to how many
characters we want to move the point forward before actually
deleting a character (useful in the case of space after a
punctuation). We begin with the substitutions we want to perform
first. If more than one regex matches, the last one is valid, so
it is probably a good idea to begin with \".\".")
(defun star-wars-scroll-center-line-no-tabs ()
"A simplified version of center-line, using no tabs (and not
taking into account leading/trailing whitespace."
(save-mark-and-excursion
(let ((length (progn (end-of-line)
(current-column))))
(goto-char (line-beginning-position))
(insert (make-string (max 0 (/ (- fill-column length) 2)) ?\s)))))
(defun star-wars-scroll-scroll-prepare-marker-list ()
"Prepare (and return) a list of markers pointing at characters
to delete from the current line, in the \"right\" order."
(save-mark-and-excursion
(save-match-data
(let ((limit (progn
(star-wars-scroll-center-line-no-tabs) ; this may use tabs
(back-to-indentation)
(point)))
(subst-list star-wars-scroll-substitution-list)
(marker-list nil))
(while subst-list
(end-of-line)
(while (search-backward-regexp (caar subst-list) limit :noerror)
(forward-char (cdar subst-list))
(push (point-marker) marker-list))
(setq subst-list (cdr subst-list)))
(delete-dups marker-list)
(setq marker-list (nreverse marker-list))))))
(defvar star-wars-scroll-untouched-lines 3
"Number of lines at the bottom of the window which should not
be touched by character deletion.")
(defvar star-wars-scroll-delay .5
"Delay (in seconds) between frames of animation.")
(defun star-wars-scroll-scroll-current-buffer ()
"Actually do SW-like scroll in the current buffer."
(let (marker-list-list)
(goto-char (point-min))
(open-line (window-height))
(goto-char (point-max))
(move-beginning-of-line 0)
(while (progn
(push (star-wars-scroll-scroll-prepare-marker-list) marker-list-list)
(> (point) (+ (point-min) (window-height))))
(forward-line -1))
(while (< (point-min) (point-max)) ; here the actual scroll begins
(goto-char (point-min))
(kill-line 1)
(redisplay t)
(sleep-for star-wars-scroll-delay)
(let ((walker marker-list-list))
(while (progn
(goto-char (or (caar walker) (point-min)))
(and walker (< (line-number-at-pos) (- (window-height) star-wars-scroll-untouched-lines))))
(when (car walker)
(goto-char (caar walker))
(delete-char 1)
(setf (car walker) (cdar walker)))
(when (car walker)
(goto-char (caar walker))
(delete-char 1)
(setf (car walker) (cdar walker))
(goto-char (line-beginning-position))
(insert " "))
(setq walker (cdr walker)))))))
(defun star-wars-scroll ()
"Do Star-Wars-like scroll of the region, or the whole buffer if
no region is active, in a temporary buffer, and delete it
afterwards. Special care is taken to make the lines more or
less legible as long as possible, for example spaces after
punctuation are deleted before vowels, vowels are deleted
before consonants etc."
(interactive)
(save-mark-and-excursion
(let ((begin (point-min)) (end (point-max)))
(when (region-active-p)
(setq beg (region-beginning))
(setq end (region-end)))
(copy-region-as-kill beg end)
(with-temp-buffer
(switch-to-buffer (current-buffer))
(rename-buffer "*Star Wars Scroll*")
(buffer-disable-undo (current-buffer))
(untabify (point-min) (point-max))
(save-window-excursion
(delete-other-windows)
(yank)
(star-wars-scroll-scroll-current-buffer))))))
;; Star Wars Scroll:1 ends here
;; [[file:init-emacs.org::*Games][Games:1]]
;;------------------------------------------------------------------------------
;;; Functions: Games
;;------------------------------------------------------------------------------
(init-message 2 "Functions: Games")
;; Games:1 ends here
;; [[file:init-emacs.org::*Towers of Hanoi][Towers of Hanoi:1]]
;;------------------------------------------------------------------------------
;;;; Functions: Games: Towers of Hanoi
;;------------------------------------------------------------------------------
(init-message 3 "Functions: Games: Towers of Hanoi")
(defun towers (disks)
"Solve the clasical Towers of Hanoi problem for given number of DISKS."
(interactive "NNumber of disks: ")
(let ((buffer "*Towers*"))
;; setup buffer
(get-buffer-create buffer)
(set-buffer buffer)
(setq buffer-read-only nil)
(erase-buffer)
;; print header
(insert (format "Towers of Hanoi puzzle with %d disks\n\n" disks))
;; make initial call to towers move
;; move from peg 1 to 3 using 2
(towers-move disks 1 3 2)
;; set buffer to read-only
(setq buffer-read-only t)
;; switch to buffer
(switch-to-buffer buffer)
(goto-char (point-min)))
;; no return value
(values))
(defun towers-move (n from to using)
"Make one Towers of Hanoi move.
N is the number of disks to move.
FROM is the source peg.
TO is the target peg.
USING is the remaining peg."
(when (> n 0)
;; In order to move N disks FROM one peg TO another, we first move N-1
;; disks FROM one peg to the other USING peg.
(towers-move (1- n) from using to)
;; Then we move the one remaining peg FROM the starting peg TO the
;; finishing peg.
(insert (format "Move %d --> %d\n" from to))
;; Finally we move the N-1 disks now on the other USING peg to the TO peg
;; using FROM.
(towers-move (1- n) using to from)))
;; Towers of Hanoi:1 ends here
;; [[file:init-emacs.org::*Modules][Modules:1]]
;;==============================================================================
;;; Modules
;;==============================================================================
(init-message 1 "Modules")
;; Modules:1 ends here
;; [[file:init-emacs.org::*abbrev-mode][abbrev-mode:1]]
;;------------------------------------------------------------------------------
;;; Modules: abbrev-mode
;;------------------------------------------------------------------------------
(init-message 2 "Modules: abbrev-mode")
(use-package abbrev
:diminish abbrev-mode
:custom
(save-abbrevs 'silently)
:init
(defconst abbrev-file
(expand-file-name "~/.abbrev_defs")
"Abbreviations file used by `abbrev-mode'.")
(unless (file-exists-p abbrev-file)
(call-process "touch" nil nil nil abbrev-file))
(abbrev-mode 1)
:config
(setq dabbrev-case-replace nil) ; preserve case when replacing abbreviations
(quietly-read-abbrev-file abbrev-file)
(defun local-kill-emacs-hook-write-abbrev-file ()
(write-abbrev-file abbrev-file))
(add-hook 'kill-emacs-hook #'local-kill-emacs-hook-write-abbrev-file))
;; abbrev-mode:1 ends here
;; [[file:init-emacs.org::*ag][ag:1]]
;;------------------------------------------------------------------------------
;;; Modules: ag
;;------------------------------------------------------------------------------
(init-message 2 "Modules: ag")
(use-package ag
;;:quelpa (ag)
:straight t
:commands (ag)
:custom (ag-arguments (list "--smart-case" "--stats")))
;; ag:1 ends here
;; [[file:init-emacs.org::*alert][alert:1]]
;;------------------------------------------------------------------------------
;;; Modules: alert
;;------------------------------------------------------------------------------
(init-message 2 "Modules: alert")
(use-package alert
;;:quelpa (alert)
:straight t
:commands (alert)
:custom (alert-default-style 'libnotify))
;; alert:1 ends here
;; [[file:init-emacs.org::*analog-clock][analog-clock:1]]
;;------------------------------------------------------------------------------
;;; Modules: analog-clock
;;------------------------------------------------------------------------------
(init-message 2 "Modules: analog-clock")
(use-package analog-clock
;;:quelpa (analog-clock :fetcher url :url "http://yrk.nfshost.com/repos/analog-clock/analog-clock.el")
:load-path (lambda () (expand-file-name "analog-clock.el" emacs-modules-dir))
:commands (analog-clock analog-clock-draw-analog)
:custom
;; draw an analog clock
(analog-clock-draw-function #'analog-clock-draw-analog)
;; draw a digital clock
;;(analog-clock-draw-function #'analog-clock-draw-ssd)
:init
;; screen saver mode (sort of)
;;(run-with-idle-timer 600 t #'analog-clock)
)
;; analog-clock:1 ends here
;; [[file:init-emacs.org::*any-ini-mode][any-ini-mode:1]]
;;------------------------------------------------------------------------------
;;; Modules: any-ini-mode
;;------------------------------------------------------------------------------
(init-message 2 "Modules: any-ini-mode")
(use-package any-ini-mode
;;:quelpa (any-ini-mode :fetcher url :url "https://www.emacswiki.org/emacs/download/any-ini-mode.el"))
:load-path (lambda () (expand-file-name "any-ini-mode.el" emacs-modules-dir)))
;; any-ini-mode:1 ends here
;; [[file:init-emacs.org::*async][async:1]]
;;------------------------------------------------------------------------------
;;; Modules: async
;;------------------------------------------------------------------------------
(init-message 2 "Modules: async")
(use-package async
:straight t)
;; async:1 ends here
;; [[file:init-emacs.org::*auto-compile][auto-compile:1]]
;;------------------------------------------------------------------------------
;;; Modules: auto-compile
;;------------------------------------------------------------------------------
(init-message 2 "Modules: auto-compile")
(use-package auto-compile
;;:quelpa (auto-compile)
:straight t
:custom
(load-prefer-newer t)
:init
(auto-compile-on-load-mode 1)
(auto-compile-on-save-mode 1))
;; auto-compile:1 ends here
;; [[file:init-emacs.org::*avy][avy:1]]
;;------------------------------------------------------------------------------
;;; Modules: avy
;;------------------------------------------------------------------------------
(init-message 2 "Modules: avy")
(use-package avy
;;:quelpa (avy)
:straight t
:bind* (("C-;" . avy-goto-char)
("C-M-;" . pop-to-mark-command)
("C-x ." . avy-goto-word-or-subword-1)
("C-x C-." . avy-goto-word-or-subword-1)))
;; avy:1 ends here
;; [[file:init-emacs.org::*bash-completion][bash-completion:1]]
;;------------------------------------------------------------------------------
;;; Modules: bash-completion
;;------------------------------------------------------------------------------
(init-message 2 "Modules: bash-completion")
(use-package bash-completion
;;:quelpa (bash-completion)
:straight t
:init (bash-completion-setup))
;; bash-completion:1 ends here
;; [[file:init-emacs.org::*bbdb][bbdb:1]]
;;------------------------------------------------------------------------------
;;; Modules: bbdb
;;------------------------------------------------------------------------------
(init-message 2 "Modules: bbdb")
(use-package bbdb
;;:quelpa (bbdb)
:straight t
:init
;;(bbdb-initialize)
;;(bbdb-initialize 'gnus 'message 'sc 'w3)
(bbdb-initialize 'gnus 'message 'sc)
:config
;; the following settings were copied from here:
;; http://emacs-fu.blogspot.com/2009/08/managing-e-mail-addresses-with-bbdb.html
;; TODO: look at these settings
(setq bbdb-offer-save 1 ;; 1 means save-without-asking
bbdb-use-pop-up t ;; allow popups for addresses
bbdb-electric-p t ;; be disposable with SPC
bbdb-popup-target-lines 1 ;; very small
bbdb-dwim-net-address-allow-redundancy t ;; always use full name
bbdb-quiet-about-name-mismatches 2 ;; show name-mismatches 2 secs
bbdb-always-add-address t ;; add new addresses to existing contacts automatically
bbdb-canonicalize-redundant-nets-p t ;; x@foo.bar.cx => x@bar.cx
bbdb-completion-type nil ;; complete on anything
bbdb-complete-name-allow-cycling t ;; cycle through matches (only partially works)
bbbd-message-caching-enabled t ;; be fast
bbdb-use-alternate-names t ;; use AKA
bbdb-elided-display t ;; single-line addresses
;; auto-create addresses from mail
bbdb/mail-auto-create-p 'bbdb-ignore-some-messages-hook
bbdb-ignore-some-messages-alist ;; don't ask about fake addresses
;; NOTE: there can be only one entry per header (such as To, From)
;; http://flex.ee.uec.ac.jp/texi/bbdb/bbdb_11.html
'(("From" . "no.?reply\\|DAEMON\\|daemon\\|facebookmail\\|twitter"))))
;; ;;------------------------------------------------------------------------------
;; ;;;; lookout
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "lookout")
;; ;; setup lookout for CSV import/export
;; (use-package lookout
;; :after (bbdb)
;; :config
;; (progn
;; ;; Thunderbird CSV fields:
;; ;;
;; ;; First Name, Last Name, Display Name, Nickname, Primary Email, Secondary
;; ;; Email, Work Phone, Home Phone, Fax Number, Pager Number, Mobile Number,
;; ;; Home Address, Home Address 2, Home City, Home State, Home ZipCode, Home
;; ;; Country, Work Address, Work Address 2, Work City, Work State, Work
;; ;; ZipCode, Work Country, Job Title, Department, Organization, Web Page 1,
;; ;; Web Page 2, Birth Year, Birth Month, Birth Day, Custom 1, Custom 2,
;; ;; Custom 3, Custom 4, Notes
;; (defconst lookout-bbdb-mapping-table-thunderbird-english
;; '(("lastname" "Last Name")
;; ("firstname" "First Name")
;; ("company" "Organization" "Department" "Job Title")
;; ("net" "Primary Email" "Secondary Email")
;; ("phones" "Mobile Number" "Work Phone" "Home Phone")
;; ("addr1" "Home Address" "Home Address 2" "Home City" "Home State" "Home ZipCode" "Home Country")
;; ("addr2" "Work Address" "Work Address 2" "Work City" "Work State" "Work ZipCode" "Work Country")
;; ("addr3" "addr3")
;; ("notes" "Notes")
;; ("otherfields" "" ""))
;; ;; ("otherfields"
;; ;; "group" "group"))
;; "Mapping table, usable for input from Thunderbird CSV export.")
;; (setq lookout-bbdb-mapping-table 'lookout-bbdb-mapping-table-thunderbird-english)
;; ;; Outlook CSV fields:
;; ;;
;; ;; Title, First Name, Middle Name, Last Name, Suffix, Company, Department,
;; ;; Job Title, Business Street, Business Street 2, Business Street 3,
;; ;; Business City, Business State, Business Postal Code, Business Country,
;; ;; Home Street, Home Street 2, Home Street 3, Home City, Home State, Home
;; ;; Postal Code, Home Country, Other Street, Other Street 2, Other Street
;; ;; 3, Other City, Other State, Other Postal Code, Other Country,
;; ;; Assistant's Phone, Business Fax, Business Phone, Business Phone 2,
;; ;; Callback, Car Phone, Company Main Phone, Home Fax, Home Phone, Home
;; ;; Phone 2, ISDN, Mobile Phone, Other Fax, Other Phone, Pager, Primary
;; ;; Phone, Radio Phone, TTY/TDD Phone, Telex, Account, Anniversary,
;; ;; Assistant's Name, Billing Information, Birthday, Business Address PO
;; ;; Box, Categories, Children, Directory Server, E-mail Address, E-mail
;; ;; Type, E-mail Display Name, E-mail 2 Address, E-mail 2 Type, E-mail 2
;; ;; Display Name, E-mail 3 Address, E-mail 3 Type, E-mail 3 Display Name,
;; ;; Gender, Government ID Number, Hobby, Home Address PO Box, Initials,
;; ;; Internet Free Busy, Keywords, Language, Location, Manager's Name,
;; ;; Mileage, Notes, Office Location, Organizational ID Number, Other
;; ;; Address PO Box, Priority, Private, Profession, Referred By,
;; ;; Sensitivity, Spouse, User 1, User 2, User 3, User 4, Web Page
;; (defconst lookout-bbdb-mapping-table-outlook-english
;; '(("lastname" "Last Name" "Suffix")
;; ("firstname" "Title" "First Name" "Middle Name")
;; ("company" "Company" "Department" "Job Title")
;; ("net" "E-mail Address" "E-mail 2 Address" "E-mail 3 Address")
;; ("phones" "Business Phone" "Business Phone 2"
;; "Home Phone" "Home Phone 2" "Mobile Phone" "Other Phone"
;; "Assistant's Phone" "Business Fax" "Car Phone" "Callback"
;; "Home Fax" "Other Fax" "Pager" "Primary Phone" "Radio Phone"
;; "TTY/TDD Phone" "Telex")
;; ("addr1" "Business Street" "Business Address PO Box" "Business Street 2" "Business Street 3"
;; "Business City" "Business State" "Business Postal Code" "Business Country")
;; ("addr2" "Home Street" "Home Address PO Box" "Home Street 2" "Home Street 3"
;; "Home City" "Home State" "Home Postal Code" "Home Country")
;; ("addr3" "Other Street" "Other Address PO Box" "Other Street 2" "Other Street 3"
;; "Other City" "Other State" "Other Postal Code" "Other Country")
;; ("notes" "Notes")
;; ("otherfields" "" ""))
;; ;; ("otherfields"
;; ;; "Account" "Anniversary" "Assistant's Name" "Billing Information"
;; ;; "Birthday" "Categories" "Children" "Directory Server" "Gender"
;; ;; "Government ID Number" "Hobby" "Initials" "Internet Free Busy"
;; ;; "Keywords" "Language" "Location" "Manager's Name" "Mileage"
;; ;; "Office Location" "Organizational ID Number" "Priority" "Private"
;; ;; "Profession" "Referred By" "Sensitivity" "Spouse"
;; ;; "User 1" "User 2" "User 3" "User 4" "Web Page"))
;; "Mapping table, usable for input from Outlook CSV export.")
;; (setq lookout-bbdb-mapping-table 'lookout-bbdb-mapping-table-outlook-english)
;; ;; (defconst lookout-bbdb-mapping-table-outlook-german
;; ;; '(("lastname" "Nachname" "Suffix")
;; ;; ("firstname" "Vorname" "Weitere Vornamen")
;; ;; ("company" "Firma" "Abteilung" "Position")
;; ;; ("net" "E-Mail-Adresse" "E-Mail 2: Adresse" "E-Mail 3: Adresse")
;; ;; ("phones" "Telefon geschäftlich" "Telefon geschäftlich 2"
;; ;; "Telefon privat" "Telefon privat 2" "Mobiltelefon" "Weiteres Telefon"
;; ;; "Telefon Assistent" "Fax geschäftlich" "Autotelefon" "Telefon Firma"
;; ;; "Fax privat" "Weiteres Fax" "Pager" "Haupttelefon" "Mobiltelefon 2"
;; ;; "Telefon für Hörbehinderte" "Telex")
;; ;; ("addr1" "Straße geschäftlich" "Straße geschäftlich 2"
;; ;; "Straße geschäftlich 3" "Postleitzahl geschäftlich" "Ort geschäftlich"
;; ;; "Region geschäftlich" "Land geschäftlich")
;; ;; ("addr2" "Straße privat" "Straße privat 2" "Straße privat 3"
;; ;; "Postleitzahl privat" "Ort privat" "Region privat" "Land privat")
;; ;; ("addr3" "Weitere Straße" "Weitere Straße 2" "Weitere Straße 3"
;; ;; "Weitere Postleitzahl" "Weiterer Ort" "Weitere Region" "Weiteres Land")
;; ;; ("aka" "FIXME")
;; ;; ("notes" "Notizen")
;; ;; ("otherfields"
;; ;; "Rückmeldung" "Abrechnungsinformation" "Benutzer 1"
;; ;; "Benutzer 2" "Benutzer 3" "Benutzer 4" "Beruf" "Büro"
;; ;; "Empfohlen von" "Geburtstag" "Geschlecht" "Hobby" "Initialen"
;; ;; "Internet-Frei/Gebucht" "Jahrestag" "Kategorien" "Kinder" "Konto"
;; ;; "Name Assistent" "Name des/der Vorgesetzten"
;; ;; "Organisations-Nr." "Ort" "Partner" "Postfach" "Priorität" "Privat"
;; ;; "Regierungs-Nr." "Reisekilometer" "Sprache" "Stichwörter"
;; ;; "Vertraulichkeit" "Verzeichnisserver" "Webseite"))
;; ;; "Sample mapping table, usable for input from German M$ Outlook.")
;; ;; alias for compatibility
;; ;;(defalias 'bbdb-add-new-field 'bbdb-insert-new-field)
;; ))
;; bbdb:1 ends here
;; [[file:init-emacs.org::*beacon][beacon:1]]
;;------------------------------------------------------------------------------
;;; Modules: beacon
;;------------------------------------------------------------------------------
(init-message 2 "Modules: beacon")
(use-package beacon
;;:quelpa (beacon)
:straight t
:demand t
:custom
;; speed up duration (defaults to 0.3)
(beacon-blink-duration 0.1)
;; speed up delay (defaults to 0.3)
(beacon-blink-delay 0.1)
:init (beacon-mode 1))
;; beacon:1 ends here
;; [[file:init-emacs.org::*boxquote][boxquote:1]]
;;------------------------------------------------------------------------------
;;; Modules: boxquote
;;------------------------------------------------------------------------------
(init-message 2 "Modules: boxquote")
(use-package boxquote
;;:quelpa (boxquote)
:straight t
:init (unbind-key "C-c b")
:bind (("C-c by" . boxquote-yank)
("C-c br" . boxquote-region)
("C-c bu" . boxquote-unbox-region)
("C-c bt" . boxquote-title)
("C-c bi" . boxquote-insert-file)
("C-c bk" . boxquote-kill)
("C-c bs" . boxquote-shell-command)
("C-c bb" . boxquote-buffer)
("C-c bp" . boxquote-paragraph)
("C-c bn" . boxquote-narrow-to-boxquote)
("C-c bw" . boxquote-where-is)
("C-c bdf" . boxquote-describe-function)
("C-c bdk" . boxquote-describe-key)
("C-c bdv" . boxquote-describe-variable)))
;; boxquote:1 ends here
;; [[file:init-emacs.org::*browse-kill-ring][browse-kill-ring:1]]
;;------------------------------------------------------------------------------
;;; Modules: browse-kill-ring
;;------------------------------------------------------------------------------
(init-message 2 "Modules: browse-kill-ring")
(use-package browse-kill-ring
;;:quelpa (browse-kill-ring)
:straight t
:bind* (("M-y" . browse-kill-ring)
("C-M-_" . browse-kill-ring)))
;; browse-kill-ring:1 ends here
;; [[file:init-emacs.org::*bs][bs:1]]
;;------------------------------------------------------------------------------
;;; Modules: bs
;;------------------------------------------------------------------------------
(init-message 2 "Modules: bs")
;; original code by Scott Frazer
(use-package bs
;;:quelpa (bs)
:straight t
:demand t
:after (cycle-buffer)
:commands (list-buffers bs-show)
:bind* ([remap list-buffers] . bs-show) ; defaults to `list-buffers'
:bind* ("C-x C-b" . bs-show) ; defaults to `list-buffers'
:config
(defvar local-bs-always-show-regexps '("\\*\\(scratch\\|info\\|grep\\)\\*")
"*Buffer regexps to always show when buffer switching.")
(defvar local-bs-never-show-regexps '("^\\s-" "^\\*" "TAGS$" "^Map_Sym.txt$" "^magit")
"*Buffer regexps to never show when buffer switching.")
(defvar local-ido-ignore-dired-buffers nil
"*If non-nil, buffer switching should ignore dired buffers.")
(defun local-bs-string-in-regexps (string regexps)
"Return non-nil if STRING matches anything in REGEXPS list."
(let ((case-fold-search nil))
(catch 'done
(dolist (regexp regexps)
(when (string-match regexp string)
(throw 'done t))))))
(defun local-bs-ignore-buffer (buffer)
"Return non-nil if BUFFER should be ignored."
(or (and (not (local-bs-string-in-regexps buffer local-bs-always-show-regexps))
(local-bs-string-in-regexps buffer local-bs-never-show-regexps))
(and local-ido-ignore-dired-buffers
(with-current-buffer buffer
(equal major-mode 'dired-mode)))))
(defun bs-toggle-recent ()
"Toggle most recently visited buffers, ignoring certain ones."
(interactive)
(catch 'done
(dolist (buffer (buffer-list))
(unless (or (equal (current-buffer) buffer)
(and (fboundp 'my-bs-ignore-buffer)
(my-bs-ignore-buffer (buffer-name buffer))))
(switch-to-buffer buffer)
(throw 'done t)))))
;; config bs
(setq bs-configurations
'(("all" nil nil nil nil nil)
("files" nil nil nil (lambda (buffer) (local-bs-ignore-buffer (buffer-name buffer))) nil))
bs-cycle-configuration-name "files")
;; ;; add ignore rules to ido
;; (setq ido-ignore-buffers '(local-bs-ignore-buffer))
(defun local-bs-cycle-buffer-filter-extra ()
"Add ignore rules to `cycle-buffer'."
(not (local-bs-ignore-buffer (buffer-name))))
(add-to-list 'cycle-buffer-filter-extra '(local-bs-cycle-buffer-filter-extra) t))
;; bs:1 ends here
;; [[file:init-emacs.org::*calc][calc:1]]
;;------------------------------------------------------------------------------
;;; Modules: calc
;;------------------------------------------------------------------------------
(init-message 2 "Modules: calc")
(use-package calc
:commands (calc calc-dispatch)
:bind* ("M-#" . calc-dispatch))
;; calc:1 ends here
;; [[file:init-emacs.org::*cedet/semantic][cedet/semantic:1]]
;;------------------------------------------------------------------------------
;;; Modules: cedet/semantic
;;------------------------------------------------------------------------------
(init-message 2 "Modules: cedet/semantic")
(use-package cedet)
(use-package semantic
:after (cedet)
:init (semantic-mode 1))
;; cedet/semantic:1 ends here
;; [[file:init-emacs.org::*command-log][command-log:1]]
;;------------------------------------------------------------------------------
;;; Modules: command-log
;;------------------------------------------------------------------------------
(init-message 2 "Modules: command-log")
(use-package command-log-mode
;;:quelpa (command-log-mode)
:straight t
:init
(defun command-line-mode-on ()
"Turn on `command-line-mode' and open the log buffer."
(interactive)
(command-log-mode 1)
(global-command-log-mode 1)
(clm/open-command-log-buffer))
(defun command-line-mode-off ()
"Turn off `command-line-mode' and close the log buffer."
(interactive)
(global-command-log-mode -1)
(command-log-mode -1)
(clm/close-command-log-buffer)))
;; command-log:1 ends here
;; [[file:init-emacs.org::*company][company:1]]
;;------------------------------------------------------------------------------
;;; Modules: company
;;------------------------------------------------------------------------------
(init-message 2 "Modules: company")
(use-package company
;;:quelpa (company)
:straight t
:diminish company-mode
:bind (:map company-active-map
("<tab>" . company-complete-selection)
("C-n" . company-select-next)
("C-p" . company-select-previous)
("M-k" . company-select-next)
("M-i" . company-select-previous))
:hook (prog-mode . company-mode)
:custom
(company-auto-commit nil)
(company-minimum-prefix-length 1)
(company-idle-delay 1.0)
:init
;; (global-company-mode 1)
;; (add-hook 'after-init-hook #'global-company-mode)
:config
;; backends
(when (fboundp 'company-dabbrev)
(add-to-list 'company-backends #'company-dabbrev t))
(when (fboundp 'company-emacs-eclim)
(add-to-list 'company-backends #'company-emacs-eclim t))
(when (fboundp 'company-elisp)
(add-to-list 'company-backends #'company-elisp t))
(when (fboundp 'company-files)
(add-to-list 'company-backends #'company-files t))
(when (fboundp 'company-ispell)
(add-to-list 'company-backends #'company-ispell t))
(when (fboundp 'company-robe)
(add-to-list 'company-backends #'company-robe t)))
;; ;; remove troublesome backends
;; (setq company-backends (remove 'company-capf company-backends)))
;; ;;------------------------------------------------------------------------------
;; ;;;; company-box
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "company-box")
;; ;; company front end with icons
;; (use-package company-box
;; ;;:quelpa (company-box)
;; :straight t
;; :after (company)
;; :hook (company-mode . company-box-mode))
;; ;;------------------------------------------------------------------------------
;; ;;;; color
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "color")
;; ;; set colors for a dark background
;; (use-package color
;; ;;:quelpa (color)
;; :straight t
;; :after (company)
;; :commands (color-lighten-name)
;; :config
;; (let ((bg (face-attribute 'default :background)))
;; (custom-set-faces
;; `(company-tooltip ((t (:inherit default :background ,(color-lighten-name bg 10)))))
;; `(company-scrollbar-bg ((t (:background ,(color-lighten-name bg 15)))))
;; `(company-scrollbar-fg ((t (:background ,(color-lighten-name bg 20)))))
;; `(company-tooltip-selection ((t (:inherit font-lock-function-name-face))))
;; `(company-tooltip-common ((t (:inherit font-lock-constant-face)))))))
;; company:1 ends here
;; [[file:init-emacs.org::*compile][compile:1]]
;;------------------------------------------------------------------------------
;;; Modules: compile
;;------------------------------------------------------------------------------
(init-message 2 "Modules: compile")
(use-package compile
:custom
;; auto save all modified buffers without asking
(compilation-ask-about-save nil)
;; auto scroll compilation buffer
(compilation-scroll-output 'next-error)
;; skip info and warnings
(compilation-skip-threshold 2)
:config
;; display compilation time in compile log
;; source: https://emacs.stackexchange.com/questions/31493/print-elapsed-time-in-compilation-buffer/56130#56130
(make-variable-buffer-local 'local-compilation-start-time)
(defun local-compilation-start-hook (proc)
(setq local-compilation-start-time (current-time)))
(add-hook 'compilation-start-hook #'local-compilation-start-hook)
(defun local-compilation-finish-function (buf why)
(let* ((elapsed (time-subtract nil local-compilation-start-time))
(msg (format "Compilation took: %s" (format-time-string "%T.%N" elapsed t))))
(save-excursion (goto-char (point-max)) (insert msg))
(message "Compilation %s: %s" (string-trim-right why) msg)))
(add-hook 'compilation-finish-functions #'local-compilation-finish-function))
;; compile:1 ends here
;; [[file:init-emacs.org::*cycle-buffer][cycle-buffer:1]]
;;------------------------------------------------------------------------------
;;; Modules: cycle-buffer
;;------------------------------------------------------------------------------
(init-message 2 "Modules: cycle-buffer")
(use-package cycle-buffer
;;:quelpa (cycle-buffer :fetcher url :url "https://raw.githubusercontent.com/emacsmirror/emacswiki.org/master/cycle-buffer.el")
:load-path (lambda () (expand-file-name "cycle-buffer.el" emacs-modules-dir))
:demand t
:bind* (("C-x C-n" . cycle-buffer) ; defaults to `set-goal-column'
("C-x C-p" . cycle-buffer-backward) ; defaults to `mark-page'
("<f9>" . cycle-buffer-backward)
("S-<f9>" . cycle-buffer-backward-permissive)
("<f10>" . cycle-buffer) ; defaults to `tmm-menubar'
("S-<f10>" . cycle-buffer-permissive))
:init
;; advise `cycle-buffer`
(advice-add 'cycle-buffer :around #'advice--ignore-errors)
;; advise `cycle-buffer-permissive`
(advice-add 'cycle-buffer-permissive :around #'advice--ignore-errors)
;; advise `cycle-buffer-backward`
(advice-add 'cycle-buffer-backward :around #'advice--ignore-errors)
;; advise `cycle-buffer-backward-permissive`
(advice-add 'cycle-buffer-backward-permissive :around #'advice--ignore-errors))
;; cycle-buffer:1 ends here
;; [[file:init-emacs.org::*define-word][define-word:1]]
;;------------------------------------------------------------------------------
;;; Modules: define-word
;;------------------------------------------------------------------------------
(init-message 2 "Modules: define-word")
(use-package define-word
;;:quelpa (define-word)
:straight t
:bind (("<f5>" . define-word-after-spell-check)
("S-<f5>" . define-word-at-point))
:config
(defun define-word-after-spell-check (word service &optional choose-service)
"Define WORD using various services after spell checking WORD.
By default uses `define-word-default-service', but a prefix arg
lets the user choose service.
Uses `ispell--run-on-word' to spell check word."
(interactive "MWord: \ni\nP")
(ispell-set-spellchecker-params)
(ispell-accept-buffer-local-defs)
(let ((check (ispell--run-on-word word)))
(cond
((or (eq check t)
(stringp check))
(define-word word service choose-service))
(t
(let ((buffer (generate-new-buffer-name "*define-word-after-spell-check*")))
(switch-to-buffer (get-buffer-create buffer))
(insert word)
(ispell-word)
(let ((checked-word (buffer-substring-no-properties (point-min) (point-max))))
(when (string= buffer (buffer-name))
(kill-buffer (current-buffer)))
(define-word checked-word service choose-service))))))))
;; define-word:1 ends here
;; [[file:init-emacs.org::*demo-it][demo-it:1]]
;;------------------------------------------------------------------------------
;;; Modules: demo-it
;;------------------------------------------------------------------------------
(init-message 2 "Modules: demo-it")
(use-package demo-it
;;:quelpa (demo-it))
:straight t)
;; demo-it:1 ends here
;; [[file:init-emacs.org::*doom-modeline][doom-modeline:1]]
;;------------------------------------------------------------------------------
;;; Modules: doom-modeline
;;------------------------------------------------------------------------------
(init-message 2 "Modules: doom-modeline")
(use-package doom-modeline
;;:quelpa (doom-modeline)
:straight t
:after (all-the-icons)
:demand t
:custom
;; customizations
(doom-modeline-height 30)
:init (doom-modeline-mode 1)
:config
;; show line number in modeline
(line-number-mode 1)
;; show column number in modeline
(column-number-mode 1))
;;------------------------------------------------------------------------------
;;;; all-the-icons
;;------------------------------------------------------------------------------
(init-message 3 "all-the-icons")
(use-package all-the-icons
;;:quelpa (all-the-icons)
:straight t
:config
;; install fonts, if needed
(let ((font-dest (cl-case window-system
(x (concat (or (getenv "XDG_DATA_HOME")
(concat (getenv "HOME") "/.local/share"))
"/fonts/"))
(mac (concat (getenv "HOME") "/Library/Fonts/" ))
(ns (concat (getenv "HOME") "/Library/Fonts/" )))))
(or (file-exists-p (expand-file-name "all-the-icons.ttf" font-dest))
(all-the-icons-install-fonts :noconfirm))))
;; doom-modeline:1 ends here
;; [[file:init-emacs.org::*easy-kill][easy-kill:1]]
;;------------------------------------------------------------------------------
;;; Modules: easy-kill
;;------------------------------------------------------------------------------
(use-package easy-kill
;;:quelpa (easy-kill)
:straight t
:demand t
:bind* (([remap kill-ring-save] . easy-kill)
([remap mark-sexp] . easy-mark)))
;; easy-kill:1 ends here
;; [[file:init-emacs.org::*eldoc][eldoc:1]]
;;------------------------------------------------------------------------------
;;; Modules: eldoc
;;------------------------------------------------------------------------------
(init-message 2 "Modules: eldoc")
(use-package eldoc
:custom
;; no idle delay before showing contextual information
(eldoc-idle-delay 0))
;; eldoc:1 ends here
;; [[file:init-emacs.org::*elfeed][elfeed:1]]
;;------------------------------------------------------------------------------
;;; Modules: elfeed
;;------------------------------------------------------------------------------
(init-message 2 "Modules: elfeed")
(use-package elfeed
;;:quelpa (elfeed)
:straight t
:bind (:map elfeed-search-mode-map
("h" . elfeed-search-mode-help)
("?" . elfeed-search-mode-help))
:bind (:map elfeed-show-mode-map
("h" . elfeed-show-mode-help)
("?" . elfeed-show-mode-help))
:custom
;; standard filters
(elfeed-search-filter "-junk +unread")
;; custom feed list
(elfeed-feeds
(with-temp-buffer
(insert-file-contents (locate-user-emacs-file "elfeed-bookmarks"))
(goto-char (point-min))
(mapcar
(lambda (x) (list (plist-get x :rss) (intern (plist-get :tag))))
(read (current-buffer)))))
:config
;; increase default text size in `elfeed-show' buffers
(defun local-elfeed-show-mode-hook ()
;; increase default text size
(text-scale-set 2))
(add-hook 'elfeed-show-mode-hook #'local-elfeed-show-mode-hook)
(defun elfeed-bookmarks-edit ()
"Open `init-emacs.org' and move point to Elfeed Bookmarks File for easy editing."
(interactive)
(find-file (expand-file-name "init-emacs.org" emacs-home-dir))
(goto-char (point-min))
(search-forward ";; Elfeed Bookmarks File\n")
(org-show-entry))
(defun elfeed-search-mode-help ()
"Display `elfeed-search-mode' commands in mini-buffer."
(interactive)
(message (concat "RET show entry, "
"+ tag all, "
"- untag all, "
"G fetch, "
"S set filter, "
"b browse url, "
"g update, "
"n next line, "
"p prev line, "
"q quit, "
"r untag unread, "
"s live filter, "
"u tag unread, "
"y yank")))
(defun elfeed-show-mode-help ()
"Display `elfeed-show-mode' commands in mini-buffer."
(interactive)
(message (concat "TAB next link, "
"BACKTAB previous link, "
"SPC scroll down, "
"BACKSPACE scroll up,"
"+ tag, "
"- untag, "
"P play enclosure, "
"b visit, "
"d save enclosure, "
"g refresh, "
"n next, "
"p prev, "
"q kill buffer, "
"s new live search, "
"u copy url, "
"y yank")))
(defun elfeed-bookmarks-to-opml ()
"Export Elfeed Bookmarks File to OPML."
(interactive)
(let* ((buffer-name (generate-new-buffer-name "*elfeed-bookmarks-opml*"))
(bookmarks
(with-temp-buffer
(insert-file-contents (locate-user-emacs-file "elfeed-bookmarks"))
(goto-char (point-min))
(read (current-buffer))))
(tags
(let (temp)
(dolist (x (mapcar (lambda (x) (plist-get x :tag)) bookmarks))
(pushnew x temp :test #'string=))
(nreverse temp))))
(switch-to-buffer buffer-name)
(insert "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n")
(insert "<opml version=\"1.0\">\n")
(insert " <head>\n")
(insert " <title>Elfeed Bookmarks</title>\n")
(insert " </head>\n")
(insert " <body>\n")
(dolist (tag tags)
(let ((ctag (capitalize tag)))
(insert " <outline title=\"" ctag "\" text=\"" ctag "\">\n")
(dolist (item
(remove-if
(lambda (x) (not (string= tag (plist-get x :tag))))
bookmarks))
(let ((name (plist-get item :name))
(html (plist-get item :html))
(rss (plist-get item :rss)))
(insert " <outline title=\"" name "\" text=\"" name "\" type=\"rss\" xmlUrl=\"" rss "\" htmlUrl=\"" html "\"/>\n")))
(insert " </outline>\n")))
(insert " </body>\n")
(insert "</opml>\n"))))
;; elfeed:1 ends here
;; [[file:init-emacs.org::*elnode][elnode:1]]
;;------------------------------------------------------------------------------
;;; Modules: elnode
;;------------------------------------------------------------------------------
(init-message 2 "Modules: elnode")
(use-package elnode
;;:quelpa (elnode)
:straight t
:commands (elnode))
;; elnode:1 ends here
;; [[file:init-emacs.org::*elpher][elpher:1]]
;;------------------------------------------------------------------------------
;;; Modules: elpher
;;------------------------------------------------------------------------------
(init-message 2 "Modules: elpher")
(use-package elpher
;;:quelpa (elpher)
:straight t
:init
(defun elpher-bookmarks-edit ()
"Open `init-emacs.org' and move point to Elpher Bookmarks File for easy editing."
(interactive)
(find-file (expand-file-name "init-emacs.org" emacs-home-dir))
(goto-char (point-min))
(search-forward ";; Elpher Bookmarks File\n")
(org-show-entry)))
;; elpher:1 ends here
;; [[file:init-emacs.org::*eperiodic][eperiodic:1]]
;;------------------------------------------------------------------------------
;;; Modules: eperiodic
;;------------------------------------------------------------------------------
(init-message 2 "Modules: eperiodic")
(use-package eperiodic
;;:quelpa (eperiodic :fetcher url :url "https://raw.githubusercontent.com/emacsmirror/emacswiki.org/master/eperiodic.el")
:load-path (lambda () (expand-file-name "eperiodic.el" emacs-modules-dir))
:commands (eperiodic))
;; eperiodic:1 ends here
;; [[file:init-emacs.org::*epoch][epoch:1]]
;;------------------------------------------------------------------------------
;;; Modules: epoch
;;------------------------------------------------------------------------------
(init-message 2 "Modules: epoch")
(use-package epoch
;;:quelpa (epoch :fetcher file :path (expand-file-name "epoch.el" local-modules-dir))
:load-path (lambda () (expand-file-name "epoch.el" local-modules-dir))
:commands (epoch-menu time-to-epoch epoch-to-time))
;; epoch:1 ends here
;; [[file:init-emacs.org::*ert][ert:1]]
;;------------------------------------------------------------------------------
;;; Modules: ert
;;------------------------------------------------------------------------------
(init-message 2 "Modules: ert")
(use-package ert)
;; ert:1 ends here
;; [[file:init-emacs.org::*exec-path-from-shell][exec-path-from-shell:1]]
;;------------------------------------------------------------------------------
;;; Modules: exec-path-from-shell
;;------------------------------------------------------------------------------
(init-message 2 "Modules: exec-path-from-shell")
(use-package exec-path-from-shell
:when window-system-mac
;;:quelpa (exec-path-from-shell)
:straight t
:init (exec-path-from-shell-initialize))
;; exec-path-from-shell:1 ends here
;; [[file:init-emacs.org::*expand-region][expand-region:1]]
;;------------------------------------------------------------------------------
;;; Modules: expand-region
;;------------------------------------------------------------------------------
(init-message 2 "Modules: expand-region")
(use-package expand-region
;;:quelpa (expand-region)
:straight t
:bind* (("C-=" . er/expand-region) ; defaults to `count-lines-region'
("C--" . er/contract-region))) ; defaults to `negative-argument'
;; expand-region:1 ends here
;; [[file:init-emacs.org::*flycheck][flycheck:1]]
;;------------------------------------------------------------------------------
;;; Modules: flycheck
;;------------------------------------------------------------------------------
(init-message 2 "Modules: flycheck")
(use-package flycheck
;;:quelpa (flycheck)
:straight t
:commands (flycheck-mod
global-flycheck-mode)
:init
;; ;; initialize globally
;; (add-hook 'after-init-hook #'global-flycheck-mode)
)
;; flycheck:1 ends here
;; [[file:init-emacs.org::*flymake-cursor][flymake-cursor:1]]
;;------------------------------------------------------------------------------
;;; Modules: flymake-cursor
;;------------------------------------------------------------------------------
(init-message 2 "Modules: flymake-cursor")
(use-package flymake-cursor
;;:quelpa (flymake-cursor))
:straight t)
;; flymake-cursor:1 ends here
;; [[file:init-emacs.org::*flyspell][flyspell:1]]
;;------------------------------------------------------------------------------
;;; Modules: flyspell
;;------------------------------------------------------------------------------
(init-message 2 "Modules: flyspell")
(use-package flyspell
:commands (flyspell-mode
flyspell-mode-off
flyspell-prog-mode)
:custom
;; this fixes the "enabling flyspell mode gave an error" bug
(flyspell-issue-welcome-flag nil)
(flyspell-sort-corrections nil)
(flyspell-use-meta-tab nil))
;; flyspell:1 ends here
;; [[file:init-emacs.org::*fuzzy][fuzzy:1]]
;;------------------------------------------------------------------------------
;;; Modules: fuzzy
;;------------------------------------------------------------------------------
(init-message 2 "Modules: fuzzy")
(use-package fuzzy
;;:quelpa (fuzzy)
:straight t
:commands (turn-on-fuzzy-isearch)
:init (turn-on-fuzzy-isearch))
;; fuzzy:1 ends here
;; [[file:init-emacs.org::*hippie-exp][hippie-exp:1]]
;;------------------------------------------------------------------------------
;;; Modules: hippie-exp
;;------------------------------------------------------------------------------
(init-message 2 "Modules: hippie-exp")
(use-package hippie-exp
:bind* ("M-/" . hippie-expand)
:custom
(hippie-expand-try-functions-list
'(try-expand-dabbrev
try-expand-dabbrev-all-buffers
try-expand-dabbrev-from-kill
try-complete-file-name-partially
try-complete-file-name
try-expand-all-abbrevs
try-expand-list
try-expand-line
try-complete-lisp-symbol-partially
try-complete-lisp-symbol
yas-hippie-try-expand)))
;; hippie-exp:1 ends here
;; [[file:init-emacs.org::*htmlize][htmlize:1]]
;;------------------------------------------------------------------------------
;;; Modules: htmlize
;;------------------------------------------------------------------------------
(init-message 2 "Modules: htmlize")
(use-package htmlize
;;:quelpa (htmlize)
:straight t
:commands (htmlize-buffer
htmlize-region
htmlize-file
htmlize-many-file
htmlize-many-files-dired
htmlize-region-for-paste
htmlize-region-for-paste-font-type))
;; :config
;; (defun org-html-htmlize-region-for-paste (beg end)
;; "Convert the region between BEG and END to HTML, using htmlize.el.
;; This is much like `htmlize-region-for-paste', only that it uses
;; the settings defined in the org-... variables."
;; (let* ((htmlize-output-type org-html-htmlize-output-type)
;; (htmlize-css-name-prefix org-html-htmlize-font-prefix)
;; (htmlbuf (htmlize-region beg end)))
;; (unwind-protect
;; (with-current-buffer htmlbuf
;; (buffer-substring (plist-get htmlize-buffer-places 'content-start)
;; (plist-get htmlize-buffer-places 'content-end)))
;; (kill-buffer htmlbuf)))))
;; (defun htmlize-region-for-paste-font-type (beg end)
;; "Htmlize the region and return just the HTML as a string.
;; This forces the `font' style and only returns the HTML body,
;; but without the BODY tag. This should make it useful for inserting
;; the text to another HTML buffer."
;; (let* ((htmlize-output-type 'font)
;; (htmlbuf (htmlize-region beg end)))
;; (unwind-protect
;; (with-current-buffer htmlbuf
;; (buffer-substring (plist-get htmlize-buffer-places 'content-start)
;; (plist-get htmlize-buffer-places 'content-end)))
;; (kill-buffer htmlbuf)))))
;; htmlize:1 ends here
;; [[file:init-emacs.org::*hungry-delete][hungry-delete:1]]
;;------------------------------------------------------------------------------
;;; Modules: hungry-delete
;;------------------------------------------------------------------------------
(init-message 2 "Modules: hungry-delete")
(use-package hungry-delete
;;:quelpa (hungry-delete)
:straight t
:demand t
:commands (global-hungry-delete-mode
hungry-delete-skip-ws-forward
hungry-delete-skip-ws-backward)
:init
;; disable hungry delete mode globally
(global-hungry-delete-mode -1)
;; custom versions of hungry delete functions that do not delete the space
;; at point unless it is the last one
(defun hungry-delete-forward ()
"Delete the following character or all following whitespace up
to the next non-whitespace character. See
\\[c-hungry-delete-backward]."
(interactive)
(let ((here (point)))
(hungry-delete-skip-ws-forward)
(when (> (point) here)
(forward-char -1))
(if (/= (point) here)
(delete-region (point) here)
(let ((hungry-delete-mode nil))
(delete-char 1)))))
(defun hungry-delete-backward ()
"Delete the preceding character or all preceding whitespace
back to the previous non-whitespace character. See also
\\[c-hungry-delete-forward]."
(interactive)
(let ((here (point)))
(hungry-delete-skip-ws-backward)
(when (< (point) here)
(forward-char 1))
(if (/= (point) here)
(delete-region (point) here)
(let ((hungry-delete-mode nil))
(delete-char -1))))))
;; hungry-delete:1 ends here
;; [[file:init-emacs.org::*ibuffer][ibuffer:1]]
;;------------------------------------------------------------------------------
;;; Modules: ibuffer
;;------------------------------------------------------------------------------
(init-message 2 "Modules: ibuffer")
(use-package ibuffer
:bind* ("C-x i" . ibuffer) ; defaults to `insert-file'
:commands (ibuffer)
:config
;; (add-to-list 'ibuffer-never-show-regexps "^\\*Apropos\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*Compile-Log\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*Completions\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*ftp .*\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*grep\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*Help\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*IBuffer\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*inferior-lisp\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*JDEE bsh\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*Messages\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*Occur\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*RE-Builder\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*Shell Command Output\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*slime-events\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*tramp/.*\\*$" t)
;; (add-to-list 'ibuffer-never-show-regexps "^\\*WoMan-Log*\\*$" t)
;; default groups for ibuffer
(setq ibuffer-saved-filters
'(("default"
("c" (mode . c-mode))
("calendar" (or
(name . "^\\*Calendar\\*$")
(name . "^\\*Remind\\*$")
(name . "^diary$")))
("dired" (mode . dired-mode))
("elisp" (mode . emacs-lisp-mode))
("emacs" (or
(name . "^\\*scratch\\*$")
(name . "^\\*Messages\\*$")))
("erc" (mode . erc-mode))
("gnus" (or
(mode . message-mode)
(mode . bbdb-mode)
(mode . mail-mode)
(mode . gnus-group-mode)
(mode . gnus-summary-mode)
(mode . gnus-article-mode)
(name . "^\\.bbdb$")
(name . "^\\.newsrc-dribble")))
("java" (or
(mode . java-mode)
(mode . jde-mode)))
("kotlin" (mode . kotlin-mode))
("lisp" (mode . lisp-mode))
("org" (mode . org-mode))
("perl" (mode . perl-mode))
("python" (mode . python-mode))
("racket" (mode . racket-mode))
("ruby" (mode . ruby-mode)))))
(defun local-ibuffer-mode-hook ()
(ibuffer-switch-to-saved-filter-groups "default"))
(add-hook 'ibuffer-mode-hook #'local-ibuffer-mode-hook))
;; ibuffer:1 ends here
;; [[file:init-emacs.org::*iedit][iedit:1]]
;;------------------------------------------------------------------------------
;;; Modules: iedit
;;------------------------------------------------------------------------------
(init-message 2 "Modules: iedit")
(use-package iedit
;;:quelpa (iedit)
:straight t
:commands (iedit-mode)
:bind* ("C-x ;" . iedit-mode))
;; iedit:1 ends here
;; [[file:init-emacs.org::*+imdb+][+imdb+:1]]
;; ;;------------------------------------------------------------------------------
;; ;;; Modules: imdb
;; ;;------------------------------------------------------------------------------
;; (init-message 2 "Modules: imdb")
;; (use-package imdb)
;; +imdb+:1 ends here
;; [[file:init-emacs.org::*ini][ini:1]]
;;------------------------------------------------------------------------------
;;; Modules: ini
;;------------------------------------------------------------------------------
(init-message 2 "Modules: ini")
(use-package ini
;;:quelpa (ini :fetcher github :repo "daniel-ness/ini.el")
:straight (ini :type git :host github :repo "daniel-ness/ini.el")
:commands (ini-decode
ini-encode))
;; ini:1 ends here
;; [[file:init-emacs.org::*ispell][ispell:1]]
;;------------------------------------------------------------------------------
;;; Modules: ispell
;;------------------------------------------------------------------------------
(init-message 2 "Modules: ispell")
(use-package ispell
;;:quelpa (ispell)
;;:straight t
:commands (ispell-buffer
ispell-change-dictionary-hook
ispell-complete-word-dict
ispell-message
ispell-region-end
ispell-word)
:bind (("<f6>" . ispell-word)
("S-<f6>" . ispell-word-then-define-word)
("<f7>" . ispell))
:config
(setq ispell-enable-tex-parser t)
(defun ispell-word-then-define-word (word)
"Call `ispell-send-string' on WORD then call `define-word' on result.
User is prompted for WORD if none given."
(interactive "sWord: ")
(define-word
(with-temp-buffer
(insert word)
(ispell-word)
(buffer-substring-no-properties)))))
;; ispell:1 ends here
;; [[file:init-emacs.org::*ivy (counsel/swiper)][ivy (counsel/swiper):1]]
;;------------------------------------------------------------------------------
;;; Modules: ivy
;;
;; Add wildcard name completion to common tasks.
;; Replace `completing-read-function' with `ivy-completing-read'.
;;------------------------------------------------------------------------------
(init-message 2 "Modules: ivy (counsel/swiper)")
(use-package ivy
;;:quelpa (ivy :fetcher github :repo "abo-abo/swiper")
:straight (ivy :type git :host github :repo "abo-abo/swiper")
:demand t
:diminish ivy-mode
:commands (ivy-mode)
:bind* (("C-x C-r" . ivy-resume) ; defaults to `find-file-read-only'
("C-x b" . ivy-switch-buffer) ; defaults to `switch-to-buffer'
("C-x O" . ivy-switch-buffer-other-window)) ; defaults to `other-window'
:custom
;; add recent files and bookmarks to `ivy-switch-buffer'
(ivy-use-virtual-buffers t)
;; allow minibuffer commands to work in the minibuffer
(enable-recursive-minibuffers t)
;; style to use for displaying the current candidate count
(ivy-count-format "(%d/%d) ")
;; ;; wrap around when at first/last candidate positions
;; (ivy-wrap t)
:init
;; turn on `ivy-mode'
(ivy-mode 1)
:config
;; ;; set minibuffer height (number of lines) for various callers
;; (setf (alist-get 'counsel-projectile-ag ivy-height-alist) 15)
;; (setf (alist-get 'counsel-projectile-rg ivy-height-alist) 15)
;; (setf (alist-get 'swiper ivy-height-alist) 15)
;; (setf (alist-get 'counsel-switch-buffer ivy-height-alist) 7))
;; turn off ivy mode in incompatable modes
(defun force-completing-read-default (orig-fun &rest args)
"Force a function to use `completing-read-default'."
(let ((completing-read-function 'completing-read-default))
(apply orig-fun args)))
;; advise `tmm-prompt'
(advice-add 'tmm-prompt :around #'force-completing-read-default)
;; advise `yas-expand-snippet'
(advice-add 'yas-expand-snippet :around #'force-completing-read-default))
;;------------------------------------------------------------------------------
;;;; counsel
;;
;; Various completion functions using ivy.
;;------------------------------------------------------------------------------
(init-message 3 "counsel")
(use-package counsel
;;:quelpa (counsel :fetcher github :repo "abo-abo/swiper")
:straight (counsel :type git :host github :repo "abo-abo/swiper")
:after (ivy)
:bind* (("M-x" . counsel-M-x)
;;([remap list-buffers] . counsel-switch-buffer) ; defaults to `list-buffers'
;;("C-x b" . counsel-ibuffer) ; defaults to `ivy-switch-buffer'
;;("C-x C-b" . counsel-switch-buffer) ; defaults to `list-buffers'
("C-x C-f" . counsel-find-file)
;;("C-h f" . counsel-describe-function)
;;("C-h v" . counsel-describe-variable)
("C-h l" . counsel-find-library)
("C-h C-i" . counsel-info-lookup-symbol)
("C-h u" . counsel-unicode-char))
:bind (:map minibuffer-local-map
("C-r" . counsel-minibuffer-history))
:custom
;; format linux application names with name and comment only
(counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
:config
;; do not start searches with ^
(setq ivy-initial-inputs-alist nil))
;;------------------------------------------------------------------------------
;;;; swiper
;;
;; Isearch with an overview.
;;------------------------------------------------------------------------------
(init-message 3 "swiper")
(use-package swiper
;;:quelpa (swiper :fetcher github :repo "abo-abo/swiper")
:straight (swiper :type git :host github :repo "abo-abo/swiper")
:after (ivy)
:bind* ("C-'" . swiper)) ; defaults to `isearch-forward-regexp'
;;------------------------------------------------------------------------------
;;;; ivy-rich
;;
;; More friendly display transformer for ivy.
;;------------------------------------------------------------------------------
(init-message 3 "ivy-rich")
(use-package ivy-rich
;;:quelpa (ivy-rich)
:straight t
:after (ivy counsel)
:init (ivy-rich-mode 1)
:config
;; ignore exvm buffers
(let ((predicate (plist-get ivy-rich-display-transformers-list 'ivy-switch-buffer)))
(setq ivy-rich-display-transformers-list
(plist-put ivy-rich-display-transformers-list
'ivy-switch-buffer
`(:columns
,(plist-get predicate :columns)
:predicate
(lambda (cand)
(if-let ((buffer (get-buffer cand)))
(with-current-buffer buffer
(not (derived-mode-p 'exwm-mode))))))))))
;;------------------------------------------------------------------------------
;;;; flx
;;
;; Improve sorting for fuzzy-matched results.
;;------------------------------------------------------------------------------
(init-message 3 "flx")
(use-package flx
;;:quelpa (flx)
:straight t
:after (ivy)
:init
(setq ivy-flx-limit 10000))
;; ;;------------------------------------------------------------------------------
;; ;;;; ivy-hydra
;; ;;
;; ;; Additional key bindings for Ivy.
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "ivy-hydra")
;; (use-package ivy-hydra
;; ;;:quelpa (ivy-hydra)
;; :straight t
;; :after (ivy hydra))
;; ivy (counsel/swiper):1 ends here
;; [[file:init-emacs.org::*json][json:1]]
;;------------------------------------------------------------------------------
;;; Modules: json
;;------------------------------------------------------------------------------
(init-message 2 "Modules: json")
(use-package json)
;; json:1 ends here
;; [[file:init-emacs.org::*key-chord][key-chord:1]]
;;------------------------------------------------------------------------------
;;; Modules: key-chord
;;------------------------------------------------------------------------------
(init-message 2 "Modules: key-chord")
(use-package key-chord
;;:quelpa (key-chord)
:straight t
:demand t
:init
;; turn on `key-chord-mode'
(key-chord-mode 1)
:config
;; key chords
(key-chord-define-global ",." "<>\C-b")
(key-chord-define-global "hj" 'undo)
(key-chord-define-global "fg" 'undo-tree-redo)
(key-chord-define-global "jk" 'dabbrev-expand)
(key-chord-define-global "cv" 'reindent-then-newline-and-indent)
(key-chord-define-global "1q" "!")
(key-chord-define-global "2w" "@")
(key-chord-define-global "3e" "#")
(key-chord-define-global "4r" "$")
(key-chord-define-global "5t" "%")
(key-chord-define-global "6y" "^")
(key-chord-define-global "7y" "&")
(key-chord-define-global "8u" "*")
(key-chord-define-global "9i" "(")
(key-chord-define-global "0o" ")"))
;; key-chord:1 ends here
;; [[file:init-emacs.org::*keyfreq][keyfreq:1]]
;;------------------------------------------------------------------------------
;;; Modules: keyfreq
;;------------------------------------------------------------------------------
(init-message 2 "Modules: keyfreq")
(use-package keyfreq
;;:quelpa (keyfreq)
:straight t
:demand t
:init
;; turn on `keyfreq-mode'
(keyfreq-mode 1)
:config
;; auto-save stats
(keyfreq-autosave-mode 1))
;; keyfreq:1 ends here
;; [[file:init-emacs.org::*langtool][langtool:1]]
;;------------------------------------------------------------------------------
;;; Modules: langtool
;;------------------------------------------------------------------------------
(init-message 2 "Modules: langtool")
(use-package langtool
:when (executable-find "languagetool") ; only use if binary is available on system
;;:quelpa (langtool)
:straight t
:bind* (("C-x 4 w" . langtool-check)
("C-x 4 W" . langtool-check-done)
("C-x 4 l" . langtool-switch-default-language)
("C-x 4 4" . langtool-show-message-at-point)
("C-x 4 c" . langtool-correct-buffer))
:custom
(langtool-java-classpath
(concat "/usr/share/java/languagetool"
":/usr/share/java/languagetool/*"
":/usr/share/languagetool"
":/usr/share/languagetool/*")))
;; langtool:1 ends here
;; [[file:init-emacs.org::*magit][magit:1]]
;;------------------------------------------------------------------------------
;;; Modules: magit
;;------------------------------------------------------------------------------
(init-message 2 "Modules: magit")
(use-package magit
;;:quelpa (magit)
:straight t
:after (ivy)
:diminish magit-auto-revert-mode
:bind* (("C-x g" . magit-status)
("C-x M-g" . magit-dispatch))
:bind (:map magit-status-mode-map
("W" . magit-toggle-whitespace)
("C-c C-a" . magit-commit-amend-without-prompt))
:bind (:map magit-mode-map
("v" . magit-visit-pull-request-url))
:custom
;; use ivy
(magit-completing-read-function #'ivy-completing-read)
:init (setq magit-last-seen-setup-instructions "1.4.0")
:config
(defun magit-toggle-whitespace ()
"Toggle whitespace ignoring."
(interactive)
(let ((ws "--ignore-all-space"))
(if (member ws magit-diff-arguments)
(setq magit-diff-arguments (remove ws magit-diff-arguments))
(add-to-list 'magit-diff-arguments ws t))
(magit-refresh)))
(defun magit-commit-amend-without-prompt ()
"Amend without any prompt."
(interactive)
(save-window-excursion
(shell-command "git --no-pager commit --amend --reuse-message=HEAD")
(magit-refresh)))
;; Author: http://endlessparentheses.com/create-github-prs-from-emacs-with-magit.html
(defun magit-visit-pull-request-url ()
"Visit the current branch's pull request on Github."
(interactive)
(browse-url
(format "https://github.com/%s/pull/new/%s"
(replace-regexp-in-string
"^.+github\\.com:\\(.+\\)\\.git$" "\\1"
(magit-get "remote"
(magit-get-remote nil)
"url"))
(cdr (magit-get-push-branch))))))
;; ;;------------------------------------------------------------------------------
;; ;;;; forge
;; ;;
;; ;; Access Git forges from Magit.
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "forge")
;; (use-package forge
;; ;;:quelpa (forge)
;; :straight t
;; :after (magit))
;; magit:1 ends here
;; [[file:init-emacs.org::*mingus][mingus:1]]
;;------------------------------------------------------------------------------
;;; Modules: mingus
;;------------------------------------------------------------------------------
(init-message 2 "Modules: mingus")
(use-package mingus
;;:quelpa (mingus)
:straight t
:commands (mingus
mingus-create-NP-mark
mingus-get-details
mingus-get-insertion-number
mingus-get-new-playlist-version
mingus-goto-line
mingus-set-insertion-point
mingus-move
mingus-move-NP-mark
mingus-playlist-length
mingus-set-song-pos
mingus-switch-to-playlist
mingus-truncate-string
mpd-execute-command
mpd-get-status)
:bind* ("C-x /" . mingus-switch-to-buffer)
:bind (:map mingus-global-map
("<left>" . backward-char)
("<right>" . forward-char)
("<home>" . beginning-of-line)
("<end>" . end-of-line)
("C-c C-u" . mingus-mpc-update))
:bind (:map mingus-playlist-map
("SPC" . mingus-pause)
("<left>" . backward-char)
("<right>" . forward-char)
("<home>" . beginning-of-line)
("<end>" . end-of-line)
("C-c C-u" . mingus-mpc-update)
("C-c C-l" . mingus-get-lyrics)
("<f1>" . mingus-set-song-rating-1)
("<f2>" . mingus-set-song-rating-2)
("<f3>" . mingus-set-song-rating-3)
("<f4>" . mingus-set-song-rating-4)
("<f5>" . mingus-set-song-rating-5)
("<f6>" . mingus-set-song-rating-0))
:config
(defun local-mingus-hook-custom-settings ()
;; disable undo
(buffer-disable-undo)
;; turn off the display of trailing whitespace
(setq show-trailing-whitespace nil)
;; ;; highlight current line
;; (hl-line-mode 1)
)
(add-hook 'mingus-playlist-hooks #'local-mingus-hook-custom-settings)
(add-hook 'mingus-browse-hook #'local-mingus-hook-custom-settings)
;; set mpd config file location
(setq mingus-mpd-config-file "~/.mpd/mpd.conf")
;; sort case-insensitive
(setq mingus-fold-case t)
;; use ido-mode for searching
(setq mingus-use-ido-mode-p t)
;; do not use the mouse
(setq mingus-use-mouse-p nil)
;; custom playlist song format
(setq mingus-format-song-function 'mingus-format-song-custom-columns)
(defun mingus-switch-to-buffer ()
"Start mingus or switch to it if already running."
(interactive)
(if (get-buffer "*Mingus*")
(switch-to-buffer "*Mingus*")
(mingus)))
(defun mingus-format-song-custom-columns (plist)
"Custom column playlist song format."
(let* ((show-albums (>= (window-text-width) 140))
(available-width (- (window-text-width) 13))
(song-width (/ available-width (if show-albums 3 2)))
(artist-width (/ available-width (if show-albums 3 2)))
(album-width (/ available-width 3))
(string
(concat
(format "%02d.%.2d "
(/ (or (plist-get plist 'Time) 0) 60)
(mod (or (plist-get plist 'Time) 0) 60))
(mingus-truncate-string
(or (plist-get plist 'Title)
(plist-get plist 'Name)
(plist-get plist 'file))
song-width)
(concat " "
(mingus-truncate-string
(or (plist-get plist 'Artist)
(plist-get plist 'AlbumArtist)
"")
artist-width))
(if show-albums
(concat " "
(mingus-truncate-string
(or (plist-get plist 'Album) "")
album-width))
""))))
string))
(defun mingus-format-song-custom-simple (plist &optional separator)
"Make a string from PLIST.
Concatenate the results for the values with SEPARATOR, where SEPARATOR
defaults to the string \" - \"."
(let ((artist (cl-getf plist 'Artist))
(album (cl-getf plist 'Album))
(title (cl-getf plist 'Title))
(albumartist (cl-getf plist 'Albumartist))
(track (cl-getf plist 'Track))
(name (cl-getf plist 'Name))
(genre (cl-getf plist 'Genre))
(date (cl-getf plist 'Date))
(composer (cl-getf plist 'Composer))
(performer (cl-getf plist 'Performer))
(comment (cl-getf plist 'Comment))
(disc (cl-getf plist 'Disc))
(time (cl-getf plist 'Time))
(pos (cl-getf plist 'Pos))
(id (cl-getf plist 'Id))
(file (cl-getf plist 'file))
(separator (or separator " - ")))
(or (and mingus-use-caching
(gethash id mingus-song-strings))
(let ((val
(let* ((filestring (and file (file-name-nondirectory file)))
(short (remove nil (list (or artist albumartist)
(or title filestring)))))
(mapconcat 'identity short separator))))
(and mingus-use-caching
(puthash id val mingus-song-strings))
val))))
;; recenter screen after moving to current song
(defun mingus-goto-current-song--recenter ()
"Recenter screen after moving to current song."
(recenter-top-bottom))
;; advise `mingus-goto-current-song'
(advice-add 'mingus-goto-current-song :after #'mingus-goto-current-song--recenter)
(defun mingus-display-song-rating (highlight)
"Display song rating of currently selected mingus song.
If HIGHLIGHT is non-nil, highlight song."
(let ((buffer-name "*Mingus*"))
(unless (string= (buffer-name) buffer-name)
(error "Buffer is not `%s'" buffer-name))
(let (buffer-read-only)
(save-mark-and-excursion
(save-match-data
(goto-char (line-beginning-position))
(when (re-search-forward " \\[[0-9]\\]$" (line-end-position) :noerror)
(replace-match ""))
(goto-char (line-end-position))
(let ((rating (mingus-get-song-rating)))
(when rating
(insert (concat " ["
(number-to-string (mingus-get-song-rating))
"]"))))
(when highlight
(put-text-property (line-beginning-position) (line-end-position) 'face 'font-lock-keyword-face)))))))
(defun mingus-set-NP-mark--highlight-current-song (orig-fun &rest args)
"Mark entire line of currently playing song.
Use text properties to mark the line then call `mingus-set-NP-mark'."
(when (string= (buffer-name) "*Mingus*")
(ignore-errors
(let ((pos (or (and (> (length args) 1) (cadr args))
(cl-getf (mpd-get-status mpd-inter-conn) 'song)))
buffer-read-only)
(when pos
(save-mark-and-excursion
(save-window-excursion
(remove-text-properties (point-min) (point-max) '(face nil))
(mingus-goto-line (1+ pos))
(mingus-display-song-rating t)))))))
(apply orig-fun args))
;; advise `mingus-set-NP-mark'
(advice-add 'mingus-set-NP-mark :around #'mingus-set-NP-mark--highlight-current-song)
(defun mingus-get-all-song-ratings ()
"Return all song ratings as a hash table of songs to ratings."
(let ((ratings (make-hash-table :test 'equal)))
(dotimes (x 5)
(let* ((rating (1+ x))
(file (expand-file-name
(concat mingus-ratings-prefix (number-to-string rating))
mingus-ratings-directory)))
(with-temp-buffer
(insert-file-contents file)
(goto-char (point-min))
(while (not (eobp))
(puthash (buffer-substring-no-properties (line-beginning-position) (line-end-position)) rating ratings)
(forward-line 1)))))
ratings))
(defun mingus-display-all-song-ratings ()
"Display all song ratings in mingus playlist buffer."
(when (string= (buffer-name) "*Mingus*")
(save-mark-and-excursion
(save-window-excursion
(let ((ratings (mingus-get-all-song-ratings))
buffer-read-only)
(buffer-disable-undo)
(goto-char (point-min))
(while (not (eobp))
(ignore-errors
(let ((rating (get-byte (- (line-end-position) 2))))
(unless (and (= (get-byte (- (line-end-position) 1)) 93)
(= (get-byte (- (line-end-position) 3)) 91)
(>= rating 48)
(<= rating 53))
(let ((details (mingus-get-details)))
(when details
(let* ((file (plist-get details 'file))
(rating (gethash file ratings)))
(goto-char (line-end-position))
(if rating
(insert (concat " [" (number-to-string rating) "]"))
(insert " [0]"))))))))
(forward-line 1)))))))
;; advise `mingus-switch-to-playlist'
(advice-add 'mingus-switch-to-playlist :after #'mingus-display-all-song-ratings)
;; advise `mingus-redraw-buffer'
(advice-add 'mingus-redraw-buffer :after #'mingus-display-all-song-ratings)
(defun mingus-mpc-update ()
"Update (refresh) mpc (Music Player Client)"
(interactive)
(message "Updating mpc (Music Player Client)...")
(shell-command "mpc --wait update > /dev/null 2>&1"))
;;-----------------------------------------------------------------------
;;;; Mingus Fetch Lyrics Commands
;;-----------------------------------------------------------------------
(init-message 3 "Mingus Fetch Lyrics Commands")
;; ;; TODO: add ability to query multiple lyric sites when a result is not found on one
;; (defun mingus-get-lyrics ()
;; "Get lyrics (original non-api version)."
;; (interactive)
;; (let ((details (mingus-get-details)))
;; (when details
;; (let ((artist (plist-get details 'Artist))
;; (title (plist-get details 'Title))
;; (site "azlyrics.com")
;; ;;(site "allthelyrics.com")
;; ;;(site "lyricwiki.org")
;; ;;(site "lyrics.wikia.com")
;; (user-agent "Mozilla/4.0 (MSIE 6.0; Windows NT 5.0)")
;; (referer "http://www.google.com/")
;; (file (shell-command-to-string "echo -n /tmp/mingus-lyrics-$$.html")))
;; ;; remove ", The" from artist
;; (setq artist (replace-regexp-in-string artist ", The$" ""))
;; ;; remove anything in parenthesis from title
;; (setq title (replace-regexp-in-string title " ?([^)]*)" ""))
;; (let ((query (concat "http://www.google.com/search?q="
;; "lyrics "
;; "\"" artist "\" "
;; "\"" title "\" "
;; "site:" site
;; "&btnI=Search")))
;; (call-process "wget" nil nil nil
;; "--no-verbose"
;; "--convert-links"
;; (concat "--user-agent=" user-agent)
;; (concat "--referer=" referer)
;; "-O" file
;; query)
;; (browse-url (concat "file://" file))
;; ;; clean up response
;; (fundamental-mode)
;; (setq buffer-read-only nil)
;; (buffer-disable-undo)
;; (when (re-search-forward "You must enable javascript to view this page." nil :noerror)
;; (goto-char (line-end-position))
;; (forward-line 1)
;; (delete-region (point-min) (point)))
;; (when (re-search-forward "External links" nil :noerror)
;; (goto-char (line-beginning-position))
;; (delete-region (point) (point-max)))
;; (goto-char (point-min))
;; (while (re-search-forward "phone Send" nil :noerror)
;; (delete-region (line-beginning-position) (1+ (line-end-position))))
;; (setq buffer-read-only nil)
;; (goto-char (point-min))
;; )))))
(defun mingus-get-lyrics-azlyrics (artist title)
"Return the lyrics for a song matching ARTIST and TITLE
by scraping the azlyrics.com site."
(interactive)
(message "artist: %s, title: %s" artist title)
(let* ((start-regexp "<!-- Usage of azlyrics.com")
(end-regexp "<!-- MxM banner -->")
(ret-regexp "
")
(bracket-regexp " *\\[[^\]].*\\]")
(starting-spaces-regexp "^ +")
(ending-spaces-regexp " +$")
(feat-regexp "<span class=\"feat\">\\(.*\\)</span>")
(site "azlyrics.com")
;;(user-agent "Mozilla/4.0 (MSIE 6.0; Windows NT 5.0)")
(user-agent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; WOW64; Trident/4.0; SLCC1)")
(referer "http://www.google.com/")
(search-file (shell-command-to-string "echo -n /tmp/mingus-search-$$.html"))
(lyrics-file (shell-command-to-string "echo -n /tmp/mingus-lyrics-$$.html"))
(parsed-title
(replace-regexp-in-string ending-spaces-regexp ""
(replace-regexp-in-string starting-spaces-regexp ""
(replace-regexp-in-string bracket-regexp "" title))))
(query (concat "http://www.google.com/search?q="
"lyrics "
(if artist (concat "\"" artist "\" ") "")
"\"" parsed-title "\" "
"site:" site
"&btnI=Search"))
url
lyrics
error)
;; TODO: make this call asynchronous (using `start-process')
(call-process "wget" nil nil nil
"--no-verbose"
"--convert-links"
(concat "--user-agent=" user-agent)
(concat "--referer=" referer)
"-O" search-file
query)
(message "query: %s" query)
(message "wget call: wget --no-verbose --convert-links --user-agent=\"%s\" --referer=%s -O %s %s" user-agent referer search-file query)
(with-temp-buffer
(buffer-disable-undo)
(condition-case err
(progn
(insert-file-contents search-file)
(goto-char (point-min))
(re-search-forward (concat "https://www." site "[^\"]*"))
(setq url (match-string-no-properties 0)))
('error
(message "Error trying to find lyrics url: %s" err)
(setq error t))))
(if (and error artist)
;; on error, try again without artist
(mingus-get-lyrics-azlyrics nil title)
(progn
;; no error, so continue
(call-process "wget" nil nil nil
"--no-verbose"
"--convert-links"
(concat "--user-agent=" user-agent)
(concat "--referer=" referer)
"-O" lyrics-file
url)
(with-temp-buffer
(buffer-disable-undo)
(condition-case err
(progn
(insert-file-contents lyrics-file)
;; clean up response
(fundamental-mode)
(goto-char (point-min))
(when (re-search-forward start-regexp nil :noerror)
(goto-char (line-beginning-position))
(forward-line 1)
(let ((pos (point)))
(forward-line -3)
(delete-region (point) pos))
(forward-line -2)
(delete-region (point-min) (point)))
(when (re-search-forward end-regexp nil :noerror)
(delete-region (line-beginning-position) (point-max)))
(goto-char (point-min))
(while (re-search-forward ret-regexp nil :noerror)
(replace-match ""))
(goto-char (point-min))
(while (re-search-forward feat-regexp nil :noerror)
(replace-match "\\1"))
(shr-render-region (point-min) (point-max))
(goto-char (point-max))
(delete-blank-lines)
(goto-char (point-min))
(insert (upcase artist) ": " (upcase title))
(newline)
(newline)
(setq lyrics (buffer-substring-no-properties (point-min) (point-max))))
('error
(message "Error trying to format lyrics result: %s" err)))
lyrics)))))
;; this site seems to be no longer working (2010-04-06)
(defun mingus-get-lyrics-leoslyrics (artist title)
"Return the lyrics for a song matching ARTIST and TITLE
using the api.leoslyrics.com site."
(interactive)
(let ((query (concat "wget -q \"http://api.leoslyrics.com/api_search.php?auth=emacs"
(if artist (concat "&artist=" (url-hexify-string artist)) "")
"&songtitle=" (url-hexify-string title)
"\" -O - | xmlstarlet sel -t -v \"/leoslyrics/searchResults/result/@hid\"")))
;;(message "hid query: %s" query)
(let ((hid (shell-command-to-string query)))
(when hid
;;(message "hid: %s" (url-hexify-string hid))
(let ((query (concat "wget -q \"http://api.leoslyrics.com/api_lyrics.php?auth=emacs&hid="
(url-hexify-string hid)
"\" -O - | xmlstarlet sel -t -v \"/leoslyrics/lyric/text/text()\""
" | xmlstarlet unesc | tr -d '\r'")))
;;(message "lyrics query: %s" query)
(let ((lyrics (shell-command-to-string query)))
lyrics))))))
(defun mingus-get-lyrics-metrolyrics (artist title)
"Return the lyrics for a song matching ARTIST and TITLE
by scraping the metrolyrics.com site."
(interactive)
(let* ((start-regexp "<div id=\"lyrics-body-text\">")
(end-regexp "</div>")
(ret-regexp "
")
(bracket-regexp " *\\[[^\]].*\\]")
(starting-spaces-regexp "^ +")
(ending-spaces-regexp " +$")
(site "metrolyrics.com")
;;(user-agent "Mozilla/4.0 (MSIE 6.0; Windows NT 5.0)")
(user-agent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; WOW64; Trident/4.0; SLCC1)")
(referer "http://www.google.com/")
(file (shell-command-to-string "echo -n /tmp/mingus-lyrics-$$.html"))
(parsed-title
(replace-regexp-in-string ending-spaces-regexp ""
(replace-regexp-in-string starting-spaces-regexp ""
(replace-regexp-in-string bracket-regexp "" title))))
(query (concat "http://www.google.com/search?q="
"lyrics "
(if artist "\"" artist "\" " "")
"\"" parsed-title "\" "
"site:" site
"&btnI=Search"))
(lyrics))
;; TODO: make this call asynchronous (using `start-process')
(call-process "wget" nil nil nil
"--no-verbose"
"--convert-links"
(concat "--user-agent=" user-agent)
(concat "--referer=" referer)
"-O" file
query)
(message "query: %s" query)
(message "wget call: wget --no-verbose --convert-links --user-agent=\"%s\" --referer=%s -O %s %s" user-agent referer file query)
(with-temp-buffer
(buffer-disable-undo)
(condition-case err
(progn
(insert-file-contents file)
;; clean up response
(fundamental-mode)
(goto-char (point-min))
(when (re-search-forward start-regexp nil :noerror)
(goto-char (line-beginning-position))
(forward-line 1)
(let ((pos (point)))
(forward-line -3)
(delete-region (point) pos))
(forward-line -2)
(delete-region (point-min) (point)))
(when (re-search-forward end-regexp nil :noerror)
(delete-region (line-beginning-position) (point-max)))
(goto-char (point-min))
(while (re-search-forward ret-regexp nil :noerror)
(replace-match ""))
(shr-render-region (point-min) (point-max))
(goto-char (point-max))
(delete-blank-lines)
(goto-char (point-min))
(insert (upcase artist) ": " (upcase title))
(newline)
(newline)
(setq lyrics (buffer-substring-no-properties (point-min) (point-max))))
('error
(message "Error trying to format lyrics result: %s" err)))
lyrics)))
;; TODO: add ability to query multiple lyric sites when a result is not found on one
(defun mingus-get-lyrics ()
"Display lyrics for the selected song."
(interactive)
(let ((details (mingus-get-details)))
(when details
(let ((artist (plist-get details 'Artist))
(title (plist-get details 'Title))
(funct 'mingus-get-lyrics-azlyrics))
;;(funct 'mingus-get-lyrics-leoslyrics))
;;(funct 'mingus-get-lyrics-metrolyrics))
;; remove ", The" from artist
(setq artist (replace-regexp-in-string ", The$" "" artist))
;; remove anything in parenthesis from title
(setq title (replace-regexp-in-string " ?([^)]*)" "" title))
;; call lyrics api
(let ((buffer-name (concat "*" artist ": " title "*"))
(lyrics (funcall funct artist title)))
;; if no lyrics returned, try again with song title only (helps with covers)
(when (or (not lyrics)
(zerop (length lyrics)))
(setq lyrics (funcall funct nil title)))
(if (and lyrics
(> (length lyrics) 0))
(progn
(get-buffer-create buffer-name)
(set-buffer buffer-name)
(let ((buffer-read-only nil))
(erase-buffer)
(insert lyrics)
(delete-trailing-whitespace)
(switch-to-buffer buffer-name)
(goto-char (point-min))
(view-mode)))
(message "No lyrics found for Artist: %s, Title: %s" artist title)))))))
;;-----------------------------------------------------------------------
;;;; Mingus Song Rating System
;;-----------------------------------------------------------------------
(init-message 3 "Mingus Song Rating System")
;; directory to store rating play lists
(defcustom mingus-ratings-directory `,(expand-file-name "~/.song-ratings")
"Directory to store rating play lists."
:type 'string
:group 'mingus)
;; rating play list prefix
(defcustom mingus-ratings-prefix "songs-rated-"
"Ratings play list files prefix."
:type 'string
:group 'mingus)
(defun mingus-get-song-rating ()
"Return song rating of the selected song."
(interactive)
(let ((details (mingus-get-details)))
(when details
(let* ((file (plist-get details 'file))
(song-name (propertize
(replace-regexp-in-string "^.*/\\([^/]+\\)\\..*$" "\\1" file)
'face
'font-lock-keyword-face))
(get-cmd (concat
"cd " mingus-ratings-directory " && "
"(for x in $(ls " mingus-ratings-prefix "*) ; do grep -q -F \""
(replace-regexp-in-string "\"" "\"" file)
"\" \"${x}\" && echo ${x: -1}; done)")))
;;(message "get-cmd: %s" get-cmd)
;; make sure ratings directory exists
(unless (file-exists-p mingus-ratings-directory)
(make-directory mingus-ratings-directory))
;; get rating, if there is one
(let ((rating (shell-command-to-string get-cmd)))
(when (string-match "\r?\n$" rating)
(setq rating (replace-match "" t nil rating)))
(when (zerop (length rating))
(setq rating "0"))
(let ((rating-name (propertize rating 'face 'font-lock-keyword-face)))
;; print or return rating
(if (called-interactively-p 'any)
(message "Rating for %s is %s" song-name rating-name)
(string-to-number rating))))))))
(defun mingus-set-song-rating (rating)
"Set song rating of the selected song.
RATING may be a number from 0 to 5, where 1 is least favorite
and 5 is most favorite. 0 will unset the rating."
(interactive)
(unless (and (>= rating 0) (<= rating 5))
(error "Rating must be a number from 0 through 5"))
(let ((details (mingus-get-details)))
(when details
(let* ((file (plist-get details 'file))
(song-name (propertize
(replace-regexp-in-string "^.*/\\([^/]+\\)\\..*$" "\\1" file)
'face
'font-lock-keyword-face))
(rating-name (propertize (number-to-string rating) 'face 'font-lock-keyword-face))
(playlist (concat mingus-ratings-prefix (number-to-string rating)))
(clear-cmd (concat
"cd " mingus-ratings-directory " && "
"(for x in $(ls " mingus-ratings-prefix "*) ; do grep -v -F \""
(replace-regexp-in-string "\"" "\"" file)
"\" \"${x}\" > tmp ; mv tmp \"${x}\" ; done)"))
(set-cmd (concat
"cd " mingus-ratings-directory " && "
"(echo \""
(replace-regexp-in-string "\"" "\"" file)
"\" >> " playlist ") && "
"(cat " playlist " | sort > tmp ; mv tmp " playlist ")")))
;;(message "clear-cmd: %s" clear-cmd)
;;(message "set-cmd: %s" set-cmd)
;; make sure ratings directory exists
(unless (file-exists-p mingus-ratings-directory)
(make-directory mingus-ratings-directory))
;; clear song from any play lists
(shell-command clear-cmd)
;; if rating > 0, add song to corresponding ratings play list
(if (> rating 0)
;; set rating
(if (> (shell-command set-cmd) 0)
(error "Could not set rating for %s" song-name)
(message "%s rating was set to %s" song-name rating-name))
;; rating was cleared
(message "%s rating was cleared" song-name))
(let (buffer-read-only)
(buffer-disable-undo)
(mingus-display-song-rating nil))))))
(defun mingus-set-song-rating-1 ()
"Call `mingus-set-song-rating' with a rating of 1."
(interactive)
(mingus-set-song-rating 1))
(defun mingus-set-song-rating-2 ()
"Call `mingus-set-song-rating' with a rating of 2."
(interactive)
(mingus-set-song-rating 2))
(defun mingus-set-song-rating-3 ()
"Call `mingus-set-song-rating' with a rating of 3."
(interactive)
(mingus-set-song-rating 3))
(defun mingus-set-song-rating-4 ()
"Call `mingus-set-song-rating' with a rating of 4."
(interactive)
(mingus-set-song-rating 4))
(defun mingus-set-song-rating-5 ()
"Call `mingus-set-song-rating' with a rating of 5."
(interactive)
(mingus-set-song-rating 5))
(defun mingus-set-song-rating-0 ()
"Call `mingus-set-song-rating' with a rating of 0."
(interactive)
(mingus-set-song-rating 0)))
;; mingus:1 ends here
;; [[file:init-emacs.org::*multiple-cursors][multiple-cursors:1]]
;;------------------------------------------------------------------------------
;;; Modules: multiple-cursors
;;------------------------------------------------------------------------------
(init-message 2 "Modules: multiple-cursors")
(use-package multiple-cursors
;;:quelpa (multiple-cursors)
:straight t
:bind* (("C-c C->" . mc/edit-lines)
("C-c C-<" . mc/mark-all-like-this)
("C->" . mc/mark-next-like-this)
("C-<" . mc/mark-previous-like-this)
("C-M->" . mc/unmark-next-like-this)
("C-M-<" . mc/unmark-previous-like-this)))
;; multiple-cursors:1 ends here
;; [[file:init-emacs.org::*neotree][neotree:1]]
;;------------------------------------------------------------------------------
;;; Modules: neotree
;;------------------------------------------------------------------------------
(init-message 2 "Modules: neotree")
(use-package neotree
;;:quelpa (neotree)
:straight t
:commands (neo-global--select-window
neo-global--window-exists-p
neotree-toggle)
:bind ("<f8>" . neotree-select-or-toggle)
:custom
;; open tree at current file node
(neo-smart-open t)
;; work with projectile
(projectile-switch-project-action #'neotree-projectile-action)
:config
(defun neotree-select-or-toggle ()
"Make an existing neotree window active or toggle it on/off."
(interactive)
(if (and (neo-global--window-exists-p)
(not (eq (current-buffer) (get-buffer neo-buffer-name))))
(neo-global--select-window)
(neotree-toggle))))
;; neotree:1 ends here
;; [[file:init-emacs.org::*persistent-scratch][persistent-scratch:1]]
;;------------------------------------------------------------------------------
;;; Modules: persistent-scratch
;;------------------------------------------------------------------------------
(init-message 2 "Modules: persistent-scratch")
(use-package persistent-scratch
;;:quelpa (persistent-scratch)
:straight t
:demand t
:init
;; enable autosave and restore last saved state
(persistent-scratch-setup-default))
;; persistent-scratch:1 ends here
;; [[file:init-emacs.org::*proced][proced:1]]
;;------------------------------------------------------------------------------
;;; Modules: proced
;;------------------------------------------------------------------------------
(init-message 2 "Modules: proced")
(use-package proced
;;:quelpa (proced)
:straight t
:commands (proced))
;; proced:1 ends here
;; [[file:init-emacs.org::*projectile][projectile:1]]
;;------------------------------------------------------------------------------
;;; projectile (project interaction library)
;;
;; Install `ack-grep' and `exuberant-ctags' system packages for more
;; projectile functionality.
;; ------------------------------------------------------------------------------
(init-message 2 "Modules: projectile")
(use-package projectile
;;:quelpa (projectile)
:straight t
:after (ivy)
:diminish (projectile-mode . "Proj")
:bind* ("C-x p" . projectile-command-map)
:bind-keymap ("C-c p" . projectile-command-map)
:custom
;; open the root directory when switching projects
(projectile-switch-project-action #'projectile-dired)
;; use ivy
(projectile-completion-system 'ivy)
:init
;; enable projectile globally
(projectile-mode)
:config
(dolist (x '("~/dev" "~/code" "~/web"))
(when (file-directory-p x)
(add-to-list 'projectile-project-search-path x))))
;;------------------------------------------------------------------------------
;;;; counsel-projectile
;;
;; Ivy integration for Projectile.
;;------------------------------------------------------------------------------
(init-message 3 "counsel-projectile")
(use-package counsel-projectile
;;:quelpa (counsel-projectile)
:straight t
:after (ivy counsel projectile)
:init (counsel-projectile-mode))
;; projectile:1 ends here
;; [[file:init-emacs.org::*ps-ccrypt][ps-ccrypt:1]]
;;------------------------------------------------------------------------------
;;; Modules: ps-ccrypt
;;------------------------------------------------------------------------------
(init-message 2 "Modules: ps-ccrypt")
(use-package ps-ccrypt
:when (executable-find "ccrypt") ; only use if binary is available on system
;; local copy with a bug fix
;;:quelpa (ps-ccrypt :fetcher file :path (expand-file-name "ps-ccrypt.el" emacs-modules-dir))
:load-path (lambda () (expand-file-name "ps-ccrypt.el" emacs-modules-dir)))
;; ps-ccrypt:1 ends here
;; [[file:init-emacs.org::*recentf][recentf:1]]
;;------------------------------------------------------------------------------
;;; Modules: recentf
;;------------------------------------------------------------------------------
(init-message 2 "Modules: recentf")
(use-package recentf
:commands (recentf-mode)
:custom
(recentf-max-menu-items 25)
:init
(recentf-mode 1))
;; recentf:1 ends here
;; [[file:init-emacs.org::*regex-tool][regex-tool:1]]
;;------------------------------------------------------------------------------
;;; Modules: regex-tool
;;------------------------------------------------------------------------------
(init-message 2 "Modules: regex-tool")
(use-package regex-tool
;;:quelpa (regex-tool)
:straight t
:commands (regex-tool))
;; regex-tool:1 ends here
;; [[file:init-emacs.org::*replacer][replacer:1]]
;;------------------------------------------------------------------------------
;;; Modules: replacer
;;------------------------------------------------------------------------------
(init-message 2 "Modules: replacer")
(use-package replacer
;;:quelpa (replacer :fetcher file :path (expand-file-name "replacer.el" local-modules-dir))
:load-path (lambda () (expand-file-name "replacer.el" local-modules-dir))
:after (company)
:commands (replacer-mode company-replacer-backend)
:custom
;; set trigger start
(replacer-trigger-start ";")
;; set trigger end
(replacer-trigger-end " ")
;; set trigger keys and replacements
(replacer-replacements
'(
;; help
("h" . replacer-help)
("help" . replacer-help)
;; insert
("id" . insert-date)
("idt" . insert-datetime)
("its" . insert-timestamp)
;; org-mode
("on" . org-insert-literate-programming-name)
("os" . org-insert-literate-programming-src)
("ossh" . org-insert-literate-programming-src-sh)
("ossu" . org-insert-literate-programming-src-sh-sudo)
("osel" . org-insert-literate-programming-src-emacs-lisp)
("osr" . org-insert-literate-programming-src-racket)
("osk" . org-insert-literate-programming-src-kotlin)
("ospy" . org-insert-literate-programming-src-python)
("obie" . org-insert-literate-programming-init-emacs-block)
("obc" . org-insert-literate-programming-code-block)
("obpe" . org-insert-literate-programming-project-euler-problem-block)
))
:init
;; turn replacer mode on
(replacer-mode 1)
:config
(defun replacer-replacements-edit ()
"Open `init-emacs.org' and move point to `replacer-replacements' variable for easy editing."
(interactive)
(find-file (expand-file-name "init-emacs.org" emacs-home-dir))
(goto-char (point-min))
(search-forward "replacer-replacements")
(org-show-entry))
(defun replacer-help ()
"Show list of `replacer-replacements'."
(describe-variable 'replacer-replacements)))
;; replacer:1 ends here
;; [[file:init-emacs.org::*s][s:1]]
;;------------------------------------------------------------------------------
;;; Modules: s
;;------------------------------------------------------------------------------
(init-message 2 "Modules: s")
(use-package s
;;:quelpa (s))
:straight t)
;; s:1 ends here
;; [[file:init-emacs.org::*saveplace][saveplace:1]]
;;------------------------------------------------------------------------------
;;; Modules: saveplace
;;------------------------------------------------------------------------------
(init-message 2 "Modules: saveplace")
(use-package saveplace
:init (save-place-mode 1))
;; saveplace:1 ends here
;; [[file:init-emacs.org::*smerge][smerge:1]]
;;------------------------------------------------------------------------------
;;; Modules: smerge
;;------------------------------------------------------------------------------
(init-message 2 "Modules: smerge")
(use-package smerge-mode
:init
(defun smerge-mode-maybe ()
"Auto turn on smerge mode when a file with merge conflicts is loaded.
Do not perform the search on very large files (to avoid a delay when loaded)."
(when (<= (buffer-size) 10000)
(save-mark-and-excursion
(save-match-data
(goto-char (point-min))
(when (re-search-forward "^<<<<<<< " nil :noerror)
(smerge-mode 1))))))
(add-hook 'find-file-hook #'smerge-mode-maybe :append))
;; smerge:1 ends here
;; [[file:init-emacs.org::*sokoban][sokoban:1]]
;;------------------------------------------------------------------------------
;;; Modules: sokoban
;;------------------------------------------------------------------------------
(init-message 2 "Modules: sokoban")
(use-package sokoban
;;:quelpa (sokoban :fetcher file :path (expand-file-name "sokoban/sokoban.el" emacs-modules-dir))
:load-path (lambda () (expand-file-name "sokoban/sokoban.el" emacs-modules-dir))
:commands (sokoban sokoban-mode)
:custom
(sokoban-levels-dir (expand-file-name "sokoban/sokoban-levels" emacs-modules-dir)))
;; sokoban:1 ends here
;; [[file:init-emacs.org::*split-move][split-move:1]]
;;------------------------------------------------------------------------------
;;; Modules: split-move
;;------------------------------------------------------------------------------
(init-message 2 "Modules: split-move")
(use-package split-move
;;:quelpa (split-move :fetcher file :path (expand-file-name "split-move.el" local-modules-dir))
:load-path (lambda () (expand-file-name "split-move.el" local-modules-dir))
:commands (split-move-up split-move-down))
;; split-move:1 ends here
;; [[file:init-emacs.org::*spinner][spinner:1]]
;;------------------------------------------------------------------------------
;;; Modules: spinner
;;------------------------------------------------------------------------------
(init-message 2 "Modules: spinner")
(use-package spinner
;;:quelpa (spinner :fetcher github :repo "Malabarba/spinner.el"))
:straight (spinner :type git :host github :repo "Malabarba/spinner.el"))
;; spinner:1 ends here
;; [[file:init-emacs.org::*sudoku][sudoku:1]]
;;------------------------------------------------------------------------------
;;; Modules: sudoku
;;------------------------------------------------------------------------------
(init-message 2 "Modules: sudoku")
(use-package sudoku
;;:quelpa (sudoku :fetcher github :repo "zevlg/sudoku.el")
:straight (sudoku :type git :host github :repo "zevlg/sudoku.el")
:commands (sudoku))
;; sudoku:1 ends here
;; [[file:init-emacs.org::*switch-window][switch-window:1]]
;;------------------------------------------------------------------------------
;;; Modules: switch-window
;;------------------------------------------------------------------------------
(init-message 2 "Modules: switch-window")
(use-package switch-window
;;:quelpa (switch-window)
:straight t
:demand t
:commands (switch-window switch-window-then-delete)
:custom
;; use home keys to select windows
(switch-window-shortcut-style 'qwerty))
;; switch-window:1 ends here
;; [[file:init-emacs.org::*telnet][telnet:1]]
;;------------------------------------------------------------------------------
;;; Modules: telnet
;;------------------------------------------------------------------------------
(init-message 2 "Modules: telnet")
(use-package telnet)
;; telnet:1 ends here
;; [[file:init-emacs.org::*timeclock][timeclock:1]]
;;------------------------------------------------------------------------------
;;; Modules: timeclock
;;------------------------------------------------------------------------------
(init-message 2 "Modules: timeclock")
(use-package timeclock
:bind (("C-c ti" . timeclock-in)
("C-c to" . timeclock-out)
("C-c tc" . timeclock-change)
("C-c tr" . timeclock-reread-log)
("C-c tu" . timeclock-update-mode-line)
("C-c tw" . timeclock-when-to-leave-string)
("C-c tv" . timeclock-visit-timelog)
("C-c ts" . timeclock-status-string)
("C-c td" . timeclock-mode-line-display)
("C-c tg" . timeclock-generate-report))
;;:init (timeclock-mode-line-display)
)
;; timeclock:1 ends here
;; [[file:init-emacs.org::*time-stamp][time-stamp:1]]
;;------------------------------------------------------------------------------
;;; Modules: time-stamp
;;
;; When there is a "Timestamp: <>" in the first 20 lines of a file,
;; emacs will write the time-stamp there when saving the file.
;; Timestamp is case insensitive and a dash is optional (e.g. Time-stamp).
;;------------------------------------------------------------------------------
(init-message 2 "Modules: time-stamp")
(use-package time-stamp
:commands (time-stamp)
:custom (time-stamp-active t)
:init
(setq time-stamp-line-limit 20
time-stamp-start "[Tt][Ii][Mm][Ee][-]?[Ss][Tt][Aa][Mm][Pp]:[ \t]+\\\\?[\"<]+"
time-stamp-format "%Y-%02m-%02d %02H:%02M (%u)")
(add-hook 'before-save-hook #'time-stamp))
;; time-stamp:1 ends here
;; [[file:init-emacs.org::*tramp][tramp:1]]
;;------------------------------------------------------------------------------
;;; Modules: tramp
;;------------------------------------------------------------------------------
(init-message 2 "Modules: tramp")
(use-package tramp
:commands (tramp)
:custom
(tramp-default-method "ssh")
:config
(add-to-list 'tramp-default-method-alist '("^localhost$" "^root$" "su") t))
;;------------------------------------------------------------------------------
;;; Find File as Root
;;------------------------------------------------------------------------------
(init-message 3 "Find File as Root")
(use-package tramp
:commands (find-alternative-file-as-root
find-file-as-root
find-file-as-root-or-find-alternative-file-as-root
tramp
tramp-dissect-file-name
tramp-file-name-localname
tramp-tramp-file-p)
:bind* ("C-c C-r" . find-alternative-file-as-root)
:config
(defvar find-file-as-root-prefix "/sudo:root@localhost:"
"*The file name prefix used to open a file with `find-file-as-root'.")
(defvar find-file-as-root-history nil
"History list for files found using `find-file-as-root'.")
(defvar find-file-as-root-hook nil
"Normal hook for functions to run after finding files with `find-file-as-root'.")
(defun find-file-as-root ()
"*Open a file as the root user.
Prepends `find-file-as-root-prefix' to the selected file name so
that it maybe accessed via the corresponding tramp method."
(interactive)
(require 'tramp)
;; bind the variable `file-name-history' locally so there is a separate
;; history list for files found using `find-file-as-root'
(let* ((file-name-history find-file-as-root-history)
(name (or buffer-file-name default-directory))
(tramp (and (tramp-tramp-file-p name) (tramp-dissect-file-name name)))
path dir file)
;; when called from a file opened with tramp, fix up the path
(when tramp
(setq path (tramp-file-name-localname tramp)
dir (file-name-directory path)))
;; ask for file name
(when (setq file (read-file-name "Find file as root: " dir path))
(find-file (concat find-file-as-root-prefix file))
;; if this all succeeded, save our new history list
(setq find-file-as-root-history file-name-history)
;; allow some user customization
(run-hooks 'find-file-as-root-hook))))
(defun find-alternative-file-as-root ()
"Find alternative file as root."
(interactive)
(when buffer-file-name
(find-alternate-file
(concat "/sudo:root@localhost:"
buffer-file-name))))
(defun find-file-as-root-or-find-alternative-file-as-root ()
"If current buffer is read-only, run `file-alternative-file-as-root',
otherwise run `find-file-as-root'."
(interactive)
(if buffer-read-only
(find-alternative-file-as-root)
(find-file-as-root))))
;; tramp:1 ends here
;; [[file:init-emacs.org::*undo-tree][undo-tree:1]]
;;------------------------------------------------------------------------------
;;; Modules: undo-tree
;;------------------------------------------------------------------------------
(init-message 2 "Modules: undo-tree")
(use-package undo-tree
;;:quelpa (undo-tree :fetcher github :repo "apchamberlain/undo-tree.el")
:straight (undo-tree :type git :host github :repo "apchamberlain/undo-tree.el")
:demand t
:diminish undo-tree-mode
:bind* (("<M-mouse-5>" . undo-tree-redo)
("<M-mouse-4>" . undo-tree-undo))
:init
;; turn on undo-tree globally
(global-undo-tree-mode 1))
;; undo-tree:1 ends here
;; [[file:init-emacs.org::*vimish-fold][vimish-fold:1]]
;;------------------------------------------------------------------------------
;;; Modules: vimish-fold
;;------------------------------------------------------------------------------
(init-message 2 "Modules: vimish-fold")
(use-package vimish-fold
;;:quelpa (vimish-fold))
:straight t)
;; vimish-fold:1 ends here
;; [[file:init-emacs.org::*w3m][w3m:1]]
;;------------------------------------------------------------------------------
;;; Modules: w3m
;;------------------------------------------------------------------------------
(init-message 2 "Modules: w3m")
(use-package w3m
:when (executable-find "w3m") ; only use if binary is available on system
;;:quelpa (w3m)
:straight t
:commands (w3m
w3m-antenna
w3m-browse-url
w3m-encode-specials-string
w3m-find-file
w3m-namazu
w3m-next-buffer
w3m-previous-buffer
w3m-region
w3m-search
w3m-weather)
:defines (w3m-use-tab-line)
:bind (:map w3m-mode-map
("," . w3m-previous-buffer)
("." . w3m-next-buffer))
:custom
;; directory of icon files
(w3m-icon-directory "/usr/share/emacs-w3m/icon")
;; turn on cookies
(w3m-use-cookies t)
:config
;; add new functionality not in this version
(defun w3m-buffer (&optional buffer)
"Render the current buffer or BUFFER if given."
(interactive)
(when buffer
(switch-to-buffer buffer))
(w3m-region (point-min) (point-max)))
(defun w3m-display-local-hook (url)
"Hook to auto-rename buffers to page title or url."
(rename-buffer
(format "*w3m: %s*" (or w3m-current-title w3m-current-url)) t))
(add-hook 'w3m-display-hook #'w3m-display-local-hook))
;; ;;------------------------------------------------------------------------------
;; ;;;; Modules: w3m-session
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "w3m-session")
;; ;; persistent sessions
;; (use-package w3m-session
;; :when (executable-find "w3m") ; only use if w3m command is available on system
;; ;;:quelpa (w3m-session)
;; :straight t
;; :after (w3m)
;; :commands (w3m-session-load
;; w3m-session-load-always
;; w3m-session-save
;; w3m-session-save-always)
;; :bind (:map w3m-mode-map
;; ("S" . w3m-session-save)
;; ("L" . w3m-session-load))
;; ;;:config
;; ;;(setq w3m-session-file "~/.w3m-session")
;; ;;(setq w3m-session-save-always nil)
;; ;;(setq w3m-session-load-always nil)
;; ;;(setq w3m-session-show-titles t)
;; ;;(setq w3m-session-duplicate-tabs 'ask) ; 'never, 'always, 'ask
;; )
;; w3m:1 ends here
;; [[file:init-emacs.org::*web-query][web-query:1]]
;;------------------------------------------------------------------------------
;;; Modules: web-query
;;------------------------------------------------------------------------------
(init-message 2 "Modules: web-query")
(use-package web-query
;; :when (executable-find "w3m")
;; :after (w3m)
;;:quelpa (web-query :fetcher file :path (expand-file-name "web-query.el" local-modules-dir))
:load-path (lambda () (expand-file-name "web-query.el" local-modules-dir))
:commands (web-query
web-query-word
web-query-word-at-point
web-query-symbol-by-mode
web-query-symbol-by-mode-at-point)
:bind (;;("S-<f5>" . web-query-word-at-point)
("S-<f6>" . web-query)
("S-<f7>" . web-query-symbol-by-mode-at-point)
("C-c w" . web-query)))
;; web-query:1 ends here
;; [[file:init-emacs.org::*webjump][webjump:1]]
;;------------------------------------------------------------------------------
;;; Modules: webjump
;;------------------------------------------------------------------------------
(init-message 2 "Modules: webjump")
(use-package webjump
;;:bind* ("C-x j" . webjump)
:config
;; add some sites
(add-to-list 'webjump-sites '("Urban Dictionary" . [simple-query "www.urbandictionary.com" "http://www.urbandictionary.com/define.php?term=" ""]) t))
;; webjump:1 ends here
;; [[file:init-emacs.org::*weblogger][weblogger:1]]
;;------------------------------------------------------------------------------
;;; Modules: weblogger
;;------------------------------------------------------------------------------
(init-message 2 "Modules: weblogger")
(use-package weblogger
;;:quelpa (weblogger)
:straight t
:commands (weblogger-select-configuration
weblogger-setup-weblog
weblogger-start-entry)
:custom
;; add weblog sites
(weblogger-config-alist
`(("nullman" "http://www.blogger.com/api" ,user-mail-address "" "6007591")
("Nullman on Life" "http://www2.blogger.com/api" ,user-mail-address "" "6007591"))))
;; weblogger:1 ends here
;; [[file:init-emacs.org::*wgrep][wgrep:1]]
;;------------------------------------------------------------------------------
;;; Modules: wgrep
;;------------------------------------------------------------------------------
(init-message 2 "Modules: wgrep")
(use-package wgrep
;;:quelpa (wgrep)
:straight t
:bind (:map grep-mode-map
("C-x C-q" . wgrep-change-to-wgrep-mode))) ; same keybinding as `wdired-mode'
;; wgrep:1 ends here
;; [[file:init-emacs.org::*which-key][which-key:1]]
;;------------------------------------------------------------------------------
;;; Modules: which-key
;;------------------------------------------------------------------------------
(init-message 2 "Modules: which-key")
(use-package which-key
;;:quelpa (which-key)
:straight t
:demand t
:init (which-key-mode))
;; which-key:1 ends here
;; [[file:init-emacs.org::*wtf][wtf:1]]
;;------------------------------------------------------------------------------
;;; Modules: wtf
;;------------------------------------------------------------------------------
(init-message 2 "Modules: wtf")
(use-package wtf
;;:quelpa (wtf :fetcher url :url "http://mwolson.org/static/dist/elisp/wtf.el")
:load-path (lambda () (expand-file-name "wtf.el" emacs-modules-dir))
:commands (wtf-is wtf-get-term-at-point))
;; wtf:1 ends here
;; [[file:init-emacs.org::*wttrin][wttrin:1]]
;;------------------------------------------------------------------------------
;;; Modules: wttrin
;;------------------------------------------------------------------------------
(init-message 2 "Modules: wttrin")
(use-package wttrin
;;:quelpa (wttrin)
:straight t
:custom
;; default cities
(wttrin-default-cities '("Austin"
"London"
"Minneapolis"
"New York"
"San Diego"))
;; default language
(wttrin-default-accept-language '("Accept-Language" . "en-US")))
;; wttrin:1 ends here
;; [[file:init-emacs.org::*LSP Mode][LSP Mode:1]]
;;==============================================================================
;;; LSP Mode
;;==============================================================================
(init-message 1 "LSP Mode")
;; LSP Mode:1 ends here
;; [[file:init-emacs.org::*Modes][Modes:1]]
;;==============================================================================
;;; Modes
;;==============================================================================
(init-message 1 "Modes")
;; Modes:1 ends here
;; [[file:init-emacs.org::*Setup][Setup:1]]
;;------------------------------------------------------------------------------
;;; Modes: Setup
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Setup")
;; turn off electric indent for all modes
(setq-default electric-indent-inhibit t)
;; turn off electric mode for all cc modes
(setq-default c-electric-flag nil)
;; Setup:1 ends here
;; [[file:init-emacs.org::*ASM][ASM:1]]
;;------------------------------------------------------------------------------
;;; Modes: ASM
;;------------------------------------------------------------------------------
(init-message 2 "Modes: ASM")
(use-package asm-mode
:mode ("\\.asm\\'" . asm-mode)
:config
(defun local-asm-mode-hook ()
"Customizations for asm-mode."
;; remove using ';' in place of M-; to insert a comment
(local-unset-key [asm-comment-char])
;; ;; enable tabs
;; (add-hook 'asm-mode-hook #'enable-tabs-8)
;; ;; set tab indentation, width, and do not convert tabs to spaces
;; (setq indent-tabs-mode t ; insert tab characters
;; tab-width 8 ; default tab width is four spaces
;; standard-indent 8 ; default margin-changing functions indent
;; tab-always-indent nil ; tab key will insert a tab
;; tab-stop-list (number-sequence 8 180 8)) ; tab stops set to every 8 spaces
;; ;; set tab indentation, width, and convert tabs to spaces
;; (setq indent-tabs-mode nil ; do not insert tab characters
;; tab-width 4 ; default tab width is four spaces
;; standard-indent 4 ; default margin-changing functions indent
;; tab-always-indent complete ; tab key will insert a tab
;; tab-stop-list (number-sequence 4 180 4)) ; tab stops set to every 4 spaces
;; disable tabs
;;(disable-tabs)
;; (defun asm-calculate-indentation ()
;; (or
;; ;; Flush labels to the left margin.
;; (and (looking-at "\\(\\sw\\|\\s_\\)+:") 0)
;; ;; Same thing for `;;;' comments.
;; (and (looking-at "\\s<\\s<\\s<") 0)
;; ;; Simple `;' comments go to the comment-column.
;; (and (looking-at "\\s<\\(\\S<\\|\\'\\)") comment-column)
;; ;; The rest goes at the first tab stop.
;; (indent-next-tab-stop 0)))
)
(add-hook 'asm-mode-hook #'local-asm-mode-hook))
;; ASM:1 ends here
;; [[file:init-emacs.org::*Brainfuck][Brainfuck:1]]
;;------------------------------------------------------------------------------
;;; Modes: Brainfuck
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Brainfuck")
(use-package brainfuck
;;:quelpa (brainfuck :fetcher file :path (expand-file-name "brainfuck.el" local-modules-dir))
:load-path (lambda () (expand-file-name "brainfuck.el" local-modules-dir))
:mode ("\\.bf\\'" . brainfuck-mode))
;; Brainfuck:1 ends here
;; [[file:init-emacs.org::*BASIC][BASIC:1]]
;;------------------------------------------------------------------------------
;;; Modes: BASIC
;;------------------------------------------------------------------------------
(init-message 2 "Modes: BASIC")
(use-package basic
;;:quelpa (basic :fetcher file :path (expand-file-name "basic.el" local-modules-dir))
:load-path (lambda () (expand-file-name "basic.el" local-modules-dir))
:mode ("\\.bas\\'" . basic-mode))
;; BASIC:1 ends here
;; [[file:init-emacs.org::*C Mode][C Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: C Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: C Mode")
(use-package cc-mode
:demand t
:mode (("\\.c\\'" . c-mode)
("\\.h\\'" . c-mode)
("\\.ice\\'" . c-mode)
("\\.cpp\\'" . c++-mode)
("\\.hpp\\'" . c++-mode)
("\\.c++\\'" . c++-mode)
("\\.h++\\'" . c++-mode))
:commands (c-skip-comments-and-strings)
:config
;; c style
(defvar local-c-style
'((c-tab-always-indent . 'complete)
(c-basic-offset . 4)
(c-comment-only-line-offset . 0)
(c-hanging-braces-alist . ((substatement-open after)
(brace-list-open)))
(c-hanging-colons-alist . ((member-init-intro before)
(inher-intro)
(case-label after)
(label after)
(access-label after)))
(c-cleanup-list . (scope-operator
empty-defun-braces
defun-close-semi))
(c-offsets-alist . ((arglist-close . c-lineup-arglist)
(substatement-open . 0)
(substatement-label . 0)
(label . 0)
(case-label . +)
(block-open . 0)
(defun-block-intro . +)
(statement-block-intro . +)
(substatement . +)
(knr-argdecl-intro . -)
(inline-open . 0)
(defun-block-intro . 4)))
(c-echo-syntactic-information-p . nil)))
(defun local-c-mode-common-hook ()
"Customizations for c-mode, c++-mode, objc-mode, java-mode, and idl-mode."
;; add my personal style and set it for the current buffer
(c-add-style "local" local-c-style t)
;;(c-set-style 'stroustrup)
;; electric indention turned off
(when (fboundp 'c-toggle-electric-state)
(c-toggle-electric-state -1))
;; auto-newline and hungry-delete turned off
(when (fboundp 'c-toggle-auto-hungry-state)
(c-toggle-auto-hungry-state -1))
;; disable tabs
(disable-tabs)
;; ;; key bindings for all supported languages
;; ;; can put these in c-mode-base-map because c-mode-map, c++-mode-map,
;; ;; objc-mode-map, java-mode-map, and idl-mode-map inherit from it
;; (define-key c-mode-base-map (kbd "C-<return>") 'newline-and-indent)
;; (define-key c-mode-base-map (kbd "C-c c") 'mode-compile)
;; (define-key c-mode-base-map (kbd "C-c k") 'mode-compile-kill)
;; (define-key c-mode-base-map (kbd "<f7>") 'mode-compile)
;; ;; hide/show mode and keys
;; (define-key c-mode-base-map (kbd "C-c <right>") 'hs-show-block)
;; (define-key c-mode-base-map (kbd "C-c <left>") 'hs-hide-block)
;; (define-key c-mode-base-map (kbd "C-c <up>") 'hs-hide-all)
;; (define-key c-mode-base-map (kbd "C-c <down>") 'hs-show-all)
;; (hs-minor-mode 1)
;; ;; toggle between header files and code files
;; (define-key c-mode-base-map (kbd "C-c o") 'ff-find-other-file)
;; set default fill column for auto-fill mode and fill-paragraph
(setq fill-column 78)
;; turn on auto-fill
;;(turn-on-auto-fill)
;; ;; turn off auto newlines
;; (setq c-auto-newline nil)
;; turn on flyspell
(when (boundp 'flyspell-prog-mode)
(flyspell-prog-mode))
;; initialize eldoc
(when (boundp 'eldoc-mode)
(eldoc-mode 1))
;; compilation settings
(setq compile-command "make -k"
compilation-window-height 10
compilation-ask-about-save nil
;;compilation-scroll-output t
)
;; (defun compile-internal--scroll ()
;; "Forces compile buffer to scroll."
;; (let* ((ob (current-buffer))
;; (obw (get-buffer-window ob t))
;; win)
;; (save-mark-and-excursion
;; (unless (and (setq win (get-buffer-window ad-return-value t))
;; obw)
;; (select-window win)
;; (goto-char (point-max))
;; (select-window obw)))))
;; ;; advise `compile-internal'
;; (advice-add 'compile-internal :after #'compile-internal--scroll)
;; turn on else minor mode
;;(else-mode)
)
(add-hook 'c-mode-common-hook #'local-c-mode-common-hook)
;; remove trailing blanks
;;(add-hook 'c-mode-hook #'install-remove-trailing-blanks)
;;(add-hook 'c++-mode-hook #'install-remove-trailing-blanks)
;;(add-hook 'c-mode-common-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'c-mode-hook #'install-remove-tabs)
;;(add-hook 'c++-mode-hook #'install-remove-tabs)
;;(add-hook 'c-mode-common-hook #'install-remove-tabs)
)
;; C Mode:1 ends here
;; [[file:init-emacs.org::*Calendar][Calendar:1]]
;;------------------------------------------------------------------------------
;;; Modes: Calendar
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Calendar")
(use-package calendar
:bind* ("C-x c" . calendar)
:bind (:map calendar-mode-map
;; scrolling keys
(">" . calendar-scroll-left)
("<" . calendar-scroll-right)
("C-x >" . calendar-scroll-left)
("C-x <" . calendar-scroll-right))
:config
;; turn off diary entries view when calendar is run
(setq calendar-view-diary-initially-flag nil)
;; set number of diary days to show
(setq diary-number-of-entries 10)
;; turn on calendar marks for diary entries
(setq mark-diary-entries-in-calendar t)
;; turn on diary appointments
;;(add-hook 'diary-hook #'appt-make-list)
;; star current date
(setq calendar-today-visible-hook 'calendar-star-date)
;; star today's date
(setq calendar-today-visible-hook 'calendar-mark-today)
;; mark holidays
(setq calendar-mark-holidays-flag t))
;;------------------------------------------------------------------------------
;;;; calendar-remind
;;------------------------------------------------------------------------------
(init-message 3 "calendar-remind")
(use-package calendar-remind
;;:quelpa (calendar-remind :fetcher file :path (expand-file-name "calendar-remind.el" local-modules-dir))
:load-path (lambda () (expand-file-name "calendar-remind.el" local-modules-dir))
:after (calendar)
:commands (calendar-remind-lookup
calendar-remind-visit
calendar-remind-visit-insert)
:bind (:map calendar-mode-map
;; remind lookup
("<return>" . calendar-remind-lookup)
("r" . calendar-remind-lookup)
;;("SPC" . calendar-remind-lookup)
;; remind visit
("v" . calendar-remind-visit)
("V" . calendar-remind-visit-insert)))
;; Calendar:1 ends here
;; [[file:init-emacs.org::*CSS Mode][CSS Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: CSS Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: CSS Mode")
(use-package css-mode
:mode (("\\.css\\'" . css-mode)
("\\.scss\\'" . css-mode))
:custom (cssm-indent-function #'cssm-c-style-indenter))
;; CSS Mode:1 ends here
;; [[file:init-emacs.org::*Dired][Dired:1]]
;;------------------------------------------------------------------------------
;;; Modes: Dired
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Dired")
(defun local-dired-mode-hook ())
(use-package dired
;;:after (dired-single)
:commands (dired dired-jump)
;;:hook (dired-mode . local-dired-mode-hook)
:bind* ("C-x j" . dired-jump)
:bind (:map dired-mode-map
("e" . wdired-change-to-wdired-mode)
("C-c C-z f" . browse-url-of-dired-file))
:custom
;; only prompt once for recursive deletes
(dired-recursive-deletes 'top)
;; auto-revert buffer upon revisiting
(dired-auto-revert-buffer t)
;; list directories first and remove unwanted fields
(dired-listing-switches "-alh --group-directories-first")
:config
;; add extra file compression support
(setq dired-compress-files-alist
'(("\\.tar\\.bz2\\'" . "tar -cf - %i | bzip2 -c9 > %o")
("\\.bz2\\'" . "bzip2 -c9 %i > %o")
("\\.tar\\.xz\\'" . "tar -cf - %i | xz -c9 > %o")
("\\.xz\\'" . "xz -c9 %i > %o")
("\\.tar\\.zst\\'" . "tar -cf - %i | zstd -19 -o %o")
("\\.zst\\'" . "zstd -19 %i -o %o")
("\\.zip\\'" . "zip %o -r --filesync %i")))
(defun dired-move-to-top ()
(interactive)
(goto-char (point-min))
(dired-next-line 4))
(define-key dired-mode-map [remap beginning-of-buffer] 'dired-move-to-top)
(defun dired-move-to-bottom ()
(interactive)
(goto-char (point-max))
(dired-next-line -1))
(define-key dired-mode-map [remap end-of-buffer] 'dired-move-to-bottom))
;;------------------------------------------------------------------------------
;;;; dired-single
;;------------------------------------------------------------------------------
(init-message 3 "dired-single")
;; make dired use a single buffer
(use-package dired-single
;;:quelpa (dired-single)
:straight t
:commands (dired dired-jump)
:bind (:map dired-mode-map
("<return>" . dired-single-buffer)
("f" . dired-single-buffer)
("^" . dired-single-buffer-up)
("b" . dired-single-buffer-up)
("<mouse-1>" . dired-single-buffer-mouse))
:init
(defun dired-single-buffer-up ()
(interactive)
(dired-single-buffer ".."))
:config
;; advise `dired-single-buffer-mouse' to suppress errors
(advice-add 'dired-single-buffer-mouse :around #'advice--ignore-errors))
;;------------------------------------------------------------------------------
;;;; dired-open
;;------------------------------------------------------------------------------
(init-message 3 "dired-open")
;; open files with external programs
(use-package dired-open
;;:quelpa (dired-open)
:straight t
:custom
(dired-open-extensions
'(("png" . "display")
("gif" . "display")
("jpg" . "display")
("jepg" . "display")
("mpg" . "vlc")
("mpeg" . "vlc")
("avi" . "vlc")
("mov" . "vlc"))))
;;------------------------------------------------------------------------------
;;;; dired-hide-dotfiles
;;------------------------------------------------------------------------------
(init-message 3 "dired-hide-dotfiles")
(use-package dired-hide-dotfiles
;;:quelpa (dired-hide-dotfiles)
:straight t
;;:hook (dired-mode . dired-hide-dotfiles-mode)
:bind (:map dired-mode-map
("H" . dired-hide-dotfiles-mode)))
;; ;;------------------------------------------------------------------------------
;; ;;;; all-the-icons-dired
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "all-the-icons-dired")
;; ;; add icons to file listings
;; (use-package all-the-icons-dired
;; ;;:quelpa (all-the-icons-dired)
;; :straight t
;; :commands (dired dired-jump)
;; :hook (dired-mode . all-the-icons-dired-mode))
;; Dired:1 ends here
;; [[file:init-emacs.org::*Ediff][Ediff:1]]
;;------------------------------------------------------------------------------
;;; Modes: Ediff
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Ediff")
(use-package ediff
:config
;; split windows horizontally
(setq ediff-split-window-function 'split-window-horizontally)
;; only highlight current diff
(setq-default ediff-highlight-all-diffs nil)
;; turn off whitespace checking
(setq ediff-diff-options "-w")
;; place control window in same frame
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
;; place control window in separate frame
;;(setq ediff-window-setup-function 'ediff-setup-windows-multiframe)
;; highlight changes to characters rather than words
;;(setq ediff-forward-word-function 'forward-char)
)
;; Ediff:1 ends here
;; [[file:init-emacs.org::*Erlang Mode][Erlang Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Erlang Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Erlang Mode")
(use-package erlang
;;:quelpa (erlang)
:straight t
:after (flyspell)
:mode ("\\.erl\\'" . erlang-mode)
:interpreter ("erlang" . erlang-mode)
:commands (erlang-start)
:init
(add-to-list 'exec-path "/usr/lib/erlang/bin" t)
(setq erlang-root-dir "/usr/lib/erlang"
erlang-electric-commands nil)
:config
(defun local-erlang-hook ()
;; turn on flyspell
(flyspell-prog-mode))
(add-hook 'erlang-hook #'local-erlang-hook)
;; remove trailing blanks
;;(add-hook 'erlang-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'erlang-mode-hook #'install-remove-tabs)
)
;; Erlang Mode:1 ends here
;; [[file:init-emacs.org::*Fundamental Mode][Fundamental Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Fundamental Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Fundamental Mode")
;; fundamental-mode
;; remove trailing blanks
;;(add-hook 'fundamental-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'fundamental-mode-hook #'install-remove-tabs)
;; Fundamental Mode:1 ends here
;; [[file:init-emacs.org::*Geiser (Racket Scheme REPL)][Geiser (Racket Scheme REPL):1]]
;;------------------------------------------------------------------------------
;;; Modes: Geiser (Racket Scheme REPL)
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Geiser (Racket Scheme REPL)")
(use-package geiser
;;:quelpa (geiser)
:straight t
;;:quelpa (geiser :fetcher gitlab :repo "emacs-geiser/geiser")
:commands (geiser-mode
run-geiser)
:init
;; set default scheme program to racket
;;(setq scheme-program-name "racket")
;; set default scheme mode to geiser-mode
;;(add-hook 'scheme-mode-hook #'geiser-mode)
:config
;; ;; set default geiser implementation to racket
;; (setq geiser-default-implementation 'racket)
;; ;; set active implementations list to just racket
;; (setq geiser-active-implementations '(racket))
;; define `insert-char' functions to insert unicode chars
(defun geiser-insert-sigma ()
"Insert ∑ character."
(interactive "*")
;;(insert-char ?Σ))
(insert-char ?∑))
(defun local-geiser-mode-hook ()
;; key bindings
(local-set-key (kbd "C-c \\") 'geiser-insert-lambda)
(local-set-key (kbd "C-c C-\\") 'geiser-insert-lambda)
(local-set-key (kbd "C-c s") 'geiser-insert-sigma)
(local-set-key (kbd "C-c C-s") 'geiser-insert-sigma))
(add-hook 'geiser-mode-hook #'local-geiser-mode-hook)
(add-hook 'geiser-repl-mode-hook #'local-geiser-mode-hook))
(use-package geiser-racket
:after (geiser)
;;:quelpa (geiser-racket)
:straight t
;;:quelpa (geiser-racket :fetcher gitlab :repo "emacs-geiser/geiser-racket")
:commands (run-racket)
:init
;; set default scheme program to racket
;;(setq scheme-program-name "racket")
;; set default scheme mode to geiser-mode
;;(add-hook 'scheme-mode-hook #'geiser-mode)
:config
;; set default geiser implementation to racket
(setq geiser-default-implementation 'racket)
;; set active implementations list to just racket
(setq geiser-active-implementations '(racket)))
;; Geiser (Racket Scheme REPL):1 ends here
;; [[file:init-emacs.org::*GNU Plot][GNU Plot:1]]
;;------------------------------------------------------------------------------
;;; Modes: GNU Plot
;;------------------------------------------------------------------------------
(init-message 2 "Modes: GNU Plot")
(use-package gnuplot
;;:quelpa (gnuplot)
:straight t
:mode ("\\.gp\\'" . gnuplot-mode)
:commands (gnuplot-mode gnuplot-make-buffer gnuplot-send-string-to-gnuplot))
;; GNU Plot:1 ends here
;; [[file:init-emacs.org::*+Go Mode+][+Go Mode+:1]]
;; ;;------------------------------------------------------------------------------
;; ;;; Modes: Go Mode
;; ;;------------------------------------------------------------------------------
;; (init-message 2 "Modes: Go Mode")
;; (use-package go-mode
;; :mode (("\\.go\\'" . go-mode))
;; :config (progn
;; (defun local-go-mode-hook ()
;; ;; use goimports instead of gofmt
;; (setq gofmt-command "goimports")
;; ;; call gofmt before saving
;; (add-hook 'before-save-hook #'gofmt-before-save)
;; ;; customize compile command to run go build
;; (when (not (string-match "go" compile-command))
;; (setq-local compile-command "go build -v && go test -v && go vet"))
;; ;; oracle
;; (load-file "${GOPATH}/src/golang.org/x/tools/cmd/oracle/oracle.el")
;; ;; key bindings
;; (local-set-key (kbd "M-.") 'godef-jump))
;; (add-hook 'go-mode-hook #'local-go-mode-hook)))
;; +Go Mode+:1 ends here
;; [[file:init-emacs.org::*Graphviz Dot Mode][Graphviz Dot Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Graphviz Dot Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Graphviz Dot Mode")
(use-package graphviz-dot-mode
;;:quelpa (graphviz-dot-mode)
:straight t
:mode (("\\.dot\\'" . graphviz-dot-mode)
("\\.gv\\'" . graphviz-dot-mode))
:commands (graphviz-dot-mode))
;; Graphviz Dot Mode:1 ends here
;; [[file:init-emacs.org::*INI Mode][INI Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: INI Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: INI Mode")
(use-package ini-mode
;;:quelpa (ini-mode)
:straight t
:mode ("\\.ini\\'" . ini-mode))
;; INI Mode:1 ends here
;; [[file:init-emacs.org::*Javascript: js2 Mode][Javascript: js2 Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Javascript: js2 Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Javascript: js2 Mode")
(use-package js2-mode
;;:quelpa (js2-mode)
:straight t
:mode (("\\.js\\'" . js2-mode)
("\\.gradle\\'" . js-mode)) ; use js-mode for gradle files
:interpreter ("node" . js2-mode)
:config
;; set indent offset
(setq-local py-indent-offset local-short-tab-width)
;; turn on auto indent
(setq js2-auto-indent-p t
js2-cleanup-whitespace t
js2-enter-indents-newline t
js2-indent-on-enter-key t
js2-bounce-indent-p nil
js2-mirror-mode nil
js2-mode-escape-quotes nil)
;;js2-electric-keys (quote nil))
;; better imenu
(add-hook 'js2-mode-hook #'js2-imenu-extras-mode)
)
;;------------------------------------------------------------------------------
;;;; js2-refactor
;;------------------------------------------------------------------------------
(init-message 3 "js2-refactor")
;; javascript refactoring library
(use-package js2-refactor
;;:quelpa (js2-refactor)
:straight t
:after (js2-mode)
:bind (:map js2-mode-map
("C-k" . js2r-kill)
("M-." . nil)) ; unbind conflicting key
:config
;; set prefix key
(js2r-add-keybindings-with-prefix "C-c C-r")
;; load when `js2-mode' is active
(add-hook 'js2-mode-hook #'js2-refactor-mode))
;;------------------------------------------------------------------------------
;;;; xref-js2
;;------------------------------------------------------------------------------
(init-message 3 "xref-js2")
;; jump to references and definitions
(use-package xref-js2
;;:quelpa (xref-js2)
:straight t
:after (js2-mode)
:config
;; load when `js2-mode' is active
(defun js2-mode-hook--js2-refactor ()
(add-hook 'xref-backend-functions #'xref-js2-xref-backend nil t)
(add-hook 'js2-mode-hook #'js2-mode-hook--js2-refactor)))
;;------------------------------------------------------------------------------
;;;; js-comint
;;------------------------------------------------------------------------------
(init-message 3 "js-comint")
;; javascript interpreter repl
(use-package js-comint
;;:quelpa (js-comint)
:straight t
:after (js2-mode)
:commands (js-send-buffer
js-send-buffer-and-go
js-send-last-sexp
js-send-last-sexp-and-go
js-load-file-and-go)
:bind (:map js2-mode-map
("C-c C-c" . js-eval-sexp-and-go)
("C-x C-e" . js-send-last-sexp)
("C-M-x" . js-eval-sexp-and-go)
("C-c b" . js-send-buffer)
("C-c C-b" . js-send-buffer-and-go)
("C-c C-k" . js-send-buffer-and-go)
("C-c l" . js-load-file-and-go))
:config
;;(setq inferior-js-program-command "/usr/bin/java org.mozilla.javascript.tools.shell.Main")
;;(setq inferior-js-program-command "/usr/bin/rhino")
;; ;; key bindings
;; (bind-keys :map js2-mode-map
;; ("C-c C-c" . js-eval-sexp-and-go)
;; ("C-x C-e" . js-send-last-sexp)
;; ("C-M-x" . js-eval-sexp-and-go)
;; ("C-c b" . js-send-buffer)
;; ("C-c C-b" . js-send-buffer-and-go)
;; ("C-c C-k" . js-send-buffer-and-go)
;; ("C-c l" . js-load-file-and-go))
(defun js-eval-sexp ()
"js-comint evaluate current sexp."
(interactive)
(save-mark-and-excursion
(end-of-defun)
(js-send-last-sexp)))
(defun js-eval-sexp-and-go ()
"js-comint evaluate current sexp and switch to js buffer."
(interactive)
(save-mark-and-excursion
(end-of-defun)
(js-send-last-sexp-and-go)))
(defun js2-mode-hook--js-comint ()
;; (local-set-key (kbd "C-c C-c") 'js-eval-sexp-and-go)
;; (local-set-key (kbd "C-x C-e") 'js-send-last-sexp)
;; (local-set-key (kbd "C-M-x") 'js-eval-sexp-and-go)
;; (local-set-key (kbd "C-c b") 'js-send-buffer)
;; (local-set-key (kbd "C-c C-b") 'js-send-buffer-and-go)
;; (local-set-key (kbd "C-c C-k") 'js-send-buffer-and-go)
;; (local-set-key (kbd "C-c l") 'js-load-file-and-go)
;; disable skewer-mode as it uses similar key bindings
(when (fboundp 'skewer-mode)
(skewer-mode -1)))
(add-hook 'js2-mode-hook #'js-mode-hook--js-comint))
;; Javascript: js2 Mode:1 ends here
;; [[file:init-emacs.org::*JSON Mode][JSON Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: JSON Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: JSON Mode")
(use-package json-mode
;;:quelpa (json-mode)
:straight t
:mode (("\\.json\\'" . js2-mode))
:config
;; set indentation to four spaces
(setq json-encoding-default-indentation " "
json-encoding-pretty-print t))
;; JSON Mode:1 ends here
;; [[file:init-emacs.org::*Ledger Mode][Ledger Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Ledger Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Ledger Mode")
(use-package ledger-mode
;;:quelpa (ledger-mode)
:straight t
:functions (ledger-align-amounts)
:config
(defun local-ledger-align-amounts ()
"Return `ledger-align-amounts' for entire buffer."
(save-mark-and-excursion
(goto-char (point-min))
(ledger-align-amounts 52)))
(defun local-ledger-mode-hook ()
;; align amounts on save
(make-local-variable 'before-save-hook)
(add-hook 'before-save-hook #'local-ledger-align-amounts))
(add-hook 'ledger-mode-hook #'local-ledger-mode-hook))
;; Ledger Mode:1 ends here
;; [[file:init-emacs.org::*Lisp Mode][Lisp Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Lisp Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Lisp Mode")
(defun local-lisp-mode-hook ()
;; disable tabs
(disable-tabs)
;; clear input method
;;(set-input-method nil)
;; set indent function for lisp-mode to `lisp-indent-function'
;; (it defaults to `clisp-indent-function')
(when (equal major-mode 'lisp-mode)
(setq-local lisp-indent-function 'lisp-indent-function))
;; add underscore and dash to word boundaries
(modify-syntax-entry ?_ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?- "w" lisp-mode-syntax-table)
;; define keys
(local-set-key (kbd "<return>") 'newline-and-indent)
(local-set-key (kbd "S-<tab>") 'lisp-complete-symbol)
;; turn on flyspell
(flyspell-prog-mode)
;; initialize eldoc
(eldoc-mode 1)
;; ;; turn on abbreviation mode
;; (abbrev-mode 1)
;; turn on else minor mode
;;(else-mode)
;; ;; initialize elisp slime nav mode
;; (when (fboundp 'elisp-slime-nav-mode)
;; (elisp-slime-nav-mode)
;; (when (fboundp 'diminish)
;; (with-eval-after-load "elisp-slime-nav"
;; (diminish 'elisp-slime-nav-mode))))
;; ;; check parenthesis after file save
;; (add-hook 'after-save-hook #'check-parens nil t)
;; (use-package aggressive-indent
;; :config (aggressive-indent-mode 1))
;; set outline header regexp
(setq-local outline-regexp "\\(;; [*]\\{1,8\\} \\|;;[;]\\{1,8\\} \\)")
(setq-local outline-level 'lisp-outline-level))
(use-package lisp-mode
:after (flyspell eldoc info-look)
:commands (emacs-lisp-mode)
:functions (local-lisp-mode-hook)
:mode (("\\.el\\'" . emacs-lisp-mode)
("\\.lisp\\'" . lisp-mode)
("\\.clisp\\'" . lisp-mode))
:hook ((emacs-lisp-mode . local-lisp-mode-hook)
(lisp-mode . local-lisp-mode-hook)
(common-lisp-mode . local-lisp-mode-hook))
:config
;; remove trailing blanks
;;(add-hook 'emacs-lisp-mode-hook #'install-remove-trailing-blanks)
;;(add-hook 'lisp-mode-hook #'install-remove-trailing-blanks)
;;(add-hook 'common-lisp-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'emacs-lisp-mode-hook #'install-remove-tabs)
;;(add-hook 'lisp-mode-hook #'install-remove-tabs)
;;(add-hook 'common-lisp-mode-hook #'install-remove-tabs)
)
;; Lisp Mode:1 ends here
;; [[file:init-emacs.org::*LUA Mode][LUA Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: LUA Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: LUA Mode")
(use-package lua-mode
;;:quelpa (lua-mode)
:straight t
:mode (("\\.lua\\'" . lua-mode)))
;; LUA Mode:1 ends here
;; [[file:init-emacs.org::*Makefile Mode][Makefile Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Makefile Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Makefile Mode")
(use-package make-mode
:mode ("Makefile" . makefile-mode)
:config
(defun local-makefile-mode-hook ()
;; enable tabs
(enable-tabs))
(add-hook 'makefile-mode-hook #'local-makefile-mode-hook))
;; Makefile Mode:1 ends here
;; [[file:init-emacs.org::*Markdown Mode][Markdown Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Markdown Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Markdown Mode")
(use-package markdown-mode
;;:quelpa (markdown-mode)
:straight t
:after (org-table)
:mode (("\\.md\\'" . markdown-mode)
("\\.markdown\\'" . markdown-mode))
:functions (markdown-mode-fix-org-tables)
:config
;; use org table mode for markdown tables
(add-hook 'markdown-mode-hook #'orgtbl-mode)
(defun markdown-mode-fix-org-tables ()
"Hook to fix org table format on save."
(save-mark-and-excursion
(save-match-data
(goto-char (point-min))
(while (search-forward "-+-" nil :noerror)
(replace-match "-|-")))))
(add-hook 'markdown-mode-hook
(lambda()
(add-hook 'before-save-hook #'markdown-mode-fix-org-tables nil 'make-it-local))))
;; Markdown Mode:1 ends here
;; [[file:init-emacs.org::*Perl Mode][Perl Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Perl Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Perl Mode")
(use-package perl-mode
:after (flyspell)
:mode (("\\.\\([pP][Llm]\\|al\\|t\\)\\'" . perl-mode)
("perl" . perl-mode)
("perl5" . perl-mode))
:interpreter ("miniperl" . perl-mode)
:config
(defun local-perl-mode-hook ()
;; configure some options
(setq perl-indent-level 4)
(setq perl-continued-statement-offset 0)
;; turn on flyspell
(flyspell-prog-mode))
(add-hook 'perl-mode-hook #'local-perl-mode-hook)
(defun perl-mode-maybe ()
"Determine if file is a perl script and switch to perl-mode if it is."
(interactive)
(save-mark-and-excursion
(save-match-data
(goto-char (point-min))
(when (or
(search-forward "#!/usr/bin/perl" (line-end-position) :noerror)
(search-forward "#!/usr/bin/env perl" (line-end-position) :noerror))
(perl-mode)))))
;; run when a file is loaded
(add-hook 'find-file-hooks #'perl-mode-maybe)
;; remove trailing blanks
;;(add-hook 'perl-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'perl-mode-hook #'install-remove-tabs)
)
;; Perl Mode:1 ends here
;; [[file:init-emacs.org::*PlantUML Mode][PlantUML Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: PlantUML Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: PlantUML Mode")
(use-package plantuml-mode
;;:quelpa (plantuml-mode))
:straight t)
;; PlantUML Mode:1 ends here
;; [[file:init-emacs.org::*Python Mode][Python Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Python Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Python Mode")
(use-package python-mode
;;:quelpa (python-mode)
:straight t
:after (company elpy)
:mode (("\\.py\\'" . python-mode)
("\\.python\\'" . python-mode))
:commands (py--buffer-filename-remote-maybe)
:functions (local-python-mode-hook)
:config
;; turn off auto-indent so code pasting works
(setq py-python-command-args '("--no-autoindent" "--colors=Linux"))
;; switch to interpreter after executing code
;;(setq py-switch-buffers-on-execute-p t)
;; split windows
;;(setq py-split-windows-on-execute t)
(setq py-keep-windows-configuration 'force)
;; try to automatically figure out indentation
(setq py-smart-indentation t)
;; execute python in source code blocks on 'C-c C-c'
;;(add-to-list 'org-ctrl-c-ctrl-c-hook #'org-babel-async-execute:python)
;; increase recursion depth of auto-complete to prevent errors
(setq py-max-specpdl-size 999)
(defun local-python-mode-hook ()
;; override some default keybindings
(when (fboundp 'backward-delete-word)
(bind-keys* ("C-<backspace>" . backward-delete-word))) ; defaults to `py-hungry-delete-backwards'
;; set indent offset
(setq-local py-indent-offset local-short-tab-width)
;; set outline header regexp
(setq-local outline-regexp " *\\(def \\|clas\\|#hea\\)")
;;(hide-sublevels 1)
;; remove python-shell-completion-at-point from completion-at-point-functions,
;; if it is not defined
(when (and (not (fboundp 'python-shell-completion-at-point))
(memq 'python-shell-completion-at-point completion-at-point-functions))
(setq completion-at-point-functions
(remove 'python-shell-completion-at-point completion-at-point-functions)))
)
(add-hook 'python-mode-hook #'local-python-mode-hook))
;;------------------------------------------------------------------------------
;;;; elpy
;;------------------------------------------------------------------------------
(use-package elpy
;;:quelpa (elpy)
:straight t
:commands (elpy-enable
elpy-shell-switch-to-shell)
:config
;; turn on elpy mode
(elpy-enable)
;; hack to fix quote error issue
(setq elpy-eldoc-show-current-function nil)
;; custom version of `elpy-shell-switch-to-shell' that opens shell in a split window
(defun elpy-shell-switch-to-shell ()
"Switch to inferior Python process buffer."
(interactive)
(setq elpy--shell-last-py-buffer (buffer-name))
(pop-to-buffer (process-buffer (elpy-shell-get-or-create-process)) t))
;; enable flycheck
(when (fboundp 'flycheck-mode)
(setq elpy-modules (delq 'elpy-module-flymake elpy-modules))
(add-hook 'elpy-mode-hook #'flycheck-mode)))
;;------------------------------------------------------------------------------
;;;; jedi
;;------------------------------------------------------------------------------
;; (init-message 3 "jedi")
;; ;; python auto-completion
;; (use-package jedi
;; ;;:quelpa (jedi)
;; :straight t
;; :after (python-mode)
;; :config
;; ;; ;; add jedi completions to auto-complete sources
;; ;; (add-to-list 'ac-sources 'ac-source-jedi-direct t)
;; ;; enable with python mode
;; (add-hook 'python-mode-hook #'jedi:setup))
;; Python Mode:1 ends here
;; [[file:init-emacs.org::*Racket Mode][Racket Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Racket Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Racket Mode")
;; (use-package racket-mode
;; ;;:quelpa (racket-mode)
;; :straight t
;; :mode ("\\.rkt\\'" . racket-mode)
;; :interpreter ("racket" . racket-mode)
;; :commands (racket-mode
;; racket-repl)
;; :config
;; (defun local-racket-mode-hook ()
;; ;; do not auto-complete on tab
;; (setq tab-always-indent t))
;; (add-hook 'racket-mode-hook #'local-racket-mode-hook)
;; ;; turn on support for unicode input
;; (add-hook 'racket-mode-hook #'racket-unicode-input-method-enable)
;; (add-hook 'racket-repl-mode-hook #'racket-unicode-input-method-enable))
(use-package scheme
:after (geiser)
:mode ("\\.rkt\\'" . racket-mode)
:interpreter ("racket" . racket-mode)
:commands (racket-mode
scheme-mode)
:config
;; create racket mode based on scheme mode
(define-derived-mode racket-mode scheme-mode "Scheme"
"Major mode for editing Racket Scheme code. Editing commands
are similar to those of `lisp-mode'.
In addition, if an inferior Racket Scheme process is running, some additional
commands will be defined, for evaluating expressions and controlling the
interpreter, and the state of the process will be displayed in the mode line
of all Scheme buffers. The names of commands that interact with the Scheme
process start with \"xscheme-\" if you use the MIT Scheme-specific `xscheme'
package; for more information see the documentation for
`xscheme-interaction-mode'. Use \\[run-scheme] to start an inferior Scheme
using the more general `cmuscheme' package.
Commands:
Delete converts tabs to spaces as it moves back.
Blank lines separate paragraphs. Semicolons start comments.
\\{scheme-mode-map}"
;; turn on geiser-mode
(when (fboundp 'geiser-mode)
(geiser-mode t)))
;; ;; racket files should use racket-mode
;; (add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode))
)
;; Racket Mode:1 ends here
;; [[file:init-emacs.org::*Ruby Mode][Ruby Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Ruby Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Ruby Mode")
(use-package ruby-mode
:after (flyspell)
:mode ("\\.rb\\'" . ruby-mode)
:config
(defun local-ruby-mode-hook ()
;; set indent level
;;(setq ruby-indent-level 4)
(setq ruby-indent-level 2)
;; define keys
(define-key ruby-mode-map (kbd "<return>") 'reindent-then-newline-and-indent)
;; undefine electric keys
(define-key ruby-mode-map (kbd "{") 'self-insert-command)
(define-key ruby-mode-map (kbd "}") 'self-insert-command)
;; turn on flyspell
(when (boundp 'flyspell-prog-mode)
(flyspell-prog-mode)))
(add-hook 'ruby-mode-hook #'local-ruby-mode-hook :append)
;; turn on flyspell
(flyspell-prog-mode)
;; FIXME: No longer works
;; (use-package flymake
;; :config (progn
;; (defun flymake-ruby-init ()
;; (let* ((temp-file (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace))
;; (local-file (file-relative-name temp-file (file-name-directory buffer-file-name))))
;; (list "ruby" (list "-c" local-file))))
;; (defun flymake-ruby-enable ()
;; (when (and buffer-file-name
;; (file-writable-p (file-name-directory buffer-file-name))
;; (file-writable-p buffer-file-name)
;; (if (fboundp 'tramp-list-remote-buffers)
;; (not (cl-subsetp (list (current-buffer)) (tramp-list-remote-buffers)))
;; t))
;; (local-set-key (kbd "C-c d") 'flymake-display-err-menu-for-current-line)
;; (flymake-mode t)))
;; (add-to-list 'flymake-allowed-file-name-masks '(".+\\.rb\\'" flymake-ruby-init) t)
;; (add-to-list 'flymake-allowed-file-name-masks '("Rakefile\\'" flymake-ruby-init) t)
;; (add-to-list 'flymake-err-line-patterns '("^\\(.*\\):\\([0-9]+\\): \\(.*\\)$" 1 2 nil 3) t)
;; (add-hook 'ruby-mode-hook #'flymake-ruby-enable)))
;; ;; turn on syntax highlighting (actually turns off syntax highlighting)
;; (add-hook 'ruby-mode-hook #'turn-on-font-lock)
;; ;; turn on abbreviation mode
;; (abbrev-mode 1)
(defun ruby-mode-maybe ()
"Determine if file is a ruby script and switch to `ruby-mode' if it is."
(interactive)
(save-mark-and-excursion
(save-match-data
(goto-char (point-min))
(when (or
(search-forward "#!/usr/bin/ruby" (line-end-position) :noerror)
(search-forward "#!/usr/bin/env ruby" (line-end-position) :noerror))
(ruby-mode)))))
;; run when a file is loaded
(add-hook 'find-file-hooks #'ruby-mode-maybe)
;; remove trailing blanks
;;(add-hook 'ruby-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'ruby-mode-hook #'install-remove-tabs)
)
;;------------------------------------------------------------------------------
;;;; robe
;;------------------------------------------------------------------------------
(init-message 3 "robe")
;; code navigation, documentation lookup, and completion for ruby
(use-package robe
;;:quelpa (robe)
:straight t
:after (ruby-mode)
:commands (robe-mode)
:config
(add-hook 'ruby-mode-hook #'robe-mode))
;; ;;------------------------------------------------------------------------------
;; ;;;; inf-ruby
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "inf-ruby")
;; (use-package inf-ruby
;; ;;:quelpa (inf-ruby)
;; :straight t
;; :after (ruby-mode)
;; :interpreter ("ruby" . ruby-mode)
;; :commands (run-ruby inf-ruby-keys)
;; :config
;; (defun local-ruby-mode-hook-inf-ruby-keys ()
;; (inf-ruby-keys))
;; (add-hook 'ruby-mode-hook #'local-ruby-mode-hook-inf-ruby-keys)
;; ;; use ruby-robe with inf-ruby
;; (defadvice inf-ruby-console-auto (before activate-rvm-for-robe activate)
;; (rvm-activate-corresponding-ruby)))
;; ;;------------------------------------------------------------------------------
;; ;;;; ac-inf-ruby
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "ac-inf-ruby")
;; ;; auto-complete source for interactive ruby
;; (use-package ac-inf-ruby
;; ;;:quelpa (ac-inf-ruby)
;; :straight t
;; :config
;; (add-to-list 'ac-modes 'inf-ruby-mode t)
;; (add-hook 'inf-ruby-mode-hook #'ac-inf-ruby-enable)
;; ;; ;; make TAB auto-complete
;; ;; (define-key inf-ruby-mode-map (kbd "TAB") 'auto-complete)
;; )
;; Ruby Mode:1 ends here
;; [[file:init-emacs.org::*SH Script][SH Script:1]]
;;------------------------------------------------------------------------------
;;; Modes: SH Script
;;------------------------------------------------------------------------------
(init-message 2 "Modes: SH Script")
(use-package sh-script
:mode (("\\.sh\\'" . sh-mode)
("\\.shell\\'" . sh-mode)
("\\.bash\\'" . sh-mode)
;; use sh-mode for ldif and schema files
("\\.ldif\\'" . sh-mode)
("\\.schema\\'" . sh-mode)
;; use sh-mode for remind files
("\\.reminders\\'" . sh-mode)
("^reminders_" . sh-mode))
:config
;; disable tabs
(add-hook 'sh-mode-hook #'disable-tabs)
;; make comment lines indent
(setq sh-indent-comment t)
(defun sh-mode-maybe ()
"Determine if file is a shell script and switch to sh-mode if it is."
(interactive)
(save-mark-and-excursion
(save-match-data
(goto-char (point-min))
(when (or
(search-forward "#!/bin/sh" (line-end-position) :noerror)
(search-forward "#!/bin/bash" (line-end-position) :noerror)
(search-forward "#!/bin/csh" (line-end-position) :noerror)
(search-forward "#!/bin/tsh" (line-end-position) :noerror)
(search-forward "#!/bin/zsh" (line-end-position) :noerror)
(search-forward "#!/usr/bin/env sh" (line-end-position) :noerror)
(search-forward "#!/usr/bin/env bash" (line-end-position) :noerror)
(search-forward "#!/usr/bin/env csh" (line-end-position) :noerror)
(search-forward "#!/usr/bin/env tsh" (line-end-position) :noerror)
(search-forward "#!/usr/bin/env zsh" (line-end-position) :noerror)
(search-forward "#=========" (line-end-position) :noerror)
(search-forward "#---------" (line-end-position) :noerror))
(sh-mode)))))
;; run when a file is loaded
(add-hook 'find-file-hooks #'sh-mode-maybe)
;; remove trailing blanks
;;(add-hook 'sh-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'sh-mode-hook #'install-remove-tabs)
)
;; SH Script:1 ends here
;; [[file:init-emacs.org::*Shell Mode][Shell Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Shell Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Shell Mode")
(use-package shell
:commands (shell-mode)
:config
;; disable tabs
(add-hook 'shell-mode-hook #'disable-tabs)
;; set prompt to read only
(setq comint-prompt-read-only t)
;; start a shell
;;(shell)
)
;;------------------------------------------------------------------------------
;;;; ansi-color
;;------------------------------------------------------------------------------
(init-message 3 "ansi-color")
(use-package ansi-color
:after (shell)
:commands (ansi-color-for-comint-mode-on)
:config
(add-hook 'shell-mode-hook #'ansi-color-for-comint-mode-on))
;; Shell Mode:1 ends here
;; [[file:init-emacs.org::*Slime Mode (Common Lisp)][Slime Mode (Common Lisp):1]]
;;------------------------------------------------------------------------------
;;; Modes: Slime Mode (Common Lisp)
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Slime Mode (Common Lisp)")
;; superior lisp interaction mode for emacs
;; if loading slime errors out because swank-loader.lisp is not found, do:
;; # cd /usr/share/emacs22/site-lisp/slime
;; # for i in $(ls -1 /usr/share/common-lisp/source/slime/) ; do ln -s /usr/share/common-lisp/source/slime/$i ; done
(use-package slime
;;:quelpa (slime)
:straight t
;; :load-path (;;(lambda () (expand-file-name "slime" emacs-modules-dir))
;; ;;(lambda () (expand-file-name "slime/contrib" emacs-modules-dir))
;; (lambda () (expand-file-name "swank-clojure" emacs-modules-dir)))
:commands (slime-autoloads
slime
slime-eval-buffer
slime-eval-last-expression
slime-interactive-eval
slime-last-expression
slime-mode
slime-setup
clisp
clojure
swank-clojure-init
swank-clojure-slime-mode-hook
swank-clojure-cmd
swank-clojure-project)
:config
;; clojure swank paths
(setq swank-clojure-jar-path (expand-file-name "~/.clojure/clojure.jar")
swank-clojure-binary (expand-file-name "~/bin/clojure")
swank-clojure-extra-classpaths (list (expand-file-name "~/.clojure/clojure.jar")
(expand-file-name "~/.clojure/jline.jar")
(expand-file-name "~/.clojure/clojure-contrib.jar")))
;; slime setup
(slime-setup)
;; set lisp program to clisp
;;(setq inferior-lisp-program "clisp -K full")
(defun slime-eval-sexp ()
"Slime evaluate current sexp."
(interactive)
(save-mark-and-excursion
(end-of-defun)
(slime-interactive-eval (slime-last-expression))))
;; run slime setup (this does too much)
;;(slime-setup)
;; redefine `slime-lisp-mode-hook'
;; set indent function for lisp-mode to `lisp-indent-function'
;; (it defaults to `common-lisp-indent-function')
(defun slime-lisp-mode-hook ()
(slime-mode 1)
(setq-local lisp-indent-function 'lisp-indent-function))
;; run custom version of slime setup to preserve lisp-indent-function
(defun local-slime-lisp-mode-hook ()
;; ;; set lisp program
;; (setq inferior-lisp-program "clisp -K full")
;; (setq inferior-lisp-program "clisp -K base")
;; turn on slime mode
(slime-mode 1)
;; typeout frame
;;(add-hook 'slime-connected-hook #'slime-ensure-typeout-frame)
;; highlight edits
;;(add-hook 'slime-mode-hook #'slime-highlight-edits-mode)
;; key bindings
(bind-keys :map slime-mode-map
("C-c C-c" . slime-eval-sexp)
("C-x C-e" . slime-eval-last-expression)
("M-C-x" . slime-eval-sexp)
("C-c C-k" . slime-eval-buffer))
;; start inferior lisp job
;;(unless (comint-check-proc "*inferior-lisp*")
;; (let ((buffer (current-buffer)))
;; (slime)
;; (switch-to-buffer buffer)))
;; ;; auto connect to slime
;; (unless (slime-connected-p)
;; (save-mark-and-excursion (slime)))
)
(add-hook 'lisp-mode-hook #'local-slime-lisp-mode-hook)
(add-hook 'common-lisp-mode-hook #'local-slime-lisp-mode-hook)
(add-hook 'clojure-mode-hook #'local-slime-lisp-mode-hook)
;; cldoc (common lisp info in minibuffer)
(autoload 'turn-on-cldoc-mode "cldoc" nil t)
(add-hook 'common-lisp-mode-hook #'turn-on-cldoc-mode)
;; wait 3 seconds before showing minibuffer docs
(setq cldoc-idle-delay 3)
;; ;; slime motd warnings
;; (use-package slime-cl-pitfalls)
;; add clisp to slime implementations
(add-to-list 'slime-lisp-implementations '(clisp ("/usr/bin/clisp" "-K" "base")) t)
(defun clisp ()
"Start Common Lisp in Slime."
(interactive)
(slime 'clisp))
;; initialize clisp: quicklisp
;; $ clisp --load quicklisp.lisp
;; (quicklisp-quickstart:install)
;; (ql:add-to-init-file)
;; (ql:quickload 'restas)
;; add sbcl to slime implementations
(add-to-list 'slime-lisp-implementations '(sbcl ("/usr/bin/sbcl")) t)
(defun sbcl ()
"Start Steel Bank Common Lisp in Slime."
(interactive)
(slime 'sbcl))
;; initialize sbcl: quicklisp
;; $ sbcl --load quicklisp.lisp
;; (quicklisp-quickstart:install)
;; (ql:add-to-init-file)
;; (ql:quickload 'restas)
;; add clojure to slime implementation
;; (add-to-list 'slime-lisp-implementations
;; `(clojure (,(expand-file-name "~/bin/clojure"))
;; :init swank-clojure-init
;; :coding-system utf-8-unix) t)
(add-to-list 'slime-lisp-implementations `(clojure ("/usr/bin/clojure")) t)
(defun clojure ()
"Start Clojure in Slime."
(interactive)
(slime 'clojure))
(defun local-lisp-mode-hook-slime-mode ()
"Hook to load slime-mode when lisp-mode is loaded."
(slime-mode 1))
(add-hook 'lisp-mode-hook #'local-lisp-mode-hook-slime-mode)
;; (defun local-inferior-lisp-mode-hook-inferior-slime-mode ()
;; (inferior-slime-mode 1))
;; (add-hook 'inferior-lisp-mode-hook #'local-inferior-lisp-mode-hook-inferior-slime-mode)
)
;;------------------------------------------------------------------------------
;;;; ac-slime
;;------------------------------------------------------------------------------
;; (init-message 3 "ac-slime")
;; ;; auto-complete source for slime
;; (use-package ac-slime
;; ;;:quelpa (ac-slime)
;; :straight t
;; :after (slime)
;; :config
;; (add-hook 'slime-mode-hook #'set-up-slime-ac)
;; (add-hook 'slime-repl-mode-hook #'set-up-slime-ac)
;; (add-to-list 'ac-modes 'slime-repl-mode t))
;;------------------------------------------------------------------------------
;;;; elisp-slime-nav-mode
;;------------------------------------------------------------------------------
(init-message 3 "elisp-slime-nav-mode")
(use-package elisp-slime-nav
;;:quelpa (elisp-slime-nav)
:straight t
:after (slime)
:diminish elisp-slime-nav-mode
:commands (elisp-slime-nav-mode)
:config (elisp-slime-nav-mode))
;; Slime Mode (Common Lisp):1 ends here
;; [[file:init-emacs.org::*SQL Mode][SQL Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: SQL Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: SQL Mode")
(use-package sql
:mode (("\\.sql\\'" . sql-mode)
("\\.tbl\\'" . sql-mode)
("\\.sp\\'" . sql-mode))
:config
;; ;; turn on abbreviation mode
;; (abbrev-mode 1)
;; remove trailing blanks
;;(add-hook 'sql-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'sql-mode-hook #'install-remove-tabs)
)
;; (use-package sql-transform
;; ;;:quelpa (sql-transform)
;; :straight t
;; :config
;; (defun local-sql-mode-hook ()
;; ;; key bindings
;; (bind-keys :map sql-mode-map
;; ("C-c s" . sql-to-select)
;; ("C-c i" . sql-to-insert)
;; ("C-c u" . sql-to-update)
;; ("C-c d" . sql-to-delete)))
;; (add-hook 'sql-mode-hook #'local-sql-mode-hook))
;; ;;------------------------------------------------------------------------------
;; ;;;; mysql
;; ;;------------------------------------------------------------------------------
;; (init-message 3 "mysql")
;; (use-package mysql
;; ;;:quelpa (mysql)
;; :straight t
;; :after (sql)
;; :config (setq sql-product 'mysql))
;; SQL Mode:1 ends here
;; [[file:init-emacs.org::*Text Mode][Text Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: Text Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: Text Mode")
(use-package text-mode
:after (flyspell)
:mode (("\\.txt\\'" . text-mode)
("\\.text\\'" . text-mode)
("README" . text-mode)
("INSTALL" . text-mode)
("CHANGELOG" . text-mode))
:config
(defun local-text-mode-hook ()
;; set tab
;;(setq tab-width 4)
;;(setq tab-stop-list (number-sequence 4 76 4))
(setq tab-width 8)
(setq tab-stop-list (number-sequence 8 76 8))
;;(setq indent-tabs-mode t) ; can insert TAB characters
;;(bind-key "<tab>" 'indent-relative text-mode-map)
;; set default fill column for auto-fill mode
(setq fill-column 78)
;; turn on word wrap
(turn-on-auto-fill)
;; add underscore and dash to word boundaries
(modify-syntax-entry ?_ "w" text-mode-syntax-table)
(modify-syntax-entry ?- "w" text-mode-syntax-table)
;; turn on flyspell
(flyspell-mode 1)
;; ;; turn on abbreviation mode
;; (abbrev-mode 1)
;; turn on pabbrev mode
;;(pabbrev-mode)
;; insert two spaces after a sentence
(setq sentence-end-double-space t)
;; insert two spaces after a colon
(setq colon-double-space t))
(add-hook 'text-mode-hook #'local-text-mode-hook)
;; remove trailing blanks
;;(add-hook 'text-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'text-mode-hook #'install-remove-tabs)
)
;; Text Mode:1 ends here
;; [[file:init-emacs.org::*TypeScript Mode][TypeScript Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: TypeScript Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: TypeScript Mode")
(use-package typescript-mode
;;:quelpa (typescript-mode)
:straight t
:mode ("\\.ts\\'" . typescript-mode)
:hook (typescript-mode . lsp-deferred)
:config
(setq typescript-indent-level 2))
;; TypeScript Mode:1 ends here
;; [[file:init-emacs.org::*XML Mode][XML Mode:1]]
;;------------------------------------------------------------------------------
;;; Modes: XML Mode
;;------------------------------------------------------------------------------
(init-message 2 "Modes: XML Mode")
(use-package nxml-mode
:after (flyspell)
:mode (("\\.dtd\\'" . nxml-mode)
("\\.htm\\'" . nxml-mode)
("\\.html\\'" . nxml-mode)
("\\.rdf\\'" . nxml-mode)
("\\.rhtml\\'" . nxml-mode)
("\\.rss\\'" . nxml-mode)
("\\.sgml\\'" . nxml-mode)
("\\.svg\\'" . nxml-mode)
("\\.xhtml\\'" . nxml-mode)
("\\.xml\\'" . nxml-mode)
("\\.xsd\\'" . nxml-mode)
("\\.xsl\\'" . nxml-mode)
("\\.tt\\'" . nxml-mode))
:config
;; set magic modes
;;(load "rng-auto")
;;(unify-8859-on-decoding-mode)
(add-to-list 'magic-mode-alist '("<\\?xml " . nxml-mode) t)
(defun local-nxml-mode-hook ()
;; do not use `indent-relative' for tab indenting
(bind-key "<tab>" 'indent-for-tab-command nxml-mode-map)
;; turn off auto-fill mode
(turn-off-auto-fill)
;; turn on flyspell
(flyspell-prog-mode)
;; turn on auto-completion
(setq nxml-slash-auto-complete-flag t)
;; turn on org minor mode
;; (when (string-match "\\.\\(x?html\\|php[34]?\\)\\'"
;; (file-name-sans-versions buffer-file-name))
;; (local-nxml-mode-org))
;;(local-nxml-mode-org)
;; set outline header regexp
;;(setq-local outline-regexp " *<[^/]")
(setq-local outline-regexp "\\s *<\\([h][1-6]\\|html\\|body\\|head\\)\\b")
;;(hide-sublevels 1)
)
(add-hook 'nxml-mode-hook #'local-nxml-mode-hook)
;; (defun local-nxml-mode-org ()
;; ;;(setq-local outline-regexp "\\s *<\\([h][1-6]\\|html\\|body\\|head\\)\\b")
;; (setq-local outline-regexp "\\s *<")
;; (setq-local outline-level 'local-nxml-mode-outline-level)
;; (outline-minor-mode 1)
;; (hs-minor-mode 1))
;; (defun local-nxml-mode-outline-level ()
;; (save-mark-and-excursion
;; (save-match-data
;; (re-search-forward html-outline-level)
;; (let ((tag (buffer-substring (match-beginning 1) (match-end 1))))
;; (if (eq (length tag) 2)
;; (- (aref tag 1) ?0)
;; 0)))))
;; (add-to-list 'hs-special-modes-alist
;; '(nxml-mode
;; "<!--\\|<[^/>]>\\|<[^/][^>]*[^/]>"
;; ""
;; "<!--" ;; won't work on its own; uses syntax table
;; (lambda (arg) (local-nxml-mode-forward-element))
;; nil) t)
;; (defun local-nxml-mode-forward-element ()
;; (let ((nxml-sexp-element-flag))
;; (setq nxml-sexp-element-flag (not (looking-at "<!--")))
;; (unless (looking-at outline-regexp)
;; (ignore-errors
;; (nxml-forward-balanced-item 1)))))
;; remove trailing blanks
;;(add-hook 'nxml-mode-hook #'install-remove-trailing-blanks)
;; remove tabs
;;(add-hook 'nxml-mode-hook #'install-remove-tabs)
;; (use-package flymake
;; :config (progn
;; (defun flymake-html-init ()
;; (let* ((temp-file (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace))
;; (local-file (file-relative-name temp-file (file-name-directory buffer-file-name))))
;; (list "tidy" (list local-file))))
;; (add-to-list 'flymake-allowed-file-name-masks '("\\.html$\\|\\.ctp" flymake-html-init) t)
;; (add-to-list 'flymake-err-line-patterns '("line \\([0-9]+\\) column \\([0-9]+\\) - \\(Warning\\|Error\\): \\(.*\\)" nil 1 2 4) t)))
;; derive xml-mode and html-mode from nxml-mode
(fset 'xml-mode 'nxml-mode)
(fset 'html-mode 'nxml-mode))
;; XML Mode:1 ends here
;; [[file:init-emacs.org::*Menus][Menus:1]]
;;==============================================================================
;;; Menus
;;==============================================================================
(init-message 1 "Menus")
;; Menus:1 ends here
;; [[file:init-emacs.org::*Setup][Setup:1]]
;;------------------------------------------------------------------------------
;;; Menus: Setup
;;------------------------------------------------------------------------------
(init-message 2 "Menus: Setup")
;; Setup:1 ends here
;; [[file:init-emacs.org::*Easy Menu][Easy Menu:1]]
;;------------------------------------------------------------------------------
;;;; Menus: Setup: Easy Menu
;;------------------------------------------------------------------------------
(init-message 3 "Menus: Setup: Easy Menu")
;; easymenu
(use-package easymenu)
;; Easy Menu:1 ends here
;; [[file:init-emacs.org::*Auto-Menu][Auto-Menu:1]]
;;------------------------------------------------------------------------------
;;;; Menus: Setup: Auto-Menu
;;------------------------------------------------------------------------------
(init-message 3 "Menus: Setup: Auto-Menu")
;; auto-menu
(use-package auto-menu
;;:quelpa (auto-menu :fetcher file :path (expand-file-name "auto-menu.el" local-modules-dir))
:load-path (lambda () (expand-file-name "auto-menu.el" local-modules-dir))
:commands (auto-menu
auto-menu-dired
auto-menu-file
auto-menu-file-dir))
;; Auto-Menu:1 ends here
;; [[file:init-emacs.org::*Find or Browse File][Find or Browse File:1]]
;;------------------------------------------------------------------------------
;;;; Menus: Setup: Find or Browse File
;;------------------------------------------------------------------------------
(init-message 3 "Menus: Setup: Find or Browse File")
(defun find-or-browse-file (file)
"Based on file type either open FILE or browse FILE."
(let ((file (expand-file-name file)))
(if (string= (file-name-extension file) "html")
(browse-url (concat "file://" file))
(find-file file))))
;; Find or Browse File:1 ends here
;; [[file:init-emacs.org::*Buffer-Switch Menu][Buffer-Switch Menu:1]]
;;------------------------------------------------------------------------------
;;; Menus: Buffer-Switch Menu
;;------------------------------------------------------------------------------
(init-message 2 "Menus: Buffer-Switch Menu")
;; buffer-switch menu
(auto-menu
"Buffer-Switch"
`(("*scratch*" "(switch-to-buffer \"*scratch*\")" "Switch to '*scratch*' buffer.")
("New *scratch*" "(switch-to-buffer (generate-new-buffer-name \"*scratch*\"))" "Create and switch to a '*scratch*' buffer.")
("Current Mode *scratch*" "(switch-to-scratch-for-current-mode)" "Switch to '*scratch-MODE*' buffer.")
("Emacs Lisp Mode *scratch*" "(new-emacs-lisp-scratch)" "Create and switch to '*scratch-emacs-lisp-mode*' buffer.")
("*messages*" "(switch-to-buffer \"*Messages*\")" "Switch to '*Messages*' buffer.")))
;; Buffer-Switch Menu:1 ends here
;; [[file:init-emacs.org::*Dired Menu][Dired Menu:1]]
;;------------------------------------------------------------------------------
;;; Menus: Dired Menu
;;------------------------------------------------------------------------------
(init-message 2 "Menus: Dired Menu")
;; dired menu
(auto-menu
"Dired"
;;(append '(("recent" "context-dired" "Run `cdired' to list recent files.")) ; no longer installed
(auto-menu-dired `(("home" . "~/")
,(cons "emacs" emacs-