iankelling.org
/
git
/
dot-emacs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
misc minor fixes
[dot-emacs]
/
my-init.org
diff --git
a/my-init.org
b/my-init.org
index 36593573fb1d0953a1914255fe06a9ef3d25cab5..35c03baa5581b390d29b3b18110e1cf38ffb4b04 100644
(file)
--- a/
my-init.org
+++ b/
my-init.org
@@
-19,8
+19,7
@@
* things that should be at the beginning
#+begin_src emacs-lisp
;; todo, evaluating this manually disables debug on error instead of toggling it
* things that should be at the beginning
#+begin_src emacs-lisp
;; todo, evaluating this manually disables debug on error instead of toggling it
-;(toggle-debug-on-error) ;uncomment to help debug and catch errors
-
+;;(toggle-debug-on-error) ;uncomment to help debug and catch errors
#+end_src
#+end_src
@@
-76,19
+75,14
@@
alternate keyboards
;; little kit to help remove a down server
;; (setq package-archives nil)
;; little kit to help remove a down server
;; (setq package-archives nil)
-(add-to-list 'package-archives
- '("marmalade" .
- "http://marmalade-repo.org/packages/"))
+
;;
(add-to-list 'package-archives
+
;;
'("marmalade" .
+
;;
"http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/") t)
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
(add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/") t)
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
-;; if this is a new machine/config, get package list
-;; not sure why we need it, but it is recommended in starter kit,
-;; and doesn't seem like a bad thing
-(unless package-archive-contents (package-refresh-contents))
-
#+end_src
#+end_src
@@
-160,6
+154,8
@@
find a recently dated file in ~/.emacs.d/auto-save-list/, and see the files list
If it is different, emacs will give a message about recovering it when you open it.
If it is different, emacs will give a message about recovering it when you open it.
+* TODO try out which key mode
+* TODO make installed emacs package declarative
* TODO see if there are more cool functions in sh-script
like sh-cd-here, and bind that to a key
* TODO assign a key to append-next-kill
* TODO see if there are more cool functions in sh-script
like sh-cd-here, and bind that to a key
* TODO assign a key to append-next-kill
@@
-470,7
+466,6
@@
if all else fails, edit the abbrev file
* auto-complete readline-complete
#+begin_src emacs-lisp
* auto-complete readline-complete
#+begin_src emacs-lisp
-(add-to-list 'load-path "~/.emacs.d/src/readline-complete")
(require 'readline-complete)
;; not sure how I made these, but I deleted, and
;; it would be nice to make them again sometime
(require 'readline-complete)
;; not sure how I made these, but I deleted, and
;; it would be nice to make them again sometime
@@
-757,7
+752,6
@@
seems they are created
(add-hook 'bbdb-mode-hook
(lambda () (define-key bbdb-mode-map (kbd "C-k") nil)))
(add-hook 'bbdb-mode-hook
(lambda () (define-key bbdb-mode-map (kbd "C-k") nil)))
-(add-to-list 'load-path "~/.emacs.d/src/bbdb-csv-import")
(require 'bbdb-csv-import)
#+end_src
(require 'bbdb-csv-import)
#+end_src
@@
-952,6
+946,7
@@
has a list of folders which i'd rather not publish, so it's config is archived.
#+begin_src emacs-lisp
;;(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
#+begin_src emacs-lisp
;;(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
+;;(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")
(require 'mu4e)
;; (setq mu4e-headers-results-limit 2000)
(require 'mu4e)
;; (setq mu4e-headers-results-limit 2000)
@@
-1065,7
+1060,7
@@
and Ian Kelling as the name"
mu4e-maildir "/nocow/user/fsfmd"
mu4e-refile-folder "/Spam"
mu4e-index-lazy-check nil
mu4e-maildir "/nocow/user/fsfmd"
mu4e-refile-folder "/Spam"
mu4e-index-lazy-check nil
- mu4e-get-mail-command "
/a/bin/distro-setup/fsf-get-mail
"
+ mu4e-get-mail-command "
true
"
user-mail-address "iank@fsf.org"
mail-signature "
user-mail-address "iank@fsf.org"
mail-signature "
@@
-1102,7
+1097,9
@@
https://fsf.org | https://gnu.org
(setq mu4e-bookmarks
`( ,(make-mu4e-bookmark
:name "Unread messages"
(setq mu4e-bookmarks
`( ,(make-mu4e-bookmark
:name "Unread messages"
- :query "flag:unread AND NOT flag:trashed AND NOT maildir:/Junk AND NOT maildir:/fwfw AND NOT maildir:/log"
+ ;; old less restrictive unread, for adapting in the future:
+ ;; flag:unread AND NOT flag:trashed AND NOT maildir:/Junk AND NOT maildir:/fwfw AND NOT maildir:/log
+ :query "flag:unread maildir:/INBOX"
:key ?u)
,(make-mu4e-bookmark
:name "Today's messages"
:key ?u)
,(make-mu4e-bookmark
:name "Today's messages"
@@
-1801,7
+1798,6
@@
make all
-(add-to-list 'load-path "~/.emacs.d/src/ghci-completion")
;; from the package readme for ghci-completion
(require 'ghci-completion)
(add-hook 'inferior-haskell-mode-hook 'turn-on-ghci-completion)
;; from the package readme for ghci-completion
(require 'ghci-completion)
(add-hook 'inferior-haskell-mode-hook 'turn-on-ghci-completion)
@@
-2084,7
+2080,6
@@
currently makes emacs hang a bunch. dunno why. just using eclipse instead
* mediawiki
#+begin_src emacs-lisp
* mediawiki
#+begin_src emacs-lisp
-(add-to-list 'load-path "~/.emacs.d/src/mediawiki-el")
(eval-after-load "mediawiki"
'(progn
(remove-hook 'outline-minor-mode-hook 'mediawiki-outline-magic-keys)
(eval-after-load "mediawiki"
'(progn
(remove-hook 'outline-minor-mode-hook 'mediawiki-outline-magic-keys)
@@
-2099,6
+2094,9
@@
currently makes emacs hang a bunch. dunno why. just using eclipse instead
#+end_src
* modes with little configuration needed
#+begin_src emacs-lisp
#+end_src
* modes with little configuration needed
#+begin_src emacs-lisp
+;; busted:
+ ;;(require 'csv-mode)
+;;(add-to-list 'auto-mode-alist '("\\.[Cc][Ss][Vv]\\'" . csv-mode))
(require 'outshine)
(add-hook 'outline-minor-mode-hook 'outshine-hook-function)
(require 'outshine)
(add-hook 'outline-minor-mode-hook 'outshine-hook-function)
@@
-2206,7
+2204,6
@@
org-caldav-inbox "/p/cal.org")
;; here we use the standard sendmail interface, which I use postfix for
(setq send-mail-function (quote sendmail-send-it))
;; here we use the standard sendmail interface, which I use postfix for
(setq send-mail-function (quote sendmail-send-it))
-(add-to-list 'load-path "~/.emacs.d/src/spray")
(require 'spray)
(global-set-key (kbd "C-M-w") 'spray-mode)
;; remember, h/l = move. f/s = faster/slower, space = pause, all others quit
(require 'spray)
(global-set-key (kbd "C-M-w") 'spray-mode)
;; remember, h/l = move. f/s = faster/slower, space = pause, all others quit
@@
-2564,8
+2561,8
@@
Go to the next directory based on where the cursor is."
(defun sudo-edit (&optional arg)
(interactive "P")
(if (or arg (not buffer-file-name))
(defun sudo-edit (&optional arg)
(interactive "P")
(if (or arg (not buffer-file-name))
- (find-file (concat "/sudo:
root@localhost
:" (ido-read-file-name "File: ")))
- (find-alternate-file (concat "/sudo:
root@localhost
:" buffer-file-name))))
+ (find-file (concat "/sudo::" (ido-read-file-name "File: ")))
+ (find-alternate-file (concat "/sudo::" buffer-file-name))))
@@
-3258,6
+3255,10
@@
clicking on info links
(add-hook 'fundamental-mode-hook 'variable-pitch-on)
(add-hook 'org-mode-hook 'variable-pitch-on)
(add-hook 'text-mode-hook 'variable-pitch-on)
(add-hook 'fundamental-mode-hook 'variable-pitch-on)
(add-hook 'org-mode-hook 'variable-pitch-on)
(add-hook 'text-mode-hook 'variable-pitch-on)
+(defun variable-pitch-off ()
+ (variable-pitch-mode 0))
+(add-hook 'yaml-mode-hook 'variable-pitch-off)
+
(set-face-attribute 'org-table nil :family (face-attribute 'fixed-pitch :family))
(set-face-attribute 'org-code nil :family (face-attribute 'fixed-pitch :family))
(set-face-attribute 'org-table nil :family (face-attribute 'fixed-pitch :family))
(set-face-attribute 'org-code nil :family (face-attribute 'fixed-pitch :family))
@@
-3603,7
+3604,6
@@
these colors were better for dark theme
#+begin_src emacs-lisp
#+begin_src emacs-lisp
-(add-to-list 'load-path "~/.emacs.d/src/visible-mark")
;; since it is not easy to change the mark overlay priority, I change this one.
(setq show-paren-priority 999)
;; since it is not easy to change the mark overlay priority, I change this one.
(setq show-paren-priority 999)
@@
-3654,14
+3654,15
@@
these colors were better for dark theme
(when (string= (system-name) "tp") (setq vol 40))
(start-process-shell-command "ignoreme" nil (format "mpv --no-terminal --vo=null --volume=%d /a/bin/data/bird.mp3" vol)))
;; from https://www.emacswiki.org/emacs/ErcSound
(when (string= (system-name) "tp") (setq vol 40))
(start-process-shell-command "ignoreme" nil (format "mpv --no-terminal --vo=null --volume=%d /a/bin/data/bird.mp3" vol)))
;; from https://www.emacswiki.org/emacs/ErcSound
+
(defun erc-my-privmsg-sound (proc parsed)
(let* ((tgt (car (erc-response.command-args parsed)))
(privp (erc-current-nick-p tgt)))
(and
privp (chirp)
(defun erc-my-privmsg-sound (proc parsed)
(let* ((tgt (car (erc-response.command-args parsed)))
(privp (erc-current-nick-p tgt)))
(and
privp (chirp)
-
;; We must return nil. See help for `erc-server-PRIVMSG-functions'
nil)))
;; We must return nil. See help for `erc-server-PRIVMSG-functions'
nil)))
+
(add-hook 'erc-server-PRIVMSG-functions
'erc-my-privmsg-sound)
(add-hook 'erc-server-PRIVMSG-functions
'erc-my-privmsg-sound)