Cleanup login so emacs functions before modules are loaded.
authorJames Richardson <j@mesrichardson.com>
Sat, 20 Jul 2019 00:17:19 +0000 (20:17 -0400)
committerJames Richardson <j@mesrichardson.com>
Sat, 20 Jul 2019 00:17:19 +0000 (20:17 -0400)
.emacs.d/config/lisp.el
.emacs.d/config/load-paths.el
.emacs.d/config/main.el
.emacs.d/config/org.el
.emacs.d/init.el

index 4af79f89a8477b149fa47d0b3d1cc36e435a61fd..3e23cca2e97df44820cd9ec6ee29c7c56b9a55bb 100644 (file)
@@ -9,20 +9,21 @@
 ;;        (package-install package)))
 ;;  '(slime slime-company geiser))
 
-(require 'slime-autoloads)
-(slime-setup '(slime-fancy))
+(when (require 'slime-autoloads nil 'noerror)
+  (slime-setup '(slime-fancy))
 
-(eval-after-load 'slime
-  `(define-key slime-prefix-map (kbd "M-h") 'slime-documentation-lookup))
+  (eval-after-load 'slime
+    `(define-key slime-prefix-map (kbd "M-h") 'slime-documentation-lookup))
 
-(setq slime-lisp-implementations
-      '((sbcl ("sbcl"))
-       (clisp ("clisp" "-ansi" "-q"))))
+  (setq slime-lisp-implementations
+        '((sbcl ("sbcl"))
+          (clisp ("clisp" "-ansi" "-q"))))
+
+  (setq slime-default-lisp
+        (cond
+         ((string-equal system-type "cygwin") 'clisp)
+         (t 'sbcl))))
 
-(setq slime-default-lisp
-      (cond
-       ((string-equal system-type "cygwin") 'clisp)
-       (t 'sbcl)))
 ;; guile
 (with-eval-after-load 'geiser-guile
   (add-to-list 'geiser-guile-load-path "~/src/guix"))
index 730449d6ae0bbb09a7ede5677b32bb62ebde4364..8e1b4fb82c85adde5be3f348df15e28a201fe1d5 100644 (file)
            (unload-feature feat t))))
    load-history))
 
-(mapc
- (lambda (x)
-   (let ((feat (cdr (assoc 'provide (cdr x)))))
-     (and (string-match "^org\\|^ox\\|^ob" (symbol-name feat))
-         (featurep feat)
-         (unload-feature feat t))))
- load-history)
+;; (mapc
+;;  (lambda (x)
+;;    (let ((feat (cdr (assoc 'provide (cdr x)))))
+;;      (and (string-match "^org\\|^ox\\|^ob" (symbol-name feat))
+;;       (featurep feat)
+;;       (unload-feature feat t))))
+;;  load-history)
 
 ;; ;; setup slime
 ;; (when (file-directory-p "~/src/slime")
index ca29bf8d6833dbdfda13842fe7297fc1ad225ff1..1481c4668f43c25f1ab2e2618296e91bfea9d08c 100644 (file)
 ;;       browse-url-generic-program "google-chrome")
   
 ;; modes
-(add-hook 'text-mode-hook 'turn-on-flyspell 'append)
+(require 'flyspell)
+(when (executable-find ispell-program-name)
+  (add-hook 'text-mode-hook 'turn-on-flyspell 'append))
 (add-hook 'text-mode-hook 'turn-on-auto-fill 'append)
 (autoload 'markdown-mode "markdown-mode.el" "Major mode for editing Markdown files" t)
 (add-to-list 'auto-mode-alist '("\\.mdwn$" . markdown-mode))
 
 
 ;; paredit
-(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
-(add-hook 'emacs-lisp-mode-hook       #'enable-paredit-mode)
-(add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
-(add-hook 'ielm-mode-hook             #'enable-paredit-mode)
-(add-hook 'lisp-mode-hook             #'enable-paredit-mode)
-(add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
-(add-hook 'scheme-mode-hook           #'enable-paredit-mode)
-(add-hook 'clojure-mode-hook #'enable-paredit-mode)
-(add-hook 'cider-repl-mode-hook #'enable-paredit-mode)
+(when (require 'paredit nil 'noerror)
+  (autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
+  (add-hook 'emacs-lisp-mode-hook       #'enable-paredit-mode)
+  (add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
+  (add-hook 'ielm-mode-hook             #'enable-paredit-mode)
+  (add-hook 'lisp-mode-hook             #'enable-paredit-mode)
+  (add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
+  (add-hook 'scheme-mode-hook           #'enable-paredit-mode)
+  (add-hook 'clojure-mode-hook #'enable-paredit-mode)
+  (add-hook 'cider-repl-mode-hook #'enable-paredit-mode))
 
 ;; company-mode
-(add-hook 'after-init-hook 'global-company-mode)
+(when (require 'global-company-mode nil 'noerror)
+  (add-hook 'after-init-hook 'global-company-mode))
 
 ;; start server
 (require 'server)
index 8b118fec7e05cf9c37a159d254d72756f3f42841..3c711c1426a9a4376e06b1caa29a6b590ba24657 100644 (file)
@@ -923,7 +923,7 @@ Late deadlines first, then scheduled, then non-late deadlines"
          (ruby . t)
          (gnuplot . t)
          (clojure . t)
-         (sh . t)
+         ;;(sh . t)
          (ledger . t)
          (org . t)
          (plantuml . t)
index 7647f32d1986538c1dc1be4af0d7b0fb3c94cb37..2e0a8a98e320087675edcb0be6caebe95951b09a 100644 (file)
 (require 'org)
 (require 'blog-tools nil 'noerror)
 (put 'scroll-left 'disabled nil)
-(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(icicle-command-abbrev-alist (quote ((cider-restart ## 1))))
- '(jira-url "https://tools.lowes.com/jira/rpc/xmlrpc")
- '(mml-secure-key-preferences
-   (quote
-    ((OpenPGP
-      (sign)
-      (encrypt
-       ("j@mesrichardson.com" "8FD27619C19A2201CB1DE131EA1CF14BD8467AFB")
-       ("james@jamestechnotes.com" "8FD27619C19A2201CB1DE131EA1CF14BD8467AFB")))
-     (CMS
-      (sign)
-      (encrypt)))))
- '(org-file-apps
-   (quote
-    ((auto-mode . emacs)
-     ("\\.mm\\'" . default)
-     ("\\.x?html?\\'" . default)
-     ("\\.pdf\\'" . "evince %s"))))
- '(package-selected-packages
-   (quote
-    (xml-rpc restclient geiser slime-company slime icicles)))
- '(safe-local-variable-values
-   (quote
-    ((org-latex-default-figure-position . h)
-     (eval modify-syntax-entry 43 "'")
-     (eval modify-syntax-entry 36 "'")
-     (eval modify-syntax-entry 126 "'")
-     (bug-reference-bug-regexp . "<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>"))))
- '(smtpmail-smtp-server "localhost")
- '(smtpmail-smtp-service 25))
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- )