iankelling.org
/
git
/
dot-emacs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
minor fixes
[dot-emacs]
/
my-init.org
diff --git
a/my-init.org
b/my-init.org
index 36593573fb1d0953a1914255fe06a9ef3d25cab5..82215fb26a551d587f81d0dc8aaf47bb9378cc47 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
@@
-470,7
+464,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
+750,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
@@
-1065,7
+1057,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
+1094,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
+1795,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
+2077,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
+2091,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
+2201,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
@@
-3258,6
+3252,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-on)
+
(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
+3601,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
+3651,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)