Skip to content
Browse files

Various and sundry updates

  • Loading branch information...
1 parent e71ff3d commit 648298f0956b3b79ce027c3c7f1a544358944f5e @jwiegley committed
Showing with 43 additions and 28 deletions.
  1. +19 −0 abbrevs
  2. +2 −0 dot-org.el
  3. +3 −3 gnus-settings.el
  4. +11 −13 init.el
  5. +1 −3 lisp/esh-toggle.el
  6. +1 −1 lisp/haskell-config
  7. +1 −1 override/tramp
  8. +2 −4 settings.el
  9. +1 −1 site-lisp/haskell-mode
  10. +1 −0 site-lisp/hsenv.el
  11. +1 −1 snippets/gud-mode/cree
  12. +0 −1 snippets/org-mode/assem
View
19 abbrevs
@@ -43,14 +43,31 @@
(define-abbrev-table 'dig-mode-abbrev-table '())
+(define-abbrev-table 'dvc-info-buffer-mode-abbrev-table '())
+
+(define-abbrev-table 'dvc-log-buffer-mode-abbrev-table '())
+
+(define-abbrev-table 'dvc-process-buffer-mode-abbrev-table '())
+
(define-abbrev-table 'edebug-eval-mode-abbrev-table '())
(define-abbrev-table 'emacs-lisp-mode-abbrev-table '())
+(define-abbrev-table 'erc-dcc-chat-mode-abbrev-table '())
+
+(define-abbrev-table 'erc-list-menu-mode-abbrev-table '())
+
+(define-abbrev-table 'erc-mode-abbrev-table
+ '(
+ ("bottom" "⊥" nil 3)
+ ))
+
(define-abbrev-table 'eshell-mode-abbrev-table '())
(define-abbrev-table 'fundamental-mode-abbrev-table '())
+(define-abbrev-table 'gist-list-mode-abbrev-table '())
+
(define-abbrev-table 'global-abbrev-table
'(
("Abdul" "`Abdu'l-Bahá" nil 0)
@@ -130,6 +147,8 @@
(define-abbrev-table 'sr-virtual-mode-abbrev-table '())
+(define-abbrev-table 'tabulated-list-mode-abbrev-table '())
+
(define-abbrev-table 'text-mode-abbrev-table '())
(define-abbrev-table 'vc-git-log-view-mode-abbrev-table '())
View
2 dot-org.el
@@ -24,6 +24,8 @@
;;(load "org-log" t)
+(defun org-link-to-named-task ()
+ (interactive))
(fset 'org-link-to-named-task
[?\C- ?\C- ?\C-e ?\C-w ?\C-s ?\M-y ?\C-a ?\M-f ?\C-c ?S ?\C-u ?\C- ?\C-c ?\C-l return return ?\C-x ?\C-x ?\C- ?\C- ])
View
6 gnus-settings.el
@@ -15,7 +15,7 @@
'(gnus-alias-default-identity "Gmail")
'(gnus-alias-identity-alist (quote (("Gmail" "" "\"John Wiegley\" <jwiegley@gmail.com>" "" nil "" "") ("BoostPro" "" "\"John Wiegley\" <johnw@boostpro.com>" "BoostPro Computing" nil "" "John Wiegley
BoostPro Computing Software Development Training
-http://www.boostpro.com Clang/LLVM/EDG Compilers C++ Boost") ("NewArtisans" "" "\"John Wiegley\" <johnw@newartisans.com>" "New Artisans LLC" nil "" "") ("Assembly" "" "\"John Wiegley\" <johnw@newartisans.com>" "Spiritual Assembly of the Bahá'ís of Peoria" nil "" "Spiritual Assembly of the Bahá'ís of Peoria
+http://www.boostpro.com Clang/LLVM/EDG Compilers C++ Boost") ("NewArtisans" "" "\"John Wiegley\" <johnw@newartisans.com>" "New Artisans LLC" nil "" "") ("Assembly" "" "\"John Wiegley\" <jwiegley@gmail.com>" "Spiritual Assembly of the Bahá'ís of Peoria" nil "" "Spiritual Assembly of the Bahá'ís of Peoria
John Wiegley, Chairperson"))))
'(gnus-alias-identity-rules (quote (("Ledger Mailing List" ("To" "ledger-cli@googlegroups\\.com" current) "NewArtisans") ("Emacs Mailing Lists" ("To" "emacs" current) "NewArtisans") ("Emacs Newsgroups" ("Newsgroups" "emacs" current) "NewArtisans") ("BoostPro Mail" ("From" "@boostpro\\.com" current) "BoostPro") ("BoostPro Clients" ("To" "@\\(ti\\)\\.com" current) "BoostPro") ("BoostPro Clients (Copied)" ("Cc" "@\\(ti\\)\\.com" current) "BoostPro") ("C++, LLVM, Boost, and Clang Groups" ("Newsgroups" "\\(c\\+\\+\\|clang\\|llvm\\|[Bb]oost\\|[Rr]yppl\\)" current) "BoostPro") ("C++, LLVM, Boost, and Clang Mailing Lists" ("To" "\\(c\\+\\+\\|clang\\|llvm\\|[Bb]oost\\|[Rr]yppl\\|llvm\\|cfe\\)" current) "BoostPro"))))
'(gnus-alias-override-user-mail-address t)
@@ -47,8 +47,8 @@ John Wiegley, Chairperson"))))
'(gnus-message-archive-group (quote ((format-time-string "sent.%Y"))))
'(gnus-message-replyencrypt nil)
'(gnus-novice-user nil)
- '(gnus-parameters (quote (("\\`gmane\\." (spam-process gnus-group-spam-exit-processor-report-gmane)) ("mail\\.spam" (gnus-article-sort-functions gnus-article-sort-by-chars) (ham-process-destination . "INBOX") (spam-contents gnus-group-spam-classification-spam) (spam-process ((spam spam-use-spamassassin) (ham spam-use-spamassassin)))) ("list\\." (subscribed . t) (gcc-self . t)) ("list\\.wg21\\.\\(.*\\)" (to-address . "c++std-\\1@accu.org") (to-list . "c++std-\\1@accu.org") (gcc-self . t) (gnus-list-identifiers "\\[c\\+\\+std-.+?\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "c++std-\\1@accu.org") (header :contains "list-id" "<c++std-\\1.accu.org>")))) ("INBOX" (total-expire . t) (expiry-wait . 14) (expiry-target . "mail.archive") (spam-process-destination . "mail.spam") (spam-contents gnus-group-spam-classification-ham) (spam-process ((spam spam-use-spamassassin) (ham spam-use-spamassassin)))) ("\\(mail\\.\\|INBOX\\)" (gnus-use-scoring nil)) ("mail\\.archive" (gnus-summary-line-format "%«%U%R %uS %ur %»%(%*%-14,14f %4u&size; %1«%B%s%»%)
-")) ("list\\.ledger\\.devel" (to-address . "ledger-cli@googlegroups.com") (to-list . "ledger-cli@googlegroups.com") (gcc-self . t) (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "ledger-cli@googlegroups.com") (header :contains "list-id" "<ledger-cli.googlegroups.com>")))) ("list\\.bahai\\.tarjuman" (to-address . "TARJUMAN-LIST@listserv.buffalo.edu") (to-list . "TARJUMAN-LIST@listserv.buffalo.edu") (sieve header :contains ("To" "From" "Cc" "Sender") "TARJUMAN-LIST@LISTSERV.BUFFALO.EDU")) ("list\\.emacs\\.devel" (to-address . "emacs-devel@gnu.org") (to-list . "emacs-devel@gnu.org") (total-expire . t) (expiry-wait . 90) (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-devel@gnu.org") (header :contains "list-id" "<emacs-devel.gnu.org>")))) ("list\\.emacs\\.help" (to-address . "help-gnu-emacs@gnu.org") (to-list . "help-gnu-emacs@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "help-gnu-emacs@gnu.org") (header :contains "list-id" "<help-gnu-emacs.gnu.org>")))) ("list\\.emacs\\.bugs" (to-list . "bug-gnu-emacs@gnu.org") (sieve anyof ((header :matches ("To" "From" "Cc" "Sender") "*@debbugs.gnu.org") (header :contains ("To" "From" "Cc" "Sender") "bug-gnu-emacs@gnu.org") (header :contains "list-id" "<bug-gnu-emacs.gnu.org>")))) ("list\\.emacs\\.diffs" (to-address . "emacs-diffs@gnu.org") (to-list . "emacs-diffs@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-diffs@gnu.org") (header :contains "list-id" "<emacs-diffs.gnu.org>")))) ("list\\.emacs\\.elpa\\.diffs" (to-address . "emacs-elpa-diffs@gnu.org") (to-list . "emacs-diffs@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-elpa-diffs@gnu.org") (header :contains "list-id" "<emacs-elpa-diffs.gnu.org>")))) ("list\\.emacs\\.buildstatus" (to-address . "emacs-buildstatus@gnu.org") (to-list . "emacs-buildstatus@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-buildstatus@gnu.org") (header :contains "list-id" "<emacs-buildstatus.gnu.org>")))) ("list\\.emacs\\.sources" (to-address . "gnu-emacs-sources@gnu.org") (to-list . "gnu-emacs-sources@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "gnu-emacs-sources@gnu.org") (header :contains "list-id" "<gnu-emacs-sources.gnu.org>")))) ("list\\.emacs\\.orgmode" (to-address . "emacs-orgmode@gnu.org") (to-list . "emacs-orgmode@gnu.org") (list-identifier . "\\[O\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-orgmode@gnu.org") (header :contains "list-id" "<emacs-orgmode.gnu.org>")))) ("list\\.emacs\\.diffs" (list-identifier . "\\[Emacs-diffs\\] /srv/bzr/emacs/")) ("list\\.boost\\.cppnow" (to-address . "boostcon-plan@googlegroups.com") (to-list . "boostcon-plan@googlegroups.com") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "boostcon-plan@googlegroups.com") (header :contains "list-id" "<boostcon-plan.googlegroups.com>")))) ("list\\.boost\\.ryppl" (to-address . "ryppl-dev@googlegroups.com") (to-list . "ryppl-dev@googlegroups.com") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "ryppl-dev@googlegroups.com") (header :contains "list-id" "<ryppl-dev.googlegroups.com>")))) ("list\\.boost\\.devel" (to-address . "boost@lists.boost.org") (to-list . "boost@lists.boost.org") (list-identifier . "\\[boost\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "boost@lists.boost.org") (header :contains "list-id" "<boost.lists.boost.org>")))) ("list\\.boost\\.\\(users\\|announce\\)" (to-address . "boost-\\1@lists.boost.org") (to-list . "boost-\\1@lists.boost.org") (list-identifier . "\\\\[Boost-\\1\\\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "boost-\\1@lists.boost.org") (header :contains "list-id" "<boost-\\1.lists.boost.org>")))) ("list\\.isocpp\\.\\(proposals\\|discussion\\)" (to-address . "std-\\1@isocpp.org") (to-list . "std-\\1@isocpp.org") (list-identifier . "\\\\[\\\\(lang\\\\|lib\\\\|std\\\\)-\\1\\\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "std-\\1@isocpp.org") (header :contains "list-id" "<std-\\1.isocpp.org>")))) ("list\\.clang\\.devel" (to-address . "cfe-dev@cs.uiuc.edu") (to-list . "cfe-dev@cs.uiuc.edu") (list-identifier . "\\[\\(cfe-dev\\|LLVMdev\\)\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "cfe-dev@cs.uiuc.edu") (header :contains "list-id" "<cfe-dev.cs.uiuc.edu>")))) ("list\\.llvm\\.devel" (to-address . "llvmdev@cs.uiuc.edu") (to-list . "llvmdev@cs.uiuc.edu") (list-identifier . "\\[\\(cfe-dev\\|LLVMdev\\)]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "llvmdev@cs.uiuc.edu") (header :contains "list-id" "<llvmdev.cs.uiuc.edu>")))) ("list\\.nix\\.devel" (to-address . "nix-dev@lists.science.uu.nl") (to-list . "nix-dev@lists.science.uu.nl") (list-identifier . "\\[Nix-dev\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "nix-dev@lists.science.uu.nl") (header :contains "list-id" "<nix-dev.lists.science.uu.nl>")))) ("list\\.haskell\\.cafe" (to-address . "haskell-cafe@haskell.org") (to-list . "haskell-cafe@haskell.org") (list-identifier . "\\[Haskell-cafe\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "haskell-cafe@haskell.org") (header :contains "list-id" "<haskell-cafe.haskell.org>")))) ("list\\.haskell\\.beginners" (to-address . "beginners@haskell.org") (to-list . "beginners@haskell.org") (list-identifier . "\\[Haskell-beginners\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "beginners@haskell.org") (header :contains "list-id" "<beginners.haskell.org>")))) ("list\\.haskell\\.infrastructure" (to-address . "haskell-infrastructure@community.galois.com") (to-list . "haskell-infrastructure@community.galois.com") (list-identifier . "\\[Haskell-infrastructure\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "haskell-infrastructure@community.galois.com") (header :contains "list-id" "<haskell-infrastructure.community.galois.com>")))) ("list\\.haskell\\.announce" (to-address . "haskell@haskell.org") (to-address . "haskell@haskell.org") (list-identifier . "\\[Haskell\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "haskell@haskell.org") (header :contains "list-id" "<haskell.haskell.org>")))))))
+ '(gnus-parameters (quote (("list\\.haskell\\.ghc" (to-address . "glasgow-haskell-users@haskell.org") (to-list . "glasgow-haskell-users@haskell.org") (list-identifier . "\\[Haskell\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "glasgow-haskell-users@haskell.org") (header :contains "list-id" "<glasgow-haskell-users.haskell.org>")))) ("\\`gmane\\." (spam-process gnus-group-spam-exit-processor-report-gmane)) ("mail\\.spam" (gnus-article-sort-functions gnus-article-sort-by-chars) (ham-process-destination . "INBOX") (spam-contents gnus-group-spam-classification-spam) (spam-process ((spam spam-use-spamassassin) (ham spam-use-spamassassin)))) ("list\\." (subscribed . t) (gcc-self . t)) ("list\\.wg21\\.\\(.*\\)" (to-address . "c++std-\\1@accu.org") (to-list . "c++std-\\1@accu.org") (gcc-self . t) (gnus-list-identifiers "\\[c\\+\\+std-.+?\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "c++std-\\1@accu.org") (header :contains "list-id" "<c++std-\\1.accu.org>")))) ("INBOX" (total-expire . t) (expiry-wait . 14) (expiry-target . "mail.archive") (spam-process-destination . "mail.spam") (spam-contents gnus-group-spam-classification-ham) (spam-process ((spam spam-use-spamassassin) (ham spam-use-spamassassin)))) ("\\(mail\\.\\|INBOX\\)" (gnus-use-scoring nil)) ("mail\\.archive" (gnus-summary-line-format "%«%U%R %uS %ur %»%(%*%-14,14f %4u&size; %1«%B%s%»%)
+")) ("list\\.ledger\\.devel" (to-address . "ledger-cli@googlegroups.com") (to-list . "ledger-cli@googlegroups.com") (gcc-self . t) (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "ledger-cli@googlegroups.com") (header :contains "list-id" "<ledger-cli.googlegroups.com>")))) ("list\\.bahai\\.tarjuman" (to-address . "TARJUMAN-LIST@listserv.buffalo.edu") (to-list . "TARJUMAN-LIST@listserv.buffalo.edu") (sieve header :contains ("To" "From" "Cc" "Sender") "TARJUMAN-LIST@LISTSERV.BUFFALO.EDU")) ("list\\.emacs\\.devel" (to-address . "emacs-devel@gnu.org") (to-list . "emacs-devel@gnu.org") (total-expire . t) (expiry-wait . 90) (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-devel@gnu.org") (header :contains "list-id" "<emacs-devel.gnu.org>")))) ("list\\.emacs\\.help" (to-address . "help-gnu-emacs@gnu.org") (to-list . "help-gnu-emacs@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "help-gnu-emacs@gnu.org") (header :contains "list-id" "<help-gnu-emacs.gnu.org>")))) ("list\\.emacs\\.bugs" (to-list . "bug-gnu-emacs@gnu.org") (sieve anyof ((header :matches ("To" "From" "Cc" "Sender") "*@debbugs.gnu.org") (header :contains ("To" "From" "Cc" "Sender") "bug-gnu-emacs@gnu.org") (header :contains "list-id" "<bug-gnu-emacs.gnu.org>")))) ("list\\.emacs\\.diffs" (to-address . "emacs-diffs@gnu.org") (to-list . "emacs-diffs@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-diffs@gnu.org") (header :contains "list-id" "<emacs-diffs.gnu.org>")))) ("list\\.emacs\\.elpa\\.diffs" (to-address . "emacs-elpa-diffs@gnu.org") (to-list . "emacs-diffs@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-elpa-diffs@gnu.org") (header :contains "list-id" "<emacs-elpa-diffs.gnu.org>")))) ("list\\.emacs\\.buildstatus" (to-address . "emacs-buildstatus@gnu.org") (to-list . "emacs-buildstatus@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-buildstatus@gnu.org") (header :contains "list-id" "<emacs-buildstatus.gnu.org>")))) ("list\\.emacs\\.sources" (to-address . "gnu-emacs-sources@gnu.org") (to-list . "gnu-emacs-sources@gnu.org") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "gnu-emacs-sources@gnu.org") (header :contains "list-id" "<gnu-emacs-sources.gnu.org>")))) ("list\\.emacs\\.orgmode" (to-address . "emacs-orgmode@gnu.org") (to-list . "emacs-orgmode@gnu.org") (list-identifier . "\\[O\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "emacs-orgmode@gnu.org") (header :contains "list-id" "<emacs-orgmode.gnu.org>")))) ("list\\.emacs\\.diffs" (list-identifier . "\\[Emacs-diffs\\] /srv/bzr/emacs/")) ("list\\.boost\\.cppnow" (to-address . "boostcon-plan@googlegroups.com") (to-list . "boostcon-plan@googlegroups.com") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "boostcon-plan@googlegroups.com") (header :contains "list-id" "<boostcon-plan.googlegroups.com>")))) ("list\\.boost\\.ryppl" (to-address . "ryppl-dev@googlegroups.com") (to-list . "ryppl-dev@googlegroups.com") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "ryppl-dev@googlegroups.com") (header :contains "list-id" "<ryppl-dev.googlegroups.com>")))) ("list\\.boost\\.devel" (to-address . "boost@lists.boost.org") (to-list . "boost@lists.boost.org") (list-identifier . "\\[boost\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "boost@lists.boost.org") (header :contains "list-id" "<boost.lists.boost.org>")))) ("list\\.boost\\.\\(users\\|announce\\)" (to-address . "boost-\\1@lists.boost.org") (to-list . "boost-\\1@lists.boost.org") (list-identifier . "\\\\[Boost-\\1\\\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "boost-\\1@lists.boost.org") (header :contains "list-id" "<boost-\\1.lists.boost.org>")))) ("list\\.isocpp\\.\\(proposals\\|discussion\\)" (to-address . "std-\\1@isocpp.org") (to-list . "std-\\1@isocpp.org") (list-identifier . "\\\\[\\\\(lang\\\\|lib\\\\|std\\\\)-\\1\\\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "std-\\1@isocpp.org") (header :contains "list-id" "<std-\\1.isocpp.org>")))) ("list\\.clang\\.devel" (to-address . "cfe-dev@cs.uiuc.edu") (to-list . "cfe-dev@cs.uiuc.edu") (list-identifier . "\\[\\(cfe-dev\\|LLVMdev\\)\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "cfe-dev@cs.uiuc.edu") (header :contains "list-id" "<cfe-dev.cs.uiuc.edu>")))) ("list\\.llvm\\.devel" (to-address . "llvmdev@cs.uiuc.edu") (to-list . "llvmdev@cs.uiuc.edu") (list-identifier . "\\[\\(cfe-dev\\|LLVMdev\\)]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "llvmdev@cs.uiuc.edu") (header :contains "list-id" "<llvmdev.cs.uiuc.edu>")))) ("list\\.nix\\.devel" (to-address . "nix-dev@lists.science.uu.nl") (to-list . "nix-dev@lists.science.uu.nl") (list-identifier . "\\[Nix-dev\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "nix-dev@lists.science.uu.nl") (header :contains "list-id" "<nix-dev.lists.science.uu.nl>")))) ("list\\.haskell\\.cafe" (to-address . "haskell-cafe@haskell.org") (to-list . "haskell-cafe@haskell.org") (list-identifier . "\\[Haskell-cafe\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "haskell-cafe@haskell.org") (header :contains "list-id" "<haskell-cafe.haskell.org>")))) ("list\\.haskell\\.beginners" (to-address . "beginners@haskell.org") (to-list . "beginners@haskell.org") (list-identifier . "\\[Haskell-beginners\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "beginners@haskell.org") (header :contains "list-id" "<beginners.haskell.org>")))) ("list\\.haskell\\.infrastructure" (to-address . "haskell-infrastructure@community.galois.com") (to-list . "haskell-infrastructure@community.galois.com") (list-identifier . "\\[Haskell-infrastructure\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "haskell-infrastructure@community.galois.com") (header :contains "list-id" "<haskell-infrastructure.community.galois.com>")))) ("list\\.haskell\\.announce" (to-address . "haskell@haskell.org") (to-list . "haskell@haskell.org") (list-identifier . "\\[Haskell\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "haskell@haskell.org") (header :contains "list-id" "<haskell.haskell.org>")))) ("list\\.haskell\\.cabal" (to-address . "cabal-devel@haskell.org") (to-list . "cabal-devel@haskell.org") (list-identifier . "\\[Haskell\\]") (sieve anyof ((header :contains ("To" "From" "Cc" "Sender") "cabal-devel@haskell.org") (header :contains "list-id" "<cabal-devel.haskell.org>")))))))
'(gnus-permanently-visible-groups "INBOX")
'(gnus-read-active-file nil)
'(gnus-read-newsrc-file nil)
View
24 init.el
@@ -729,9 +729,7 @@
(let ((class (syntax-class (syntax-after (1- (point))))))
(if (or (bolp) (and (/= 2 class)
(/= 3 class)))
- (call-interactively 'indent-according-to-mode)
- (if t
- (call-interactively 'auto-complete)
+ (call-interactively 'indent-according-to-mode)
(call-interactively 'auto-complete))))
(defvar printf-index 0)
@@ -764,15 +762,12 @@
(diminish 'hide-ifdef-mode)
(bind-key "C-c p" 'insert-counting-printf c-mode-base-map)
-
- (if t
- (progn
- (auto-complete-mode 1)
- (setq ac-sources (list (if (featurep 'semantic)
- 'ac-source-semantic
- 'ac-source-gtags)))
- (bind-key "<A-tab>" 'ac-complete c-mode-base-map))
- (company-mode 1)
+
+ (auto-complete-mode 1)
+ (setq ac-sources (list (if (and (fboundp 'semantic-active-p)
+ (funcall #'semantic-active-p))
+ 'ac-source-semantic
+ 'ac-source-gtags)))
(bind-key "<A-tab>" 'ac-complete c-mode-base-map)
;;(doxymacs-mode 1)
@@ -1701,7 +1696,10 @@ The output appears in the buffer `*Async Shell Command*'."
(car (auth-source-search :host "bitlbee"
:user "johnw"
:type 'netrc
- :port 6667))
+ :port 6667))
+ :secret))))
+
+ (add-hook 'after-init-hook 'im)
(add-hook 'after-init-hook 'irc))
:config
View
4 lisp/esh-toggle.el
@@ -134,9 +134,7 @@ Stores the window cofiguration before creating and/or switching window."
;; Find out which directory we are in (the method differs for
;; different buffers)
(or (and make-cd
- (buffer-file-name)
- (file-name-directory (buffer-file-name))
- (concat "cd " (file-name-directory (buffer-file-name))))
+ (concat "cd " default-directory))
(and make-cd
list-buffers-directory
(concat "cd " list-buffers-directory)))))
2 lisp/haskell-config
@@ -1 +1 @@
-Subproject commit 449cb933a1418e0eb487f94225aac933bd9eeb1a
+Subproject commit 0d7f4683ad445757d3c3ed9a9d37d32449966d47
2 override/tramp
@@ -1 +1 @@
-Subproject commit 2e6a2c5e1e2965be74cd306c99b80f2585b26b3b
+Subproject commit b44e25c410ac10a04f2d9846699e9810303ee96c
View
6 settings.el
@@ -55,9 +55,6 @@
'(clean-buffer-list-kill-never-regexps (quote ("^ \\*Minibuf-.*\\*$" "^\\*Summary" "^\\*Article" "^#")))
'(clean-buffer-list-kill-regexps (quote (".*")))
'(column-number-mode t)
- '(company-backends (quote (company-elisp company-nxml company-css (company-gtags company-dabbrev-code company-keywords) company-oddmuse company-files company-dabbrev)))
- '(company-idle-delay nil)
- '(company-require-match nil)
'(compilation-context-lines 10)
'(compilation-scroll-output t)
'(compilation-skip-threshold 2)
@@ -159,7 +156,8 @@
'(haskell-check-command "hlintall")
'(haskell-config-use-unicode-symbols t)
'(haskell-doc-use-inf-haskell t)
- '(haskell-mode-hook (quote (turn-on-haskell-indentation turn-on-font-lock turn-on-eldoc-mode turn-on-haskell-doc-mode turn-on-haskell-decl-scan my-haskell-mode-hook)))
+ '(haskell-hoogle-command nil)
+ '(haskell-mode-hook (quote (ghc-init turn-on-haskell-indentation turn-on-font-lock my-haskell-mode-hook)))
'(haskell-program-name "ghci")
'(haskell-saved-check-command "~/.cabal/bin/hlint" t)
'(hippie-expand-try-functions-list (quote (yas/hippie-try-expand try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol)))
2 site-lisp/haskell-mode
@@ -1 +1 @@
-Subproject commit 8eaba6ca9f9c7cecf3f075198438652b529a9643
+Subproject commit 77d0373627b0e02e301836a2195a46d5ed729fd9
View
1 site-lisp/hsenv.el
View
2 snippets/gud-mode/cree
@@ -1 +1 @@
-run -d1 --c --llvm_file_name - ~/src/edg/test/eok_address_of.c
+run --gcc --llvm_file_name - ~/src/edg/test/
View
1 snippets/org-mode/assem
@@ -17,7 +17,6 @@
** Review prior minutes of [2013-01-01 Tue]
** Outstanding business from [2013-01-01 Tue]
** New Business
-** Additions to the Agenda
** Upcoming events
** Secretary's report
** Feast suggestions

0 comments on commit 648298f

Please sign in to comment.
Something went wrong with that request. Please try again.