configfiles/emacs/.emacs.d/init.el

632 lines
18 KiB
EmacsLisp
Raw Normal View History

2017-05-15 01:35:31 +02:00
(package-initialize)
(require 'package)
(require 'cl)
2017-05-15 01:35:31 +02:00
2017-05-27 01:10:53 +02:00
;; Nope function
(defun nope ()
(interactive)
(message "Nope!"))
2017-10-14 12:16:36 +02:00
(defun silence ()
(interactive))
2017-05-27 01:10:53 +02:00
;; Helper function
(defun string-ends-with-p (string suffix)
"Return t if STRING ends with SUFFIX."
(and (string-match (rx-to-string `(: ,suffix eos) t)
string)
t))
2017-05-18 00:49:00 +02:00
;; Quote
2017-10-10 19:00:30 +02:00
(setq initial-scratch-message
(concat ";; Simplicity and elegance are unpopular because\n"
";; they require hard work and discipline to achieve\n"
";; and education to be appreciated.\n"
";;\n"
";; - Dijkstra\n\n"))
2017-05-18 00:49:00 +02:00
2017-05-20 01:42:12 +02:00
;; Set frame title
(setq frame-title-format "[%m] %f")
2017-09-25 11:44:50 +02:00
2017-05-18 01:48:46 +02:00
;; Default frame size
(setq initial-frame-alist
2017-10-05 09:31:11 +02:00
'(
(width . 110)
(height . 40)
))
2017-05-18 01:48:46 +02:00
2017-09-23 12:56:54 +02:00
;; Use cperl-mode instead of perl-mode
(defalias 'perl-mode 'cperl-mode)
;; Disable use of abbrev in cperl-mode (what the heck...)
(add-hook 'cperl-mode-hook
(lambda () (setq-local local-abbrev-table nil)))
;; Treat - as part of work in elisp
(add-hook 'emacs-lisp-mode-hook
(lambda () (modify-syntax-entry ?- "w")))
2017-10-13 22:50:50 +02:00
;; Enable backup
2017-10-13 18:04:40 +02:00
(setq make-backup-files t)
(setq
version-control t
backup-by-copying t
backup-directory-alist '(("." . "~/.saves"))
delete-old-versions t
kept-new-versions 6
kept-old-versions 2)
2017-10-13 22:50:50 +02:00
;; Scroll behaviour
(setq
scroll-step 1
scroll-margin 5
scroll-conservatively 9999)
;; Auto-fill in text
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(setq-default fill-column 80)
2017-05-15 01:35:31 +02:00
(push '("melpa" . "http://melpa.milkbox.net/packages/") package-archives)
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(ansi-color-faces-vector
[default default default italic underline success warning error])
2017-05-16 19:24:48 +02:00
'(ansi-color-names-vector
["#242424" "#e5786d" "#95e454" "#cae682" "#8ac6f2" "#333366" "#ccaa8f" "#f6f3e8"])
2017-05-15 01:35:31 +02:00
'(blink-cursor-mode nil)
2017-09-26 17:57:55 +02:00
'(cperl-close-paren-offset -2)
'(cperl-electric-parens nil)
'(cperl-electric-parens-mark nil)
2017-09-26 17:57:55 +02:00
'(cperl-indent-level 2)
'(cperl-indent-parens-as-block t)
'(cperl-under-as-char t)
2017-05-16 19:24:48 +02:00
'(custom-enabled-themes (quote (heroku)))
'(custom-safe-themes
(quote
2017-09-26 17:57:55 +02:00
("4f2ede02b3324c2f788f4e0bad77f7ebc1874eff7971d2a2c9b9724a50fb3f65" default)))
2017-10-03 20:36:55 +02:00
'(dired-listing-switches "-lh")
2017-05-15 01:35:31 +02:00
'(inhibit-startup-screen t)
'(package-selected-packages
(quote
2017-10-12 20:19:26 +02:00
(company delight evil-org org-bullets counsel powerline-evil powerline origami projectile terminal-here shell-pop swiper neotree centered-cursor-mode ivy heroku-theme auto-complete use-package yasnippet evil-surround org evil-magit magit makefile-runner evil))))
2017-05-15 01:35:31 +02:00
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(company-preview ((t (:foreground "black"))))
'(company-preview-common ((t (:inherit company-preview))))
'(company-preview-search ((t (:inherit company-preview))))
'(company-scrollbar-bg ((t (:background "dim gray"))))
'(company-scrollbar-fg ((t (:background "gray"))))
'(company-template-field ((t (:foreground "dark orange"))))
'(company-tooltip ((t (:background "dim gray" :foreground "black"))))
'(company-tooltip-annotation ((t (:foreground "gray19"))))
'(company-tooltip-common ((t (:inherit company-preview))))
'(company-tooltip-selection ((t (:background "dark gray"))))
2017-10-08 16:10:53 +02:00
'(ivy-current-match ((t (:foreground "gold"))))
'(minibuffer-prompt ((t (:foreground "dark orange" :weight bold))))
2017-05-20 18:03:06 +02:00
'(neo-dir-link-face ((t (:foreground "#fce94f"))))
'(neo-expand-btn-face ((t (:foreground "#ffe070"))))
2017-05-22 11:22:46 +02:00
'(neo-root-dir-face ((t (:foreground "#fff3c6" :weight bold))))
2017-10-08 20:52:44 +02:00
'(org-ellipsis ((t (:foreground "LightGoldenrod"))))
2017-05-22 11:22:46 +02:00
'(powerline-active1 ((t (:inherit mode-line))))
'(powerline-active2 ((t (:inherit mode-line))))
'(powerline-evil-emacs-face ((t (:inherit powerline-evil-base-face :background "gray30" :foreground "white"))))
'(powerline-evil-insert-face ((t (:inherit powerline-evil-base-face :background "forest green"))))
'(powerline-evil-motion-face ((t (:inherit powerline-evil-base-face :background "white" :foreground "black"))))
'(powerline-evil-normal-face ((t (:inherit powerline-evil-base-face :background "white" :foreground "grey22"))))
'(powerline-evil-replace-face ((t (:inherit powerline-evil-base-face :background "dark red")))))
2017-05-15 01:35:31 +02:00
2017-10-12 20:19:26 +02:00
;; Disable unnecessary UI
2017-10-12 20:55:58 +02:00
(when window-system
(scroll-bar-mode -1)
2017-10-13 08:37:47 +02:00
(tool-bar-mode -1))
(menu-bar-mode -1)
2017-10-12 20:19:26 +02:00
2017-05-15 14:25:35 +02:00
;; ensure repo cache is up1date
(or (file-exists-p package-user-dir)
(package-refresh-contents))
;; Install use-package
(defun ensure-package-installed (package)
"Ensure packages are installed"
(if (package-installed-p package)
2017-10-05 09:31:11 +02:00
nil
(progn
(package-refresh-contents)
(package-install package))))
(ensure-package-installed 'use-package)
;; *.tex files are Latex-Files
2017-05-20 02:07:33 +02:00
(add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode))
2017-05-20 20:39:29 +02:00
;; Extra Latex keybindings
(defun my/latex-keybindings ()
(define-key latex-mode-map (kbd "<f9>") 'recompile))
(add-hook 'latex-mode-hook 'my/latex-keybindings)
2017-05-19 23:55:58 +02:00
;; show parens
(show-paren-mode t)
2017-05-20 02:07:33 +02:00
;; highlight line
(global-hl-line-mode)
2017-10-12 20:19:26 +02:00
;; No tabs - tabs are evil
(setq indent-tabs-mode nil)
;; No trailing whitespaces - those are even evileler
(setq show-trailing-whitespace t)
2017-05-22 17:49:28 +02:00
2017-10-11 12:54:14 +02:00
(use-package delight
:ensure t
:demand t)
(use-package let-alist
:ensure t
:demand t)
2017-05-22 11:22:46 +02:00
;; powerline
(use-package powerline
:ensure t
:demand t)
(use-package powerline-evil
:ensure t
:demand t
:config
(powerline-evil-vim-color-theme))
2017-05-18 00:49:00 +02:00
;; theme
(use-package heroku-theme
:ensure t)
;; Open .org files in org directory
(defun my/counsel-org-agenda ()
"Open .org files in org directory"
(interactive)
(find-file (concat (file-name-as-directory org-directory)
(ivy-read "Org files: "
(remove-if-not
(lambda (e) (string-ends-with-p e ".org"))
(directory-files org-directory))))))
;; Org-mode
(use-package org
2017-10-06 17:04:17 +02:00
:ensure t
2017-10-08 16:10:53 +02:00
:config
(setq org-directory "~/org")
(setq org-agenda-files "~/org/agenda")
(global-set-key (kbd "<f12>") 'my/counsel-org-agenda)
(setq org-todo-keywords '((sequence "TODO" "WORKING" "BLOCKED" "REVIEW" "|" "ABANDONED" "DONE")))
2017-10-08 16:10:53 +02:00
(setq org-todo-keyword-faces
'(("TODO" . "firebrick2")
("WORKING" . "yellow")
2017-10-08 16:10:53 +02:00
("BLOCKED" . "orange red")
("REVIEW" . "dodger blue")
("ABANDONED" . "slate blue")
2017-10-08 20:52:44 +02:00
("DONE" . "green3")))
(setq org-ellipsis "")
(dolist (face '(org-level-1
org-level-2
org-level-3
org-level-4
org-level-5))
(set-face-attribute face nil :weight 'semi-bold :height 1.0))
(dolist (kv '(("t" . "TODO")
("w" . "WORKING")
("b" . "BLOCKED")
("r" . "REVIEW")
("a" . "ABANDONED")
("d" . "DONE")))
(define-key org-mode-map (kbd (concat "C-c t " (car kv))) `(lambda () (interactive) (org-todo ,(cdr kv)))))
2017-10-08 20:52:44 +02:00
(add-hook 'org-mode-hook
(lambda ()
(linum-mode 0)
(setq-local line-spacing 0.2)
(setq-local fill-column 80)
(auto-fill-mode 1))))
2017-10-08 20:52:44 +02:00
;; Org Bullets
(use-package org-bullets
:demand t
:ensure t
:config
(add-hook 'org-mode-hook
(lambda () (org-bullets-mode 1))))
;; Evil-mode
2017-10-05 21:58:27 +02:00
(defun my/evil-go-back ()
(interactive)
(evil--jump-backward 1))
(defun my/evil-go-forward ()
(interactive)
(evil--jump-forward 1))
(defun my/kill-current-buffer ()
(interactive)
(kill-buffer (current-buffer)))
(defun my/kill-window-or-buffer ()
2017-10-13 22:50:50 +02:00
"Closes current window if not last"
(interactive)
(if (one-window-p (selected-window))
(kill-buffer (current-buffer)) ;; If last window, just kill buffer
(delete-window (selected-window)))) ;; else delete window
2017-10-13 22:50:50 +02:00
(defun my/swiper-thing-at-point (thing)
(interactive)
(swiper (format "\\<%s\\>"
(thing-at-point thing))))
(use-package evil
:ensure t
:demand t
2017-05-18 20:07:04 +02:00
:config
(evil-mode 1)
2017-05-21 20:51:52 +02:00
(setq evil-ex-substitute-global t)
2017-05-22 17:49:28 +02:00
(define-key evil-normal-state-map "/" 'swiper)
(evil-ex-define-cmd "q" 'my/kill-window-or-buffer)
2017-10-13 22:50:50 +02:00
(evil-ex-define-cmd "wq" (lambda ()
(interactive)
(save-buffer)
(my/kill-window-or-buffer)))
2017-10-05 21:58:27 +02:00
(define-key evil-normal-state-map "gb" 'my/evil-go-back)
(define-key evil-normal-state-map "gn" 'my/evil-go-forward)
2017-06-15 14:33:58 +02:00
(define-key evil-motion-state-map [down-mouse-1] 'silence)
(define-key evil-motion-state-map [mouse-1] 'silence)
(define-key evil-insert-state-map (kbd "<up>") 'nope)
(define-key evil-insert-state-map (kbd "<down>") 'nope)
(define-key evil-insert-state-map (kbd "<left>") 'nope)
(define-key evil-insert-state-map (kbd "<right>") 'nope)
(define-key evil-normal-state-map (kbd "#")
(lambda () (interactive) (my/swiper-thing-at-point 'word)))
(define-key evil-normal-state-map (kbd "*")
(lambda () (interactive) (my/swiper-thing-at-point 'symbol)))
2017-06-15 14:33:58 +02:00
(setq-default evil-cross-lines t))
;; Evil-indent-textobject, but better
(use-package evil-indent-plus
:ensure t
:demand t
:config
(evil-indent-plus-default-bindings))
2017-10-08 16:10:53 +02:00
(use-package evil-org
:ensure t
:demand t
:config
(add-hook 'org-mode-hook 'evil-org-mode)
(add-hook 'evil-org-mode-hook
(lambda ()
(evil-org-set-key-theme '(navigation insert shift todo heading)))))
2017-10-06 17:04:17 +02:00
2017-10-12 20:19:26 +02:00
(use-package evil-surround
:ensure t
:demand t
:config
(global-evil-surround-mode t))
(use-package projectile
:ensure t
:demand t
2017-10-11 12:54:14 +02:00
:delight '(:eval (concat " Project[" (projectile-project-name) "]"))
:config
(projectile-global-mode t)
(setq projectile-completion-system 'ivy))
;; Company mode
(use-package company
:ensure t
:demand t
2017-10-12 20:55:58 +02:00
:delight
2017-10-11 12:54:14 +02:00
:config
2017-10-11 23:36:03 +02:00
(global-company-mode)
2017-10-12 10:13:03 +02:00
(setq company-global-modes '(not git-commit-mode))
(setq company-minimum-prefix-length 2)
(setq company-idle-delay 0.5))
;; Auto-Complete
;;(use-package auto-complete
;; :ensure t
;; :demand t
;; :delight
;; :disabled
;; :config
;; (require 'auto-complete-config)
2017-10-12 20:19:26 +02:00
;; (setq ac-ignore-case nil)
;; (setq ac-sources '(ac-source-filename
;; ac-source-functions
;; ac-source-yasnippet
;; ac-source-variables
;; ac-source-symbols
;; ac-source-features
;; ac-source-words-in-all-buffer
;; ac-source-dictionary))
;; (global-auto-complete-mode))
2017-05-16 19:24:48 +02:00
2017-10-04 22:03:01 +02:00
;; folding
(use-package origami
:ensure t
:demand t
:config (progn
(setq origami-show-fold-header t)
(define-key evil-normal-state-map "z" 'origami-toggle-node)
(global-origami-mode)))
2017-05-19 00:16:17 +02:00
;; ivy
2017-10-05 21:58:27 +02:00
(defun my/save-imenu-jump (item)
"WIP: Tells evil-jump to save position before jumping via imenu (or counsel-imenu)"
(evil--jumps-push))
2017-05-18 00:49:00 +02:00
(use-package ivy
:ensure t
:demand t
2017-10-11 12:54:14 +02:00
:delight
2017-10-09 22:06:42 +02:00
:config
(ivy-mode 1)
(setq ivy-use-virtual-buffers t)
(setq ivy-count-format "(%d/%d) ")
(advice-add 'imenu :before 'my/save-imenu-jump)
2017-10-12 20:19:26 +02:00
(define-key ivy-minibuffer-map (kbd "<C-return>") 'ivy-immediate-done)
(set-face-attribute 'ivy-current-match nil :foreground "gold"))
2017-05-18 00:49:00 +02:00
2017-10-05 08:59:33 +02:00
(use-package counsel
:ensure t
:demand t
2017-10-09 22:06:42 +02:00
:config
(global-set-key (kbd "C-c l") 'counsel-locate)
(global-set-key (kbd "C-c m") 'counsel-imenu)
(global-set-key (kbd "C-c _") 'counsel-git-grep))
2017-10-05 08:59:33 +02:00
;; Quickly open external terminal
(use-package terminal-here
:ensure t
:demand t
2017-10-09 22:06:42 +02:00
:config
(global-set-key (kbd "C-x t") #'terminal-here-launch))
2017-05-20 18:03:06 +02:00
;; swiper
(use-package swiper
:ensure t
:bind ("C-s" . swiper))
;; Neotree
(use-package neotree
:ensure t
:bind ("C-x n" . neotree-show)
:config
2017-05-20 01:42:12 +02:00
(setq neo-theme 'ascii)
(evil-define-key 'normal neotree-mode-map (kbd "+") 'neotree-create-node)
(evil-define-key 'normal neotree-mode-map (kbd "g") 'neotree-refresh)
2017-05-20 01:42:12 +02:00
(evil-define-key 'normal neotree-mode-map (kbd "d") 'neotree-delete-node)
(evil-define-key 'normal neotree-mode-map (kbd "c") 'neotree-rename-node)
(evil-define-key 'normal neotree-mode-map (kbd "TAB") 'neotree-enter)
(evil-define-key 'normal neotree-mode-map (kbd "RET") 'neotree-enter)
(evil-define-key 'normal neotree-mode-map (kbd "q") 'neotree-hide)
(evil-define-key 'normal neotree-mode-map (kbd "DEL") 'neotree-select-up-node))
2017-05-19 00:16:17 +02:00
;; Cursor centered
(use-package centered-cursor-mode
:ensure t
:demand t
:disabled
2017-05-19 00:16:17 +02:00
:config (global-centered-cursor-mode))
;; Yasnippet
(use-package yasnippet
2017-05-18 01:48:46 +02:00
:ensure t
:demand t
2017-10-11 12:54:14 +02:00
:delight yas-minor-mode
:config (yas-global-mode 1))
2017-05-15 14:25:35 +02:00
2017-10-10 22:19:25 +02:00
;; avy - Disabled because it makes emacs laggy :(
2017-05-18 00:49:00 +02:00
(use-package avy
:ensure t
:demand t
2017-10-09 22:00:18 +02:00
:bind ("C-c f" . avy-goto-line)
2017-10-10 22:19:25 +02:00
:disabled
2017-10-09 22:00:18 +02:00
:config
(setq avy-keys '(?w ?a ?s ?d ?q ?e))
(dolist (face avy-lead-faces)
(set-face-attribute face nil :background "gray28" :foreground "light blue" :weight 'bold)))
2017-05-18 00:49:00 +02:00
;; Magit
(use-package magit
2017-05-18 00:49:00 +02:00
:ensure t
2017-10-10 15:19:56 +02:00
:bind ("C-x g" . magit-status)
:config
(evil-set-initial-state 'git-commit-mode 'insert))
2017-05-15 14:25:35 +02:00
2017-10-11 12:54:14 +02:00
;; Undo-Tree
(use-package undo-tree
2017-10-14 12:56:33 +02:00
:delight
:config
(global-undo-tree-mode)
(add-hook 'global-undo-tree-mode-hook
(lambda () (linum-mode -1))))
2017-10-11 12:54:14 +02:00
;; Easy terminal
(setq my/default-shell (or (executable-find "zsh") (executable-find "bash")))
2017-05-15 18:22:09 +02:00
;;(use-package shell-pop
;; :ensure t
;; :bind ("C-x t" . shell-pop)
;; :config
;; (setq-default shell-pop-term-shell my/default-shell))
2017-05-20 01:42:12 +02:00
;; tabbing (doesn't really work yet)
(setq-default tab-width 4)
(setq-default LateX-indent-level 4)
;; (add-hook 'latex-mode-hook
;; (lambda () (setq indent-tabs-mode t)))
2017-05-16 08:12:04 +02:00
2017-05-18 20:07:04 +02:00
;; Activate line numbers
(global-linum-mode t)
;; compilation buffer
; Set buffer scrolling
(setq compilation-scroll-output 'first-error)
(setq compilation-window-height 10)
;(defun my/compilation-bury-buffer-without-error (buffer string)
; (cond ((string-match "finished" string)
2017-10-05 09:31:11 +02:00
; (message "Build maybe successful: closing window.")
; (run-with-timer 3 nil
; 'delete-window
; (get-buffer-window buffer t)))
; (t (message "Compilation exited abnormaly: %s" string))))
;
;(setq compilation-finish-function 'my/compilation-bury-buffer-without-error)
2017-10-05 08:59:21 +02:00
;(defun my/setup-compilation-window ()
; (when (not (get-buffer-window "*compilation*"))
; (save-selected-window
; (save-excursion
; (let* ((w (split-window-vertically))
; (h (window-height w)))
; (select-window w)
; (switch-to-buffer "*compilation*")
; (shrink-window (- h compilation-window-height)))))))
;(add-hook 'compilation-mode-hook 'my/setup-compilation-window)
2017-05-18 20:07:04 +02:00
2017-05-15 14:25:35 +02:00
;; Window movement
2017-05-20 01:42:12 +02:00
; Old keys
2017-05-20 18:03:06 +02:00
(global-set-key (kbd "C-x <up>") 'windmove-up)
(global-set-key (kbd "C-x <down>") 'windmove-down)
(global-set-key (kbd "C-x <left>") 'windmove-left)
(global-set-key (kbd "C-x <right>") 'windmove-right)
2017-05-20 01:42:12 +02:00
; New keys
2017-10-06 17:04:17 +02:00
; (global-set-key (kbd "<M-up>") 'windmove-up)
; (global-set-key (kbd "<M-down>") 'windmove-down)
; (global-set-key (kbd "<M-left>") 'windmove-left)
; (global-set-key (kbd "<M-right>") 'windmove-right)
2017-05-15 14:25:35 +02:00
2017-09-26 17:57:55 +02:00
; Whitespace mode toggle
(global-set-key (kbd "C-c C-l") 'whitespace-mode)
2017-05-15 14:25:35 +02:00
(defun cycle-window ()
"cycles windows"
(interactive)
(select-window (next-window)))
(global-set-key (kbd "<C-tab>") 'cycle-window)
2017-05-25 16:47:41 +02:00
;; Exit prompt
2017-10-05 09:31:11 +02:00
;; (defun foreach (alist func)
;; (while alist
;; (progn
;; (funcall func (car alist))
;; (setq alist (cdr alist)))))
2017-05-25 16:47:41 +02:00
2017-10-12 20:19:26 +02:00
(defun check-for-open-buffers ()
(interactive)
(or (dolist
(buffer (buffer-list))
(cond
((string-match "^\\*.*\\*$" (buffer-name buffer))
nil)
((null (buffer-modified-p buffer))
nil)
(t
(yes-or-no-p (format "Buffer %s is open. Exit anyway?" (buffer-name buffer))))))))
2017-10-05 08:59:21 +02:00
;; Latex german
(quail-define-package "latex-german" "UTF-8" "LaGe" t
2017-10-05 09:31:11 +02:00
"Transforms umlauts to the better latex notation.
ä -> \"a
ö -> \"o
ü -> \"u
Ä -> \"A
Ö -> \"O
Ü -> \"U
ß -> \"s"
2017-10-05 09:31:11 +02:00
nil t nil nil nil nil nil nil nil nil t)
(quail-define-rules
("ä" ["\"a"])
("ö" ["\"o"])
("ü" ["\"u"])
("Ä" ["\"A"])
("Ö" ["\"O"])
("Ü" ["\"U"])
("ß" ["\"s"])
)
(add-hook 'latex-mode-hook (lambda ()
2017-10-05 09:31:11 +02:00
(set-input-method "latex-german")
(local-set-key "\"" 'self-insert-command)))
2017-05-15 18:22:09 +02:00
2017-09-29 17:53:40 +02:00
;; Treat _ as part of word in some modes
(defun treat-underscore ()
(modify-syntax-entry ?_ "w"))
(add-hook 'prog-mode-hook 'treat-underscore)
2017-09-29 17:53:40 +02:00
2017-05-15 18:22:09 +02:00
;; Split windows horizontally preferred
(setq split-height-threshold 6)
(setq split-width-threshold 20)
;; Overlay windows (What does it do?)
2017-05-15 14:25:35 +02:00
(add-to-list 'display-buffer-alist
2017-10-05 09:31:11 +02:00
'("*Apropos*" display-buffer-same-window))
2017-05-15 14:25:35 +02:00
(add-to-list 'display-buffer-alist
2017-10-05 09:31:11 +02:00
'("*Help*" display-buffer-in-side-window))
2017-10-05 21:58:27 +02:00
(add-to-list 'display-buffer-alist
'("*evil-jumps*" display-buffer-in-side-window))
(add-to-list 'display-buffer-alist
2017-10-05 09:31:11 +02:00
'("*compilation*" (display-buffer-reuse-window display-buffer-in-side-window) (side . bottom) (size . 0.2)))
;; Change all prompts to y or n
(fset 'yes-or-no-p 'y-or-n-p)
2017-05-19 23:55:58 +02:00
2017-10-06 08:36:41 +02:00
;; Insert date time, german format
2017-05-20 01:42:12 +02:00
(defun datetime-german ()
(interactive)
(insert (format-time-string "%d.%m.%Y %H:%M")))
2017-10-06 08:36:41 +02:00
;; Insert time, german format
(defun time-german ()
(interactive)
(insert (format-time-string "%H:%M")))
(global-set-key (kbd "C-c C-d") 'time-german)
2017-05-20 01:42:12 +02:00
2017-10-10 15:19:56 +02:00
(defun fefe ()
(interactive)
(eww "https://blog.fefe.de"))
2017-05-19 23:55:58 +02:00
;; Comment fun
;(defun extend-comment ()
; (interactive)
; (if (looking-back "//" (line-beginning-position))
2017-10-05 09:31:11 +02:00
; (progn
; (newline-and-indent)
; (insert "Hallo Welt"))
; (newline-and-indent)))
2017-05-19 23:55:58 +02:00
;; Show in binary and decimal
;(defun hex-popup ()
; (interactive)
; (let (hexStr p1 p2)
2017-10-05 09:31:11 +02:00
; (save-excursion
; (search-backward-regexp "[^0-9A-Fa-f]" nil t)
; (forward-char)
; (setq p1 (point))
; (search-forward-regexp "[^0-9A-Fa-f]" nil t)
; (backward-char)
; (setq p2 (point)))
; (setq hexStr (buffer-substring-no-properties p1 p2))
; (message "The hex number is: '%s' '%d' '%d'" hexStr p1 p2)))
2017-10-11 12:54:14 +02:00
;; Load local emacs settings
(let ((local-config (concat user-emacs-directory "init.local")))
(when (file-exists-p (concat local-config ".el"))
(load local-config)))