summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
Diffstat (limited to 'init.el')
-rw-r--r--init.el39
1 files changed, 32 insertions, 7 deletions
diff --git a/init.el b/init.el index dc766d2..21647cd 100644 --- a/init.el +++ b/init.el
@@ -44,6 +44,10 @@
44 ;; "C-x 3" #'+split-window-right-then 44 ;; "C-x 3" #'+split-window-right-then
45 ;; "C-x C-3" #'+split-window-right-then 45 ;; "C-x C-3" #'+split-window-right-then
46 ) 46 )
47 ;; Font-lock keywords
48 (font-lock-add-keywords
49 nil
50 '(("\\<\\(TODO\\|XXX\\|FIXME\\|BUG\\):" 1 font-lock-warning-face t)))
47 ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults 51 ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
48 (global-set-key (kbd "C-h") 'delete-backward-char) 52 (global-set-key (kbd "C-h") 'delete-backward-char)
49 (keyboard-translate ?\C-h ?\C-?) 53 (keyboard-translate ?\C-h ?\C-?)
@@ -521,7 +525,11 @@
521 ;; Horizontal lines 525 ;; Horizontal lines
522 (font-lock-add-keywords 526 (font-lock-add-keywords
523 'org-mode 527 'org-mode
524 '(("^-----+" . form-feed--font-lock-face))))) 528 '(("^-----+" . form-feed--font-lock-face))))
529 (put 'browse-url-browser-function 'safe-local-variable
530 (lambda (val)
531 (eq (function-get val 'browse-url-browser-kind :autoload)
532 'external))))
525 533
526(setup org-agenda 534(setup org-agenda
527 (:option org-agenda-skip-deadline-if-done t 535 (:option org-agenda-skip-deadline-if-done t
@@ -843,6 +851,7 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
843 "C-l" #'lui-track-jump-to-indicator 851 "C-l" #'lui-track-jump-to-indicator
844 "C-<return>" #'+circe-chat@set-prompt) 852 "C-<return>" #'+circe-chat@set-prompt)
845 853
854 ;; XXX: this doesn't quite work right.
846 (advice-add #'circe-command-PART :after #'+circe-kill-buffer) 855 (advice-add #'circe-command-PART :after #'+circe-kill-buffer)
847 (advice-add #'circe-command-QUIT :after #'+circe-quit@kill-buffer) 856 (advice-add #'circe-command-QUIT :after #'+circe-quit@kill-buffer)
848 (advice-add #'circe-command-GQUIT :after #'+circe-gquit@kill-buffer) 857 (advice-add #'circe-command-GQUIT :after #'+circe-gquit@kill-buffer)
@@ -1301,6 +1310,22 @@ See also `crux-reopen-as-root-mode'."
1301 (define-key isearch-mb-minibuffer-map (kbd key) command))))))) 1310 (define-key isearch-mb-minibuffer-map (kbd key) command)))))))
1302 (isearch-mb-mode +1)) 1311 (isearch-mb-mode +1))
1303 1312
1313(setup (:straight (jabber :repo "https://tildegit.org/wgreenhouse/emacs-jabber"
1314 :host nil
1315 :files ("*.el" "*.texi"
1316 ("jabber-fallback-lib"
1317 "jabber-fallback-lib/hexrgb.el"
1318 "jabber-fallback-lib/srv.el"
1319 "jabber-fallback-lib/fsm.el")
1320 "jabber-pkg.el")
1321 :fork (:repo "https://tildegit.org/acdw/emacs-jabber"
1322 :host nil)))
1323 (dolist (mode '(jabber-chat-mode
1324 jabber-browse-mode
1325 jabber-roster-mode
1326 jabber-console-mode))
1327 (add-hook (intern (format "%s-hook" mode)) #'visual-fill-column-mode)))
1328
1304(setup (:straight-when keychain-environment 1329(setup (:straight-when keychain-environment
1305 (executable-find "keychain")) 1330 (executable-find "keychain"))
1306 (keychain-refresh-environment)) 1331 (keychain-refresh-environment))
@@ -1328,6 +1353,12 @@ See also `crux-reopen-as-root-mode'."
1328 "m" #'link-hint-open-multiple-links 1353 "m" #'link-hint-open-multiple-links
1329 "M-c" #'link-hint-copy-link "c" #'link-hint-copy-link))) 1354 "M-c" #'link-hint-copy-link "c" #'link-hint-copy-link)))
1330 1355
1356(setup (:straight (machine
1357 :host github :repo "duckwork/machine.el"))
1358 (:option machine-default-font "DejaVu Sans Mono"
1359 machine-variable-pitch-font "DejaVu Sans")
1360 (machine-settings-load))
1361
1331(setup (:straight macrostep) 1362(setup (:straight macrostep)
1332 (:require macrostep) 1363 (:require macrostep)
1333 (:with-mode emacs-lisp-mode 1364 (:with-mode emacs-lisp-mode
@@ -1747,9 +1778,3 @@ See also `crux-reopen-as-root-mode'."
1747 (:require +zzz-to-char) 1778 (:require +zzz-to-char)
1748 (:option zzz-to-char-reach (+bytes 1 :kib)) 1779 (:option zzz-to-char-reach (+bytes 1 :kib))
1749 (:global "M-z" #'+zzz-to-char)) 1780 (:global "M-z" #'+zzz-to-char))
1750
1751(setup (:straight (machine
1752 :host github :repo "duckwork/machine.el"))
1753 (:option machine-default-font "DejaVu Sans Mono"
1754 machine-variable-pitch-font "DejaVu Sans")
1755 (machine-settings-load))