diff options
| author | Thanos Apollo <[email protected]> | 2024-06-10 20:32:55 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-06-10 20:32:55 +0300 |
| commit | ff326667f7ca34092b8fba85e4de59e9f0d68a57 (patch) | |
| tree | e40e7c48aeaa5660408ef072ce3494de6f2dc15c /.config/emacs | |
| parent | 57a8b7b9510bd124d340c14f35f4115fc2e82b34 (diff) | |
emacs: Update browser & add preittify for scheme-mode
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/init.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index c5290cf..0a57979 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -1,6 +1,6 @@ ;;; init.el --- Emacs configuration -*- lexical-binding: t; -*- -;; Copyright (C) 2023 Thanos Apollo +;; Copyright (C) 2023-2069 Thanos Apollo ;; Author: Thanos Apollo <[email protected]> @@ -36,9 +36,9 @@ user-mail-address "[email protected]") -(defvar is-zeus (equal (system-name) "zeus")) -(defvar is-hermes (equal (system-name) "hermes")) -(defvar is-phone (equal (system-name) "localhost")) +(defvar is-zeus (string= (system-name) "zeus")) +(defvar is-hermes (string= (system-name) "hermes")) +(defvar is-phone (string= (system-name) "localhost")) ;; Font (custom-set-faces @@ -92,7 +92,6 @@ (setf straight-recipe-overrides '((transmission :type git :host nil :repo "[email protected]:/var/git/transmission.git") - ;; (yeetube :type git :host nil :repo "[email protected]:/var/git/yeetube.git") (gnosis :type git :host nil :repo "[email protected]:/var/git/gnosis.git") (pcmpl-emerge :type git :host nil :repo "[email protected]:/var/git/pcmpl-emerge.git") (pcmpl-rc :type git :host nil :repo "[email protected]:/var/git/pcmpl-rc.git"))) @@ -102,7 +101,7 @@ :config (setf browse-url-browser-function 'browse-url-generic - browse-url-generic-program "icecat" + browse-url-generic-program "librewolf" backup-directory-alist '((".*" . "~/.Trash")) sentence-end-double-space t default-input-method "bulgarian-phonetic" @@ -126,7 +125,8 @@ ("C-z" . nil) ("C-c r" . 'rename-visited-file)) :hook ((emacs-lisp-mode . prettify-symbols-mode) - (lisp-mode . prettify-symbols-mode))) + (lisp-mode . prettify-symbols-mode) + (scheme-mode . prettify-symbols-mode))) (use-package dired :straight nil @@ -454,6 +454,7 @@ ("C-x r b" . 'consult-bookmark) ("C-c m" . 'consult-imenu) ("C-x b" . 'consult-buffer) + ("C-x C-b" . 'switch-to-prev-buffer) ("M-y" . 'consult-yank-from-kill-ring) ("C-s" . 'thanos/search) :map thanos/search |