iankelling.org
/
git
/
dot-emacs
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cf90c2f
)
formatting mostly
author
Ian Kelling
<ian@iankelling.org>
Thu, 19 Jan 2017 18:29:17 +0000
(10:29 -0800)
committer
Ian Kelling
<ian@iankelling.org>
Thu, 19 Jan 2017 18:29:17 +0000
(10:29 -0800)
my-init.org
patch
|
blob
|
history
diff --git
a/my-init.org
b/my-init.org
index e716e33a00af836a1d2b19340ead7a931e6e2261..65808dab5112fb9db39fa54bfc6d69d1ae1f0638 100644
(file)
--- a/
my-init.org
+++ b/
my-init.org
@@
-1,7
+1,7
@@
#+TITLE: My Personal Init Customization
#+OPTIONS: toc:nil num:nil ^:nil
* copyright
#+TITLE: My Personal Init Customization
#+OPTIONS: toc:nil num:nil ^:nil
* copyright
-# Copyright (C) 201
6
Ian Kelling
+# Copyright (C) 201
7
Ian Kelling
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@
-161,6
+161,47
@@
If it is different, emacs will give a message about recovering it when you open
+* TODO keybinds to remember
+
+keys worth memorizing
+
+c-2
+c-m-3
+
+s-return
+
+in isearch, C-o
+isearch-occur
+
+org, C-c / t
+make just todo items visible
+
+C-mouse-1
+buffer list menu
+
+C-up/down
+move up/down fast
+
+M-right-scroll
+forward/back sexp
+
+C-M-right-scroll
+scroll
+
+C-S-scroll
+change text size
+
+how to control+left scroll on kinesis
+right shift = control
+
+C-left-scroll
+forward/backward word
+
+C-M-d
+swap buffers across windows
+
+
+
* TODO learn some more ivy mode stuff
* TODO declarative package installations,
with documentation.
* TODO learn some more ivy mode stuff
* TODO declarative package installations,
with documentation.
@@
-725,53
+766,58
@@
interesting light themes
#+begin_src emacs-lisp
#+begin_src emacs-lisp
- (defun override-theme (arg)
- (interactive)
- (while custom-enabled-themes
- (disable-theme (car custom-enabled-themes)))
- (load-theme arg t))
- (setq color-theme-is-global t)
-
- (defun toggle-night ()
- (interactive)
- (if (equal (car custom-enabled-themes) 'naquadah)
- (override-theme 'leuven)
- (override-theme 'naquadah)))
-
+(defun override-theme (arg)
+ (interactive)
+ (while custom-enabled-themes
+ (disable-theme (car custom-enabled-themes)))
+ (load-theme arg t))
+(setq color-theme-is-global t)
- (override-theme 'leuven) ;; org mode features, with monitor darkened. part of org-mode i think
+(defun toggle-night ()
+ (interactive)
+ (cond ((equal (car custom-enabled-themes) 'naquadah)
+ ;; background off white to be better on the eyes. took this
+ ;; color from gitweb.
+ (custom-set-faces `(default ((t (:background "#F6F6F0")))))
+ (override-theme 'leuven))
+ (t
+ ;; revert previous background change
+ (custom-set-faces `(default ((t (:background nil)))))
+ (override-theme 'naquadah))))
+(custom-set-faces `(default ((t (:background "#F6F6F0")))))
+(override-theme 'leuven) ;; org mode features, with monitor darkened. part of org-mode i think
-
;; disable color thing with this:
-
;;(disable-theme (car custom-enabled-themes))
+;; disable color thing with this:
+;;(disable-theme (car custom-enabled-themes))
-
;; decent dark themes
+;; decent dark themes
-
;;(override-theme 'tangotango)
-
;;(override-theme 'deeper-blue)
-
;;(override-theme 'tango-dark)
-
;;(override-theme 'tsdh-dark)
+;;(override-theme 'tangotango)
+;;(override-theme 'deeper-blue)
+;;(override-theme 'tango-dark)
+;;(override-theme 'tsdh-dark)
-
;;(override-theme 'heroku)
-
;;(override-theme 'inkpot) ;; part of inkpot-theme package
-
;;(override-theme 'naquadah) ; org mode features, part of naquadah-theme package
-
;;(override-theme 'spolsky) ;; part of sublime-themes package
-
;;(override-theme 'twilight-anti-bright) ;; from twilight-anti-bright-theme package
+;;(override-theme 'heroku)
+;;(override-theme 'inkpot) ;; part of inkpot-theme package
+;;(override-theme 'naquadah) ; org mode features, part of naquadah-theme package
+;;(override-theme 'spolsky) ;; part of sublime-themes package
+;;(override-theme 'twilight-anti-bright) ;; from twilight-anti-bright-theme package
-
;; interesting but not usable colors
-
;;(override-theme 'cyberpunk) ; cool org mode features, from cyberpunk-theme package
-
;;(override-theme 'wombat) ; cursor not visible enough. from a wombat package, not sure which
-
;;(override-theme 'misterioso) ; cursor not visible enough
+;; interesting but not usable colors
+;;(override-theme 'cyberpunk) ; cool org mode features, from cyberpunk-theme package
+;;(override-theme 'wombat) ; cursor not visible enough. from a wombat package, not sure which
+;;(override-theme 'misterioso) ; cursor not visible enough
-
;;decent light themes
-
;;(override-theme 'alect-light) ; theres a -alt version, don't see a dif. could use this without dimming. from alect-something package
-
;;(override-theme 'occidental) ; from occidental-theme package
+;;decent light themes
+;;(override-theme 'alect-light) ; theres a -alt version, don't see a dif. could use this without dimming. from alect-something package
+;;(override-theme 'occidental) ; from occidental-theme package
-
;;color-theme is deprecated in emacs 24.
+;;color-theme is deprecated in emacs 24.
;; theme packages i tried then removed:
;; ignored ones that didn't use the new theme engine
;; theme packages i tried then removed:
;; ignored ones that didn't use the new theme engine
@@
-4914,16
+4960,15
@@
calc-dispatch
*** C-9]
delete-window-or-exit
#+begin_src emacs-lisp
*** C-9]
delete-window-or-exit
#+begin_src emacs-lisp
- (global-set-key (kbd "C-9") 'delete-window-or-exit)
-
- (defun delete-window-or-exit ()
- "Delete window or exit emacs."
- (interactive)
- (if (condition-case nil (delete-window) (error t))
- (if (or (boundp 'server-process) (> (length (frame-list)) 1))
- (delete-frame)
- (save-buffers-kill-terminal t))))
+(global-set-key (kbd "C-9") 'delete-window-or-exit)
+(defun delete-window-or-exit ()
+ "Delete window or exit emacs."
+ (interactive)
+ (if (condition-case nil (delete-window) (error t))
+ (if (or (boundp 'server-process) (> (length (frame-list)) 1))
+ (progn (basic-save-buffer) (delete-frame))
+ (save-buffers-kill-terminal t))))
#+end_src
*** M-9]
kill-buffer
#+end_src
*** M-9]
kill-buffer
@@
-4941,7
+4986,7
@@
I did a grep of the emacs sources, but couldn't find anything.
*** C-M-9]
end server edit
*** C-M-9]
end server edit
- ,save & kill buffer it was opened externally via emacsclient
+ ,save & kill buffer i
f i
t was opened externally via emacsclient
#+begin_src emacs-lisp
(defun server-edit-save ()
#+begin_src emacs-lisp
(defun server-edit-save ()
@@
-5438,7
+5483,7
@@
save-buffers-kill-emacs
(interactive)
(beginning-of-line)
(let ((beg (point)))
(interactive)
(beginning-of-line)
(let ((beg (point)))
- (insert "Copyright (C) 201
6
Ian Kelling\nThis program is under GPL v. 3 or later, see <http://www.gnu.org/licenses/>")
+ (insert "Copyright (C) 201
7
Ian Kelling\nThis program is under GPL v. 3 or later, see <http://www.gnu.org/licenses/>")
(comment-region beg (point))))
(global-set-key (kbd "C-M-6") 'insert-small-copyright)
(comment-region beg (point))))
(global-set-key (kbd "C-M-6") 'insert-small-copyright)
@@
-5453,7
+5498,7
@@
insert-full-copyright
(interactive)
(beginning-of-line)
(let ((beg (point)))
(interactive)
(beginning-of-line)
(let ((beg (point)))
- (insert "Copyright (C) 201
6
Ian Kelling\n")
+ (insert "Copyright (C) 201
7
Ian Kelling\n")
(insert "\n")
(insert "This program is free software: you can redistribute it and/or modify\n")
(insert "it under the terms of the GNU General Public License as published by\n")
(insert "\n")
(insert "This program is free software: you can redistribute it and/or modify\n")
(insert "it under the terms of the GNU General Public License as published by\n")
@@
-5489,7
+5534,7
@@
insert-apache
(interactive)
(beginning-of-line)
(let ((beg (point)))
(interactive)
(beginning-of-line)
(let ((beg (point)))
- (insert "Copyright (C) 201
6
Ian Kelling\n")
+ (insert "Copyright (C) 201
7
Ian Kelling\n")
(insert "\n")
(insert "Licensed under the Apache License, Version 2.0 (the \"License\");\n")
(insert "you may not use this file except in compliance with the License.\n")
(insert "\n")
(insert "Licensed under the Apache License, Version 2.0 (the \"License\");\n")
(insert "you may not use this file except in compliance with the License.\n")