diff --git a/custom.el b/custom.el index e9e1a68..42db3a8 100644 --- a/custom.el +++ b/custom.el @@ -17,12 +17,13 @@ (set-mark (point)) (move-end-of-line nil)) -;; Toggle between indenting with tabs or spaces. (defun fez/toggle-indent () + "Toggle between indenting with tabs or spaces." (interactive) (setq-default indent-tabs-mode (not indent-tabs-mode))) (defun fez/current-line-empty-p () + "Checks if the current line is empty or not." (save-excursion (beginning-of-line) (looking-at-p "[[:space:]]*$"))) @@ -45,15 +46,22 @@ (transient-mark-mode)) (defun fez/insert-keybind () + "Prompts the user for a key combination like C-h k does, then inserts that key combination." (interactive) (insert (concat "(kbd \"" (key-description (read-key-sequence-vector "Key sequence: ")) "\")"))) (defun fez/time-stamp () + "Insert the current date." (interactive) (shell-command "LANG=nb_NO.UTF-8 date +%d-%m-%Y" t)) +(defun fez/kill-all-buffers () + "Kill all buffers other than the currently active one." + (interactive) + (mapc #'kill-buffer (delete (current-buffer) (buffer-list)))) + ;; Eshell convinience commands. (defalias 'open 'find-file-other-window) (defalias 'clean 'eshell/clear-scrollback) diff --git a/packages.el b/packages.el index bc9895f..6e8f3d8 100644 --- a/packages.el +++ b/packages.el @@ -88,7 +88,8 @@ (use-package multiple-cursors :ensure t :config - (global-set-key (kbd "C->") 'mc/mark-next-like-this)) + (global-set-key (kbd "C->") 'mc/mark-next-like-this) + (setq mc/always-run-for-all t)) ;; Jump to definitions and files with M-. (use-package dumb-jump @@ -127,6 +128,7 @@ (use-package elpher :ensure t) +;; org-mode (use-package org :ensure t :config