diff options
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 29 |
1 files changed, 11 insertions, 18 deletions
@@ -641,10 +641,10 @@ ;;;; so-long (setq large-file-warning-threshold (* 200 1024 1024)) -(use-package so-long - :ensure t - :diminish) -(global-so-long-mode 1) +;; (use-package so-long +;; :ensure t +;; :diminish) +;; (global-so-long-mode 1) ;;;; persistent scratch (use-package persistent-scratch @@ -1125,15 +1125,6 @@ (add-hook 'text-mode-hook 'turn-on-auto-fill) ;;;; dictionaries -(defun jao-word-definition-lookup () - "Look up the word under cursor in a browser." - (interactive) - (require 'thingatpt) - (browse-url - (concat "http://www.wordnik.com/words/" - ;; "http://www.answers.com/main/ntquery?s=" - (thing-at-point 'word)))) - (use-package dictionary :init (setq dictionary-use-single-buffer t dictionary-server "localhost") @@ -2178,7 +2169,7 @@ (defun jao-org--set-geiser-impl () (setq-local geiser-repl--impl 'guile)) (add-hook 'org-mode-hook #'jao-org--set-geiser-impl) -(jao-load-path "geiser/geiser/elisp") +(jao-load-path "geiser") (use-package geiser :init (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history" @@ -2188,7 +2179,7 @@ geiser-active-implementations '(guile) geiser-default-implementation 'guile)) -(jao-load-path "geiser/guile") +(jao-load-path "geiser-guile") (use-package geiser-guile) ;; (jao-load-path "geiser/mit") @@ -2215,6 +2206,8 @@ ;;;; Haskell ;;;;; packages +(jao-load-path "haskell-mode") + (use-package haskell-mode :ensure t :custom @@ -2553,6 +2546,7 @@ ;;;; ement (use-package ement + :disabled t :ensure t :init (setq ement-save-sessions t ement-sessions-file (locate-user-emacs-file "cache/ement.el") @@ -2567,8 +2561,7 @@ :config (defun jao-ement-track (event room session) - (when (run-hook-with-args-until-success - 'ement-notify-notification-predicates event room session) + (when (ement-notify--room-unread-p event room session) (when-let ((n (ement-room--buffer-name room)) (b (get-buffer n))) (tracking-add-buffer b)))) @@ -2584,7 +2577,7 @@ (slack-start)) (when (or p (y-or-n-p "Connect to telegram? ")) (telega)) - (when (or p (y-or-n-p "Connect to matrix? ")) + (when (and (fboundp 'ement-connect) (or p (y-or-n-p "Connect to matrix? "))) (unless (get-buffer "*Ement Rooms*") (jao-with-auth "matrix.org" u p (ement-connect :user-id u :password p)))) (when (or p (y-or-n-p "Connect to libera? ")) |