remove org-babeled .el files
This commit is contained in:
parent
c310a3483a
commit
4db28a2a67
155
conf/lib/lib.el
155
conf/lib/lib.el
|
@ -1,155 +0,0 @@
|
|||
;; lovingly stolen from aaron harris
|
||||
(defmacro nd/with-advice (adlist &rest body)
|
||||
"Execute BODY with temporary advice in ADLIST.
|
||||
|
||||
Each element of ADLIST should be a list of the form
|
||||
(SYMBOL WHERE FUNCTION [PROPS])
|
||||
suitable for passing to `advice-add'. The BODY is wrapped in an
|
||||
`unwind-protect' form, so the advice will be removed even in the
|
||||
event of an error or nonlocal exit."
|
||||
(declare (debug ((&rest (&rest form)) body))
|
||||
(indent 1))
|
||||
`(progn
|
||||
,@(mapcar (lambda (adform)
|
||||
(cons 'advice-add adform))
|
||||
adlist)
|
||||
(unwind-protect (progn ,@body)
|
||||
,@(mapcar (lambda (adform)
|
||||
`(advice-remove ,(car adform) ,(nth 2 adform)))
|
||||
adlist))))
|
||||
|
||||
(defun nd/filter-list-prefix (prefix str-list)
|
||||
"Return a subset of STR-LIST whose first characters are PREFIX."
|
||||
(seq-filter (lambda (i)
|
||||
(and (stringp i)
|
||||
(string-prefix-p prefix i)))
|
||||
str-list))
|
||||
|
||||
(defun nd/move-key (keymap-from keymap-to key)
|
||||
"Move KEY from KEYMAP-FROM keymap to KEYMAP-TO keymap."
|
||||
(define-key keymap-to key (lookup-key keymap-from key))
|
||||
(define-key keymap-from key nil))
|
||||
|
||||
(defun nd/get-apps-from-mime (mimetype)
|
||||
"Return all applications that can open a given MIMETYPE.
|
||||
The list is comprised of alists where pairs are of the form (name . command)."
|
||||
(let* ((case-fold-search nil)
|
||||
(mime-regex (concat "^MimeType=.*" mimetype ";.*$"))
|
||||
(desktop-dirs '("/usr/share/applications"
|
||||
"/usr/local/share/applications"
|
||||
"~/.local/share/applications"))
|
||||
(desktop-files (mapcan (lambda (d) (directory-files d t ".*\\.desktop" t)) desktop-dirs))
|
||||
(app-list))
|
||||
(dolist (file desktop-files app-list)
|
||||
(with-temp-buffer
|
||||
(insert-file-contents file)
|
||||
(let* ((tb (buffer-string)))
|
||||
(if (string-match mime-regex tb)
|
||||
(let* ((exec (progn (string-match "^Exec=\\(.*\\)$" tb)
|
||||
(match-string 1 tb)))
|
||||
(name (or
|
||||
(progn (string-match "^Name=\\(.*\\)$" tb)
|
||||
(match-string 1 tb))
|
||||
exec)))
|
||||
(setq app-list (cons `(,name . ,exec) app-list)))))))))
|
||||
|
||||
(defun nd/get-apps-bulk-from-mime (mimetype)
|
||||
"Like `nd/get-apps-from-mime' but only includes apps that can open
|
||||
multiple files at once for given MIMETYPE."
|
||||
(let ((case-fold-search nil))
|
||||
(seq-filter (lambda (a) (string-match ".*%[FU].*" (car a))) (nd/get-apps-from-mime mimetype))))
|
||||
|
||||
(defun nd/execute-desktop-command (cmd file)
|
||||
"Opens FILE using CMD in separate process where CMD is from a
|
||||
desktop file exec directive."
|
||||
(let* ((cmd-arg (replace-regexp-in-string "%[fuFU]" file cmd t t)))
|
||||
(call-process-shell-command (concat cmd-arg " &"))))
|
||||
|
||||
(defun nd/get-mime-type (file)
|
||||
"Get the mime type of FILE."
|
||||
(let* ((cmd (concat "file --mime-type -b " file))
|
||||
(mt (shell-command-to-string cmd)))
|
||||
(replace-regexp-in-string "\n\\'" "" mt)))
|
||||
|
||||
(defvar nd/device-mount-dir (concat "/media/" (user-login-name)))
|
||||
|
||||
(defun nd/get-mounted-directories (&optional mount-path)
|
||||
"Scan MOUNT-PATH (defaults to /media/$USER for devices that have
|
||||
been mounted by udevil."
|
||||
(seq-filter #'file-directory-p (directory-files nd/device-mount-dir t "^\\([^.]\\|\\.[^.]\\|\\.\\..\\)")))
|
||||
|
||||
(defun nd/device-mountable-p (devpath)
|
||||
"Returns label or uuid if device at DEVPATH is has a readable
|
||||
filesystem and is a usb drive."
|
||||
(let ((devprops (shell-command-to-string (concat "udevadm info --query=property " devpath))))
|
||||
(and (string-match-p (regexp-quote "ID_FS_TYPE") devprops)
|
||||
(string-match-p (regexp-quote "ID_BUS=usb") devprops)
|
||||
(progn
|
||||
(or (string-match "ID_FS_LABEL=\\(.*\\)\n" devprops)
|
||||
(string-match "ID_FS_UUID=\\(.*\\)\n" devprops))
|
||||
(match-string 1 devprops)))))
|
||||
|
||||
(defun nd/get-mountable-devices ()
|
||||
"Return paths of all mountable devices. (see `nd/device-mountable-p')."
|
||||
(seq-filter #'car
|
||||
(mapcar (lambda (d) `(,(nd/device-mountable-p d) . ,d))
|
||||
(directory-files "/dev" t "sd.[0-9]+"))))
|
||||
|
||||
(defun nd/mount-device (dev &rest opts)
|
||||
"Mount device DEV using udevil."
|
||||
(call-process "udevil" nil nil nil "mount" dev))
|
||||
|
||||
(defun nd/get-mountpoint (dev)
|
||||
"Get the filesystem mountpoint for device DEV."
|
||||
(let ((mp (shell-command-to-string (concat "printf %s \"$(findmnt -n -o TARGET " dev ")\""))))
|
||||
(and (not (equal "" mp)) mp)))
|
||||
|
||||
(defun nd/split-and-follow-horizontally ()
|
||||
"Split window horizontally and move focus."
|
||||
(interactive)
|
||||
(split-window-below)
|
||||
(balance-windows)
|
||||
(other-window 1))
|
||||
|
||||
(defun nd/split-and-follow-vertically ()
|
||||
"Split window vertically and move focus."
|
||||
(interactive)
|
||||
(split-window-right)
|
||||
(balance-windows)
|
||||
(other-window 1))
|
||||
|
||||
(defun nd/switch-to-previous-buffer ()
|
||||
"Switch the buffer to the last opened buffer."
|
||||
(interactive)
|
||||
(switch-to-buffer (other-buffer (current-buffer) 1)))
|
||||
|
||||
(defun nd/config-reload ()
|
||||
"Reloads main configuration file at runtime."
|
||||
(interactive)
|
||||
(org-babel-load-file (expand-file-name "~/.emacs.d/conf/main.org")))
|
||||
|
||||
(defun nd/config-visit ()
|
||||
"Opens the main conf.org file (the one that really matters)."
|
||||
(interactive)
|
||||
(find-file "~/.emacs.d/conf/main.org"))
|
||||
|
||||
(defun nd/kill-current-buffer ()
|
||||
"Kill the current buffer."
|
||||
(interactive)
|
||||
(kill-buffer (current-buffer)))
|
||||
|
||||
(defun nd/close-all-buffers ()
|
||||
"Kill all buffers without regard for their origin."
|
||||
(interactive)
|
||||
(mapc 'kill-buffer (buffer-list)))
|
||||
|
||||
(defun nd/org-close-all-buffers ()
|
||||
"Kill all org buffers."
|
||||
(interactive)
|
||||
(mapc 'kill-buffer (org-buffer-list)))
|
||||
|
||||
(defun nd/open-urxvt ()
|
||||
"Launch urxvt in the current directory."
|
||||
(interactive)
|
||||
(let ((cwd (expand-file-name default-directory)))
|
||||
(call-process "urxvt" nil 0 nil "-cd" cwd)))
|
948
conf/main.el
948
conf/main.el
|
@ -1,948 +0,0 @@
|
|||
(use-package spacemacs-theme
|
||||
:defer t
|
||||
:config
|
||||
(setq spacemacs-theme-custom-colors '((lnum . "#64707c"))))
|
||||
|
||||
(defvar nd/theme 'spacemacs-dark)
|
||||
(defvar nd/theme-window-loaded nil)
|
||||
(defvar nd/theme-terminal-loaded nil)
|
||||
|
||||
;; required for emacsclient/daemon setup
|
||||
(if (daemonp)
|
||||
(add-hook 'after-make-frame-functions
|
||||
(lambda (frame)
|
||||
(select-frame frame)
|
||||
(if (window-system frame)
|
||||
(unless nd/theme-window-loaded
|
||||
(if nd/theme-terminal-loaded
|
||||
(enable-theme nd/theme)
|
||||
(load-theme nd/theme t))
|
||||
(setq nd/theme-window-loaded t))
|
||||
(unless nd/theme-terminal-loaded
|
||||
(if nd/theme-window-loaded
|
||||
(enable-theme nd/theme)
|
||||
(load-theme nd/theme t))
|
||||
(setq nd/theme-terminal-loaded t)))))
|
||||
(progn
|
||||
(load-theme nd/theme t)
|
||||
(if (display-graphic-p)
|
||||
(setq nd/theme-window-loaded t)
|
||||
(setq nd/theme-terminal-loaded t))))
|
||||
|
||||
(use-package spaceline
|
||||
:ensure t
|
||||
:config
|
||||
(require 'spaceline-config)
|
||||
(setq powerline-default-separator 'arrow
|
||||
spaceline-buffer-size-p nil)
|
||||
(spaceline-spacemacs-theme))
|
||||
|
||||
(line-number-mode 1)
|
||||
(column-number-mode 1)
|
||||
|
||||
(use-package delight
|
||||
:ensure t)
|
||||
|
||||
(setq inhibit-startup-screen t)
|
||||
|
||||
(tool-bar-mode -1)
|
||||
(menu-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
|
||||
(setq make-backup-files nil)
|
||||
(setq auto-save-default nil)
|
||||
|
||||
(setq pop-up-windows nil) ; no popups (eg ediff)
|
||||
|
||||
(set-default 'truncate-lines t)
|
||||
|
||||
(setq scroll-conservatively 100)
|
||||
|
||||
(when (fboundp 'imagemagick-register-types)
|
||||
(imagemagick-register-types))
|
||||
|
||||
(defalias 'yes-or-no-p 'y-or-n-p) ; eliminate yes or no prompt on killing procs
|
||||
|
||||
(use-package beacon
|
||||
:ensure t
|
||||
:delight
|
||||
:init
|
||||
(beacon-mode 1))
|
||||
|
||||
(use-package which-key
|
||||
:ensure t
|
||||
:delight
|
||||
:init
|
||||
(which-key-mode))
|
||||
|
||||
(use-package helm
|
||||
:ensure t
|
||||
:delight
|
||||
:init
|
||||
(helm-mode 1)
|
||||
:config
|
||||
(setq helm-autoresize-max-height 0
|
||||
helm-autoresize-max-height 40
|
||||
helm-M-x-fuzzy-match t
|
||||
helm-buffers-fuzzy-matching t
|
||||
helm-recentf-fuzzy-match t
|
||||
helm-semantic-fuzzy-match t
|
||||
helm-imenu-fuzzy-match t
|
||||
helm-scroll-amount 8)
|
||||
(add-to-list 'display-buffer-alist
|
||||
`(,(rx bos "*helm" (* not-newline) "*" eos)
|
||||
(display-buffer-in-side-window)
|
||||
(inhibit-same-window . t)
|
||||
(window-height . 0.4)))
|
||||
(helm-autoresize-mode 1)
|
||||
(require 'helm-config))
|
||||
|
||||
(use-package helm-swoop
|
||||
:ensure t)
|
||||
|
||||
(use-package rainbow-delimiters
|
||||
:ensure t
|
||||
:delight
|
||||
:hook
|
||||
((prog-mode . rainbow-delimiters-mode)
|
||||
(inferior-ess-mode . rainbow-delimiters-mode)
|
||||
(ess-mode . rainbow-delimiters-mode)
|
||||
(LaTeX-mode . rainbow-delimiters-mode)
|
||||
(Tex-latex-mode . rainbow-delimiters-mode)))
|
||||
|
||||
(use-package ace-window
|
||||
:ensure t
|
||||
:config
|
||||
(setq aw-background t)
|
||||
(custom-set-faces '(aw-leading-char-face
|
||||
((t (:foreground "#292b2e"
|
||||
:background "#bc6ec5"
|
||||
:height 1.0
|
||||
:box nil))))))
|
||||
|
||||
(use-package avy
|
||||
:ensure t
|
||||
:config
|
||||
(setq avy-background t))
|
||||
|
||||
(use-package sudo-edit
|
||||
:ensure t)
|
||||
|
||||
(use-package undo-tree
|
||||
:ensure t
|
||||
:delight
|
||||
:config
|
||||
(setq undo-tree-visualizer-diff t)
|
||||
(global-undo-tree-mode))
|
||||
|
||||
(use-package fill-column-indicator
|
||||
:ensure t
|
||||
:config
|
||||
(setq fci-rule-use-dashes t)
|
||||
:hook
|
||||
(prog-mode . fci-mode))
|
||||
|
||||
(use-package rainbow-mode
|
||||
:ensure t)
|
||||
|
||||
(use-package async
|
||||
:ensure t
|
||||
:delight dired-async-mode
|
||||
:init
|
||||
(dired-async-mode 1))
|
||||
|
||||
(use-package csv-mode
|
||||
:ensure t
|
||||
:hook (csv-mode . (lambda () (csv-align-fields nil (point-min) (point-max)))))
|
||||
|
||||
(use-package markdown-mode
|
||||
:ensure t)
|
||||
|
||||
(use-package polymode
|
||||
:ensure t
|
||||
:after markdown-mode
|
||||
:mode
|
||||
(("\\.Rmd\\'" . poly-markdown+r-mode)
|
||||
("\\.rmd\\'" . poly-markdown+r-mode))
|
||||
:config
|
||||
(require 'poly-R)
|
||||
(require 'poly-markdown))
|
||||
|
||||
(org-babel-load-file (expand-file-name "lib/lib.org" nd/conf-dir))
|
||||
|
||||
(setq-default indent-tabs-mode nil
|
||||
tab-width 4)
|
||||
|
||||
(use-package company
|
||||
:ensure t
|
||||
:delight " ©"
|
||||
:config
|
||||
(setq company-idle-delay 0
|
||||
company-minimum-prefix-length 3))
|
||||
|
||||
(use-package flycheck
|
||||
:ensure t
|
||||
:hook
|
||||
(prog-mode . flycheck-mode)
|
||||
:config
|
||||
(setq flycheck-check-syntax-automatically '(save
|
||||
idle-change
|
||||
mode-enabled)
|
||||
flycheck-idle-change-delay 2
|
||||
flycheck-error-list-minimum-level 'warning
|
||||
flycheck-navigation-minimum-level 'warning))
|
||||
|
||||
(use-package yasnippet
|
||||
:ensure t)
|
||||
|
||||
(use-package yasnippet-snippets
|
||||
:ensure t
|
||||
:after yasnippet
|
||||
:hook
|
||||
((prog-mode . yas-minor-mode))
|
||||
:config
|
||||
(yas-reload-all))
|
||||
|
||||
;; (electric-pair-mode t)
|
||||
|
||||
(use-package flyspell-correct-helm
|
||||
:ensure t
|
||||
:after (helm flyspell))
|
||||
|
||||
;; (add-hook 'flyspell-mode-hook 'flyspell-buffer)
|
||||
|
||||
(add-hook 'prog-mode-hook #'prettify-symbols-mode)
|
||||
(add-hook 'prog-mode-hook #'flyspell-prog-mode)
|
||||
(setq flyspell-issue-message-flag nil)
|
||||
|
||||
(add-hook 'emacs-lisp-mode-hook 'company-mode)
|
||||
|
||||
(defun nd/init-ess-company ()
|
||||
"Set the company backends for ess modes."
|
||||
(setq-local company-backends '((company-R-objects company-R-args))))
|
||||
|
||||
(use-package ess
|
||||
:ensure t
|
||||
:init
|
||||
(load "ess-site")
|
||||
:hook
|
||||
((ess-mode . flycheck-mode)
|
||||
(ess-mode . company-mode)
|
||||
(ess-mode . nd/init-ess-company)
|
||||
(ess-mode . prettify-symbols-mode)
|
||||
(ess-mode . fci-mode)
|
||||
|
||||
(inferior-ess-mode . company-mode)
|
||||
(inferior-ess-mode . nd/init-ess-company)
|
||||
(inferior-ess-mode . prettify-symbols-mode))
|
||||
:config
|
||||
(setq inferior-R-args "--quiet --no-save"
|
||||
ess-history-file "session.Rhistory"
|
||||
ess-history-directory (substitute-in-file-name "${XDG_CONFIG_HOME}/r/")))
|
||||
|
||||
(elpy-enable)
|
||||
|
||||
;; make python tabs 4 chars
|
||||
(add-hook 'python-mode-hook
|
||||
(lambda ()
|
||||
(setq indent-tabs-mode t)
|
||||
(setq tab-width 4)
|
||||
(setq python-offset 4)))
|
||||
|
||||
(setq python-shell-interpreter "ipython"
|
||||
python-shell-interpreter-args "--colors=Linux --profile=default")
|
||||
|
||||
(use-package haskell-mode
|
||||
:ensure t
|
||||
:config
|
||||
(setq haskell-interactive-popup-errors nil))
|
||||
|
||||
(use-package intero
|
||||
:ensure t
|
||||
:after haskell-mode
|
||||
:hook
|
||||
(haskell-mode . intero-mode))
|
||||
|
||||
(add-hook 'haskell-mode-hook #'subword-mode)
|
||||
|
||||
(add-hook 'LaTeX-mode-hook #'flycheck-mode)
|
||||
(add-hook 'Tex-latex-mode-hook #'flycheck-mode)
|
||||
|
||||
(defun nd/init-company-auctex ()
|
||||
"Set the company backends for auctex modes."
|
||||
(setq-local company-backends '((company-auctex-labels
|
||||
company-auctex-bibs
|
||||
company-auctex-macros
|
||||
company-auctex-symbols
|
||||
company-auctex-environments
|
||||
;; company-latex-commands
|
||||
company-math-symbols-latex
|
||||
company-math-symbols-unicode))))
|
||||
|
||||
(use-package company-math
|
||||
:ensure t
|
||||
:after company
|
||||
:config
|
||||
(setq company-math-allow-unicode-symbols-in-faces '(font-latex-math-face)
|
||||
company-math-disallow-latex-symbols-in-faces nil))
|
||||
|
||||
(use-package company-auctex
|
||||
:ensure t
|
||||
:after (company company-math)
|
||||
:hook
|
||||
((LaTeX-mode . company-mode)
|
||||
(LaTeX-mode . nd/init-company-auctex)
|
||||
(Tex-latex-mode . company-mode)
|
||||
(Tex-latex-mode . nd/init-company-auctex)))
|
||||
|
||||
(defun nd/turn-on-auto-fill-maybe ()
|
||||
"Prompts user to turn on `auto-fill-mode'."
|
||||
(when (y-or-n-p "Activate Auto Fill Mode? ")
|
||||
(turn-on-auto-fill)))
|
||||
|
||||
(add-hook 'LaTeX-mode-hook #'nd/turn-on-auto-fill-maybe)
|
||||
(add-hook 'LaTeX-mode-hook #'fci-mode)
|
||||
|
||||
(add-hook 'LaTeX-mode-hook (lambda () (flyspell-mode 1)))
|
||||
|
||||
(org-babel-load-file (expand-file-name "org/org.org" nd/conf-dir))
|
||||
|
||||
(defun nd/helm-set-printer-name ()
|
||||
"Set the printer name using helm-completion to select printer."
|
||||
(interactive)
|
||||
(let ((pl (or helm-ff-printer-list (helm-ff-find-printers))))
|
||||
(if pl (setq printer-name (helm-comp-read "Printer: " pl)))))
|
||||
|
||||
(use-package magit
|
||||
:ensure t
|
||||
:config
|
||||
:delight auto-revert-mode
|
||||
(setq magit-push-always-verify nil
|
||||
git-commit-summary-max-length 50))
|
||||
|
||||
(setq dired-no-confirm '(move copy))
|
||||
|
||||
(if (file-exists-p "/usr/bin/7z")
|
||||
(add-to-list 'dired-compress-files-alist
|
||||
'("\\.7z\\'" . "7z a %o %i")))
|
||||
|
||||
(if (file-exists-p "/usr/bin/lrzip")
|
||||
(progn
|
||||
(add-to-list 'dired-compress-files-alist
|
||||
'("\\.lrz\\'" . "lrzip -L 9 -o %o %i &"))
|
||||
(add-to-list 'dired-compress-files-alist
|
||||
'("\\.lzo\\'" . "lrzip -l -L 9 -o %o %i &"))
|
||||
(add-to-list 'dired-compress-files-alist
|
||||
'("\\.zpaq\\'" . "lrzip -z -L 9 -o %o %i &"))))
|
||||
|
||||
;; NOTE: this must be after the shorter lrz algos otherwise it will
|
||||
;; always default to .lrz and not .tar.lrz
|
||||
(if (file-exists-p "/usr/bin/lrztar")
|
||||
(progn
|
||||
(add-to-list 'dired-compress-files-alist
|
||||
'("\\.tar\\.lrz\\'" . "lrztar -L 9 -o %o %i &"))
|
||||
(add-to-list 'dired-compress-files-alist
|
||||
'("\\.tar\\.lzo\\'" . "lrztar -l -L 9 -o %o %i &"))
|
||||
(add-to-list 'dired-compress-files-alist
|
||||
'("\\.tar\\.zpaq\\'" . "lrztar -z -L 9 -o %o %i &"))))
|
||||
|
||||
(setq dired-listing-switches "-Alh")
|
||||
|
||||
;; from here:
|
||||
;; https://www.djcbsoftware.nl/code/mu/mu4e/Dired.html#Dired
|
||||
(require 'gnus-dired)
|
||||
|
||||
(eval-after-load 'gnus-dired
|
||||
'(defun gnus-dired-mail-buffers ()
|
||||
"Return a list of active mu4e message buffers."
|
||||
(let (buffers)
|
||||
(save-current-buffer
|
||||
(dolist (buffer (buffer-list t))
|
||||
(set-buffer buffer)
|
||||
(when (and (derived-mode-p 'message-mode)
|
||||
(null message-sent-message-via))
|
||||
(push (buffer-name buffer) buffers))))
|
||||
(nreverse buffers))))
|
||||
|
||||
(setq gnus-dired-mail-mode 'mu4e-user-agent)
|
||||
(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
|
||||
|
||||
(use-package dired-du
|
||||
:ensure t
|
||||
:config
|
||||
(setq dired-du-size-format t))
|
||||
|
||||
(defun nd/helm-devices ()
|
||||
"Mount, unmount, and navigate to removable media using helm."
|
||||
(interactive)
|
||||
(let* ((mounted (mapcar
|
||||
(lambda (d)
|
||||
`(,(file-name-base d) . ,d))
|
||||
(nd/get-mounted-directories)))
|
||||
(mountable (seq-filter
|
||||
(lambda (d) (not (member (car d) (mapcar #'car mounted))))
|
||||
(nd/get-mountable-devices))))
|
||||
(helm
|
||||
:sources
|
||||
(list
|
||||
(helm-build-sync-source "Mounted Devices"
|
||||
:candidates mounted
|
||||
:action
|
||||
'(("Open" . (lambda (s) (find-file s)))
|
||||
("Unmount" . (lambda (s) (start-process "unmount" nil "udevil" "unmount" s)))))
|
||||
(helm-build-sync-source "Mountable Devices"
|
||||
:candidates mountable
|
||||
:action
|
||||
'(("Mount and Follow" . (lambda (s)
|
||||
(nd/mount-device s)
|
||||
(find-file (nd/get-mountpoint s))))
|
||||
("Mount" . (lambda (s) (nd/mount-device s))))))
|
||||
:buffer "*helm device buffer*"
|
||||
:prompt "Device: ")))
|
||||
|
||||
(require 'mu4e)
|
||||
|
||||
(setq mail-user-agent 'mu4e-user-agent
|
||||
mu4e-maildir "/mnt/data/Mail"
|
||||
|
||||
mu4e-attachment-dir "~/Downloads"
|
||||
|
||||
mu4e-view-show-images t
|
||||
mu4e-headers-show-target nil
|
||||
|
||||
mu4e-view-show-addresses t
|
||||
|
||||
message-kill-buffer-on-exit t
|
||||
|
||||
mu4e-change-filenames-when-moving t
|
||||
|
||||
mu4e-confirm-quit nil
|
||||
|
||||
mu4e-view-prefer-html t
|
||||
|
||||
mu4e-compose-dont-reply-to-self t
|
||||
|
||||
mu4e-get-mail-command "systemctl --user start mbsync"
|
||||
|
||||
user-full-name "Dwarshuis, Nathan J")
|
||||
|
||||
(setq mu4e-headers-fields '((:human-date . 11)
|
||||
(:flags . 5)
|
||||
(:from . 22)
|
||||
(:thread-subject))
|
||||
mu4e-headers-date-format "%F"
|
||||
mu4e-headers-time-format "%R"
|
||||
mu4e-use-fancy-chars nil)
|
||||
|
||||
;; necessary for the header macros below
|
||||
(require 'nnheader)
|
||||
|
||||
(defun nd/message-insert-citation-header ()
|
||||
"Insert the header of the reply message."
|
||||
(let* ((h message-reply-headers)
|
||||
(sep "________________________________")
|
||||
(from (concat "From: " (mail-header-from h)))
|
||||
(date (concat "Sent: " (mail-header-date h)))
|
||||
(to (concat "To: " user-full-name))
|
||||
(subj (concat "Subject: " (message-strip-subject-re (mail-header-subject h)))))
|
||||
(insert (string-join `("" ,sep ,from ,date ,to ,subj "") "\n"))))
|
||||
|
||||
(setq message-citation-line-function 'nd/message-insert-citation-header)
|
||||
|
||||
(setq message-yank-prefix "")
|
||||
(setq message-yank-cited-prefix "")
|
||||
(setq message-yank-empty-prefix "")
|
||||
|
||||
(setq
|
||||
mu4e-compose-pre-hook
|
||||
(lambda ()
|
||||
(let* ((msg mu4e-compose-parent-message)
|
||||
(html (and msg (plist-get msg :body-html)))
|
||||
;; oops, mu4e screwed up
|
||||
(mu4e-html2text-command
|
||||
(if (file-exists-p "/usr/bin/html2text")
|
||||
"html2text --ignore-emphasis --images-to-alt --body-width=0"
|
||||
'mu4e-shr2text)))
|
||||
(when (and html mu4e-view-prefer-html (member compose-type '(reply forward)))
|
||||
;; hackity hack, since the normal mu4e-message-body-text function
|
||||
;; does not render the desired html, do it here and force the
|
||||
;; aforementioned function to only look at text by removing
|
||||
;; the html
|
||||
(plist-put msg :body-txt (mu4e~html2text-shell msg mu4e-html2text-command))
|
||||
(plist-put msg :body-html nil)))))
|
||||
|
||||
(require 'smtpmail)
|
||||
;; (require 'smtpmail-async)
|
||||
;; (require 'secrets)
|
||||
;; (setq secrets-enabled t)
|
||||
(setq send-mail-function 'smtpmail-send-it
|
||||
message-send-mail-function 'smtpmail-send-it)
|
||||
(add-to-list 'auth-sources (expand-file-name "~/.emacs.d/.authinfo_mu4e.gpg"))
|
||||
;; (add-to-list 'auth-sources "secrets:default")
|
||||
|
||||
(setq mu4e-context-policy 'pick-first
|
||||
mu4e-compose-context-policy 'ask-if-none
|
||||
mu4e-user-mail-address-list '("natedwarshuis@gmail.com" "ndwarshuis3@gatech.edu" "ndwarsh@emory.edu")
|
||||
|
||||
mu4e-contexts
|
||||
`( ,(make-mu4e-context
|
||||
:name "personal"
|
||||
:match-func
|
||||
(lambda (msg)
|
||||
(when msg
|
||||
(let ((pfx (mu4e-message-field msg :maildir)))
|
||||
(string-prefix-p "/gmail" pfx))))
|
||||
:vars '((mu4e-trash-folder . "/gmail/trash")
|
||||
(mu4e-drafts-folder . "/gmail/drafts")
|
||||
(mu4e-sent-folder . "/gmail/sent")
|
||||
(mu4e-refile-folder . "/gmail/archive")
|
||||
(mu4e-sent-messages-behavior . delete)
|
||||
(smtpmail-stream-type . starttls)
|
||||
(smtpmail-smtp-server . "smtp.gmail.com")
|
||||
(smtpmail-smtp-service . 587)
|
||||
(smtpmail-smtp-user . "natedwarshuis@gmail.com")
|
||||
(user-mail-address . "natedwarshuis@gmail.com")
|
||||
(mu4e-maildir-shortcuts .
|
||||
(("/gmail/inbox" . ?i)
|
||||
("/gmail/sent" . ?s)
|
||||
("/gmail/trash" . ?t)
|
||||
("/gmail/drafts" . ?d)
|
||||
("/gmail/archive" . ?a)))))
|
||||
,(make-mu4e-context
|
||||
:name "gatech"
|
||||
:match-func
|
||||
(lambda (msg)
|
||||
(when msg
|
||||
(let ((pfx (mu4e-message-field msg :maildir)))
|
||||
(string-prefix-p "/gatech" pfx))))
|
||||
:vars '((mu4e-trash-folder . "/gatech/trash")
|
||||
(mu4e-drafts-folder . "/gatech/drafts")
|
||||
(mu4e-sent-folder . "/gatech/sent")
|
||||
(mu4e-refile-folder . "/gatech/archive")
|
||||
(mu4e-sent-messages-behavior . sent)
|
||||
(smtpmail-stream-type . starttls)
|
||||
(smtpmail-smtp-server . "smtp.office365.com")
|
||||
(smtpmail-smtp-service . 587)
|
||||
(smtpmail-smtp-user . "ndwarshuis3@gatech.edu")
|
||||
(user-mail-address . "ndwarshuis3@gatech.edu")
|
||||
(mu4e-maildir-shortcuts .
|
||||
(("/gatech/inbox" . ?i)
|
||||
("/gatech/sent" . ?s)
|
||||
("/gatech/trash" . ?t)
|
||||
("/gatech/drafts" . ?d)
|
||||
("/gatech/archive" . ?a)))))
|
||||
,(make-mu4e-context
|
||||
:name "emory"
|
||||
:match-func
|
||||
(lambda (msg)
|
||||
(when msg
|
||||
(let ((pfx (mu4e-message-field msg :maildir)))
|
||||
(string-prefix-p "/emory" pfx))))
|
||||
:vars '((mu4e-trash-folder . "/emory/trash")
|
||||
(mu4e-drafts-folder . "/emory/drafts")
|
||||
(mu4e-sent-folder . "/emory/sent")
|
||||
(mu4e-refile-folder . "/emory/archive")
|
||||
(mu4e-sent-messages-behavior . sent)
|
||||
(smtpmail-stream-type . starttls)
|
||||
(smtpmail-smtp-server . "smtp.office365.com")
|
||||
(smtpmail-smtp-service . 587)
|
||||
(smtpmail-smtp-user . "ndwarsh@emory.edu")
|
||||
(user-mail-address . "ndwarsh@emory.edu")
|
||||
(mu4e-maildir-shortcuts .
|
||||
(("/emory/inbox" . ?i)
|
||||
("/emory/sent" . ?s)
|
||||
("/emory/trash" . ?t)
|
||||
("/emory/drafts" . ?d)
|
||||
("/emory/archive" . ?a)))))))
|
||||
|
||||
(use-package org-mu4e
|
||||
:after (org mu4e)
|
||||
:config
|
||||
(setq
|
||||
;; for using mu4e in org-capture templates
|
||||
org-mu4e-link-query-in-headers-mode nil
|
||||
;; for composing rich-text emails using org mode
|
||||
org-mu4e-convert-to-html t))
|
||||
|
||||
(setq mu4e-compose-signature-auto-include nil
|
||||
|
||||
mu4e-compose-signature
|
||||
(string-join
|
||||
'("Nathan Dwarshuis"
|
||||
""
|
||||
"PhD Student - Biomedical Engineering - Krish Roy Lab"
|
||||
"Georgia Institute of Technology and Emory University"
|
||||
"ndwarshuis3@gatech.edu")
|
||||
"\n"))
|
||||
|
||||
(add-hook 'mu4e-compose-mode-hook 'turn-off-auto-fill)
|
||||
(add-hook 'mu4e-compose-mode-hook 'visual-line-mode)
|
||||
(add-hook 'mu4e-view-mode-hook 'turn-off-auto-fill)
|
||||
(add-hook 'mu4e-view-mode-hook 'visual-line-mode)
|
||||
|
||||
(add-hook 'mu4e-compose-mode-hook (lambda () (flyspell-mode 1)))
|
||||
|
||||
(load "auctex.el" nil t t)
|
||||
(require 'tex-mik)
|
||||
|
||||
(setq TeX-view-program-selection '(((output-dvi has-no-display-manager)
|
||||
"dvi2tty")
|
||||
((output-dvi style-pstricks)
|
||||
"dvips and gv")
|
||||
(output-dvi "xdvi")
|
||||
(output-pdf "Okular")
|
||||
(output-html "xdg-open")))
|
||||
|
||||
;; remove ugly section size
|
||||
(setq font-latex-fontify-sectioning 'color)
|
||||
|
||||
(add-hook 'LaTeX-mode-hook (lambda () (outline-minor-mode 1)))
|
||||
(add-hook 'Tex-latex-mode-hook (lambda () (outline-minor-mode 1)))
|
||||
|
||||
(use-package outline-magic
|
||||
:ensure t
|
||||
:after outline)
|
||||
|
||||
(use-package org-ref
|
||||
:ensure t
|
||||
:after org
|
||||
:config
|
||||
(setq reftex-default-bibliography (expand-file-name "~/BibTeX/master.bib")
|
||||
org-ref-bibliography-notes (expand-file-name "~/BibTeX/notes.org")
|
||||
org-ref-default-bibliography (expand-file-name "~/BibTeX/master.bib")))
|
||||
|
||||
(use-package helm-bibtex
|
||||
:ensure t
|
||||
:after helm
|
||||
:config
|
||||
(setq bibtex-completion-bibliography (expand-file-name "~/BibTeX/master.bib")
|
||||
bibtex-completion-library-path (expand-file-name "~/BibTeX/pdf")
|
||||
bibtex-completion-pdf-field "File"))
|
||||
|
||||
(use-package ebib
|
||||
:ensure t)
|
||||
|
||||
(defadvice ansi-term (before force-bash)
|
||||
(interactive (list "/bin/zsh")))
|
||||
(ad-activate 'ansi-term)
|
||||
|
||||
(defun nd/term-send-raw-escape ()
|
||||
"Send a raw escape character to the running terminal."
|
||||
(interactive)
|
||||
(term-send-raw-string "\e"))
|
||||
|
||||
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
|
||||
|
||||
(use-package evil
|
||||
:ensure t
|
||||
:init
|
||||
;; this is required to make evil collection work
|
||||
(setq evil-want-integration nil)
|
||||
:config
|
||||
(evil-mode 1))
|
||||
|
||||
(setq sentence-end-double-space nil)
|
||||
|
||||
(add-to-list 'evil-motion-state-modes 'ess-help-mode)
|
||||
(add-to-list 'evil-insert-state-modes 'inferior-ess-mode)
|
||||
|
||||
(use-package evil-surround
|
||||
:ensure t
|
||||
:after evil
|
||||
:config
|
||||
(global-evil-surround-mode 1))
|
||||
|
||||
(use-package evil-commentary
|
||||
:ensure t
|
||||
:after evil
|
||||
:delight
|
||||
:config
|
||||
(evil-commentary-mode))
|
||||
|
||||
(use-package evil-replace-with-register
|
||||
:ensure t
|
||||
:after evil
|
||||
:config
|
||||
(evil-replace-with-register-install))
|
||||
|
||||
(mapc (lambda (k) (nd/move-key global-map evil-emacs-state-map (eval k)))
|
||||
'((kbd "C-s")
|
||||
(kbd "C-p")
|
||||
(kbd "C-n")
|
||||
(kbd "C-f")
|
||||
(kbd "C-b")
|
||||
(kbd "C-a")
|
||||
(kbd "C-e")
|
||||
(kbd "C-<SPC>")
|
||||
|
||||
(kbd "C-x C-;")
|
||||
(kbd "C-x C-l")
|
||||
(kbd "C-x C-u")
|
||||
(kbd "C-x C-z")
|
||||
(kbd "C-x C-c")
|
||||
|
||||
(kbd "M-c")
|
||||
(kbd "M-d")
|
||||
(kbd "M-e")
|
||||
(kbd "M-r")
|
||||
(kbd "M-f")
|
||||
(kbd "M-h")
|
||||
(kbd "M-j")
|
||||
(kbd "C-M-j")
|
||||
(kbd "M-k")
|
||||
(kbd "M-l")
|
||||
(kbd "M-m")
|
||||
(kbd "M-q")
|
||||
(kbd "M-w")
|
||||
(kbd "M-t")
|
||||
(kbd "M-u")
|
||||
(kbd "M-i")
|
||||
(kbd "M-z")
|
||||
(kbd "M-v")
|
||||
(kbd "M-/")
|
||||
(kbd "M-;")
|
||||
(kbd "M-DEL")))
|
||||
|
||||
(use-package evil-org
|
||||
:ensure t
|
||||
:after (evil org)
|
||||
:delight
|
||||
:config
|
||||
(add-hook 'org-mode-hook 'evil-org-mode)
|
||||
(add-hook 'evil-org-mode-hook 'evil-org-set-key-theme)
|
||||
|
||||
(require 'evil-org-agenda)
|
||||
(evil-org-agenda-set-keys)
|
||||
;; some of the defaults bug me...
|
||||
(evil-define-key 'motion org-agenda-mode-map
|
||||
"t" 'nd/toggle-project-toplevel-display
|
||||
"D" 'org-agenda-day-view
|
||||
"W" 'org-agenda-week-view
|
||||
"M" 'org-agenda-month-view
|
||||
"Y" 'org-agenda-year-view
|
||||
"ct" nil
|
||||
"sC" 'nd/org-agenda-filter-non-context
|
||||
"sE" 'nd/org-agenda-filter-non-effort
|
||||
"sD" 'nd/org-agenda-filter-delegate
|
||||
"sP" 'nd/org-agenda-filter-non-peripheral
|
||||
"e" 'org-agenda-set-effort
|
||||
"ce" nil))
|
||||
|
||||
(use-package evil-magit
|
||||
:ensure t
|
||||
:after (evil magit))
|
||||
|
||||
(evil-define-key '(normal visual) 'visual-line-mode
|
||||
"j" 'evil-next-visual-line
|
||||
"k" 'evil-previous-visual-line
|
||||
"0" 'beginning-of-visual-line
|
||||
"$" 'end-of-visual-line)
|
||||
|
||||
(defun nd/comint-char-mode-evil-insert ()
|
||||
"If not at the last line, go to the end of the buffer and enter insert mode. Else just enter insert mode."
|
||||
(interactive)
|
||||
(if (/= (line-number-at-pos (point)) (line-number-at-pos (point-max)))
|
||||
(goto-char (point-max))))
|
||||
|
||||
(defun nd/comint-send-input-evil-insert (&optional send-input-cmd)
|
||||
"Go into insert mode after calling SEND-INPUT-CMD which is usually
|
||||
the function that send the command to the interactive process in the
|
||||
REPL. If no SEND-INPUT-CMD then `comint-send-input' is used."
|
||||
(interactive)
|
||||
(if send-input-cmd (funcall send-input-cmd) (comint-send-input))
|
||||
(evil-insert 1))
|
||||
|
||||
(evil-define-key '(normal insert) comint-mode-map
|
||||
(kbd "C-k") 'comint-previous-input
|
||||
(kbd "C-j") 'comint-next-input)
|
||||
|
||||
(evil-define-key 'normal inferior-ess-mode-map
|
||||
(kbd "RET") (lambda () nd/comint-send-input-evil-insert
|
||||
'inferior-ess-send-input))
|
||||
|
||||
(add-hook 'inferior-ess-mode-hook
|
||||
(lambda ()
|
||||
(add-hook 'evil-insert-state-entry-hook
|
||||
'nd/comint-char-mode-evil-insert nil t)))
|
||||
|
||||
(evil-define-key 'normal intero-repl-mode-map
|
||||
(kbd "RET") 'nd/comint-send-input-evil-insert)
|
||||
|
||||
(add-hook 'intero-repl-mode-hook
|
||||
(lambda ()
|
||||
(add-hook 'evil-insert-state-entry-hook
|
||||
'nd/comint-char-mode-evil-insert nil t)))
|
||||
|
||||
(use-package evil-collection
|
||||
:ensure t
|
||||
:after evil
|
||||
:init
|
||||
(setq evil-collection-mode-list
|
||||
'(company dired ediff flycheck helm minibuffer mu4e term which-key))
|
||||
(setq evil-collection-setup-minibuffer t)
|
||||
:config
|
||||
(evil-collection-init))
|
||||
|
||||
(defun nd/dired-move-to-parent-directory ()
|
||||
"Move buffer to parent directory (like 'cd ..')."
|
||||
(interactive)
|
||||
(find-alternate-file ".."))
|
||||
|
||||
(defun nd/dired-xdg-open ()
|
||||
"Open all non-text files in external app using xdg-open.
|
||||
Only regular files are considered."
|
||||
(interactive)
|
||||
(let* ((file-list (seq-filter #'file-regular-p (dired-get-marked-files)))
|
||||
(do-it (if (<= (length file-list) 5)
|
||||
t
|
||||
(y-or-n-p "Open more then 5 files? "))))
|
||||
(when do-it
|
||||
(mapc
|
||||
(lambda (f) (let ((process-connection-type nil))
|
||||
(start-process "" nil "xdg-open" f)))
|
||||
file-list))))
|
||||
|
||||
(defun nd/dired-open-with ()
|
||||
"Open marked non-text files in external app via open-with dialog
|
||||
according to mime types as listed in all available desktop files."
|
||||
(interactive)
|
||||
(let* ((mf (seq-filter #'file-regular-p (dired-get-marked-files)))
|
||||
(qmf (mapcar #'shell-quote-argument mf))
|
||||
(file-mime-list (mapcar (lambda (f) (list f (nd/get-mime-type f))) qmf)))
|
||||
|
||||
(if (= (length file-mime-list) 0)
|
||||
(message "No files selected")
|
||||
|
||||
(let* ((first-pair (car file-mime-list))
|
||||
(last-pairs (cdr file-mime-list))
|
||||
mime-alist file-list)
|
||||
(setq file-list (nth 0 first-pair)
|
||||
mime-alist (nd/get-apps-from-mime (nth 1 first-pair)))
|
||||
;; if multiple files selected, add to the selection list
|
||||
(if last-pairs
|
||||
(progn
|
||||
(setq file-list (string-join (mapcar #'car file-mime-list) " "))
|
||||
(dolist (mime (mapcar (lambda (f) (nth 1 f)) last-pairs))
|
||||
(setq mime-alist (intersection mime-alist
|
||||
(nd/get-apps-from-mime mime)
|
||||
:test #'equal)))))
|
||||
(if (= (length mime-alist) 0)
|
||||
(let* ((ml (delete-dups (mapcan #'cdr file-mime-list)))
|
||||
(mls (string-join ml ", ")))
|
||||
(if (= (length ml) 1)
|
||||
(message (concat "No apps found for mime type: " mls))
|
||||
(message (concat "No common apps found for mime types: " mls))))
|
||||
(helm
|
||||
:sources (helm-build-sync-source "Apps"
|
||||
:candidates mime-alist
|
||||
:action '(("Open" . (lambda (f) (nd/execute-desktop-command f file-list)))))
|
||||
:buffer "*helm open with*"))))))
|
||||
|
||||
(defun nd/dired-sort-by ()
|
||||
"Sort current dired buffer by a list of choices presented in helm menu.
|
||||
Note this assumes there are no sorting switches on `dired-ls'"
|
||||
(interactive)
|
||||
(let ((sort-alist '(("Name" . "")
|
||||
("Date" . "-t")
|
||||
("Size" . "-S")
|
||||
("Extension" . "-X")
|
||||
("Dirs First" . "--group-directories-first"))))
|
||||
(helm
|
||||
:sources
|
||||
(helm-build-sync-source "Switches"
|
||||
:candidates sort-alist
|
||||
:action
|
||||
'(("Sort" . (lambda (s) (dired-sort-other (concat dired-listing-switches " " s))))))
|
||||
:buffer "*helm sort buffer*")))
|
||||
|
||||
(put 'dired-find-alternate-file 'disabled nil)
|
||||
|
||||
(evil-define-key 'normal dired-mode-map
|
||||
"a" 'dired-find-file
|
||||
"za" 'gnus-dired-attach
|
||||
"gs" 'nd/dired-sort-by
|
||||
"^" 'nd/dired-move-to-parent-directory
|
||||
"q" 'nd/kill-current-buffer
|
||||
(kbd "<return>") 'dired-find-alternate-file
|
||||
(kbd "C-<return>") 'nd/dired-xdg-open
|
||||
(kbd "M-<return>") 'nd/dired-open-with)
|
||||
|
||||
(evil-define-key '(normal insert) helm-map
|
||||
(kbd "<tab>") 'helm-execute-persistent-action
|
||||
(kbd "C-<tab>") 'helm-select-action)
|
||||
|
||||
(evil-define-key 'insert term-raw-map
|
||||
(kbd "<escape>") 'nd/term-send-raw-escape
|
||||
(kbd "C-<escape>") 'evil-normal-state)
|
||||
|
||||
(add-hook 'org-mode-hook
|
||||
(lambda ()
|
||||
;; override default TODO timestamp creation to insert the creation date
|
||||
(local-set-key (kbd "M-S-<return>") 'nd/org-insert-todo-heading-inactive-timestamp)
|
||||
|
||||
;; use the hyper keys/vim arrows with the shifters instead of shift/arrows
|
||||
(local-set-key (kbd "H-k") 'org-shiftup)
|
||||
(local-set-key (kbd "H-l") 'org-shiftright)
|
||||
(local-set-key (kbd "H-j") 'org-shiftdown)
|
||||
(local-set-key (kbd "H-h") 'org-shiftleft)
|
||||
|
||||
;; this is just a useful function I made (actually I think I stole)
|
||||
(local-set-key (kbd "C-c C-x x") 'nd/mark-subtree-done)
|
||||
|
||||
;; override default org subtree cloning with something that clones and resets
|
||||
(local-set-key (kbd "C-c C-x c") 'nd/org-clone-subtree-with-time-shift)))
|
||||
|
||||
(add-hook 'org-agenda-mode-hook
|
||||
(lambda ()
|
||||
(local-set-key (kbd "C-c C-c") 'org-agenda-set-tags)
|
||||
(local-set-key (kbd "C-c C-x c") 'nd/org-agenda-clone-subtree-with-time-shift)
|
||||
(local-set-key (kbd "C-c C-x C-b") 'nd/org-agenda-toggle-checkbox)))
|
||||
|
||||
(define-key mu4e-headers-mode-map (kbd "C-c C-l") 'org-store-link)
|
||||
(define-key mu4e-view-mode-map (kbd "C-c C-l") 'org-store-link)
|
||||
|
||||
(define-key dired-mode-map (kbd "C-x g") 'magit)
|
||||
|
||||
(define-key helm-command-prefix (kbd "b") 'helm-bibtex)
|
||||
(define-key helm-command-prefix (kbd "S") 'helm-swoop)
|
||||
(define-key helm-command-prefix (kbd "<f8>") 'helm-resume)
|
||||
|
||||
(define-key helm-command-prefix (kbd "f") 'helm-flyspell-correct)
|
||||
(define-key helm-command-prefix (kbd "F") 'helm-multi-files)
|
||||
|
||||
(define-key outline-minor-mode-map (kbd "<tab>") 'outline-cycle)
|
||||
|
||||
(global-set-key (kbd "<f1>") 'org-agenda)
|
||||
(global-set-key (kbd "<f2>") 'org-capture)
|
||||
(global-set-key (kbd "<f3>") 'cfw:open-org-calendar)
|
||||
(global-set-key (kbd "<f4>") 'org-clock-goto)
|
||||
(global-set-key (kbd "<f5>") 'ansi-term)
|
||||
(global-set-key (kbd "<f8>") 'helm-command-prefix)
|
||||
(global-set-key (kbd "C-<f5>") 'nd/open-urxvt)
|
||||
(global-set-key (kbd "<f12>") 'mu4e)
|
||||
(global-set-key (kbd "C-<f12>") 'global-hl-line-mode)
|
||||
(global-set-key (kbd "S-<f12>") 'display-line-numbers-mode)
|
||||
|
||||
(global-set-key (kbd "C-<SPC>") 'company-complete)
|
||||
|
||||
(global-set-key (kbd "C-c e") 'nd/config-visit)
|
||||
(global-set-key (kbd "C-c r") 'nd/config-reload)
|
||||
(global-set-key (kbd "C-c s") 'sudo-edit)
|
||||
|
||||
(global-set-key (kbd "C-x 2") 'nd/split-and-follow-horizontally)
|
||||
(global-set-key (kbd "C-x 3") 'nd/split-and-follow-vertically)
|
||||
(global-unset-key (kbd "C-x c"))
|
||||
(global-set-key (kbd "C-x k") 'nd/kill-current-buffer)
|
||||
(global-set-key (kbd "C-x C-d") 'helm-bookmarks)
|
||||
(global-set-key (kbd "C-x C-c C-d") 'nd/helm-devices)
|
||||
(global-set-key (kbd "C-x C-f") 'helm-find-files)
|
||||
(global-set-key (kbd "C-x C-b") 'helm-buffers-list)
|
||||
|
||||
(global-set-key (kbd "C-M-S-k") 'nd/close-all-buffers)
|
||||
(global-set-key (kbd "C-M-S-o") 'nd/org-close-all-buffers)
|
||||
(global-set-key (kbd "C-M-S-a") 'org-agenda-kill-all-agenda-buffers)
|
||||
|
||||
(global-set-key (kbd "M-b") 'nd/switch-to-previous-buffer)
|
||||
(global-set-key (kbd "M-o") 'ace-window)
|
||||
(global-set-key (kbd "M-s") 'avy-goto-char)
|
||||
(global-set-key (kbd "M-x") 'helm-M-x)
|
1479
conf/org/org.el
1479
conf/org/org.el
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue