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
-;(toggle-debug-on-error) ;uncomment to help debug and catch errors
-
+;;(toggle-debug-on-error) ;uncomment to help debug and catch errors
 
 #+end_src
 
@@ -76,19 +75,14 @@ alternate keyboards
 ;; 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)
 
-;; 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
 
 
@@ -470,7 +464,6 @@ if all else fails, edit the abbrev file
 * 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
@@ -757,7 +750,6 @@ seems they are created
 (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
@@ -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-get-mail-command "/a/bin/distro-setup/fsf-get-mail"
+   mu4e-get-mail-command "true"
    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"
-           :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"
@@ -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)
@@ -2084,7 +2077,6 @@ currently makes emacs hang a bunch. dunno why. just using eclipse instead
 * 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)
@@ -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
+;; 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)
@@ -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))
 
-(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
@@ -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)
+(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))
@@ -3603,7 +3601,6 @@ these colors were better for dark theme
 
 #+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)
@@ -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
+
 (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)))
+
 (add-hook 'erc-server-PRIVMSG-functions
           'erc-my-privmsg-sound)