~bzg/dotemacs

9aa8d3c6f3290b4ca6f8411e35aa9ac759c5f658 — Bastien 4 months ago bc96bc0
Minor improvements
2 files changed, 36 insertions(+), 12 deletions(-)

M emacs.el
M emacs.org
M emacs.el => emacs.el +18 -6
@@ 38,9 38,6 @@
(let ((default-directory "~/Documents/elisp/"))
  (normal-top-level-add-subdirs-to-load-path))

;; Load my favorite theme
;; (load-theme 'doom-nord)

;; Start server to use emacsclient
(server-start)



@@ 73,6 70,9 @@
;; The default is to wait 1 second, which I find a bit long
(setq echo-keystrokes 0.1)

;; ;; Let search for "e" match e.g. "é":
(setq search-default-mode 'char-fold-to-regexp)

;; Stop polluting the directory with auto-saved files and backup
(setq auto-save-default nil)
(setq make-backup-files nil)


@@ 137,10 137,22 @@
(setq tab-bar-show nil)
(set-frame-parameter nil 'fullscreen 'fullboth)

(setq bzg-default-font-size 143)
(setq bzg-bigger-font-size 188)

(defun bzg-toggle-default-font-size ()
  (interactive)
  (if (= (face-attribute 'default :height) bzg-bigger-font-size)
      (custom-set-faces
       `(default ((t (:height ,bzg-default-font-size :family "Roboto Mono")))))
    (custom-set-faces
     `(default ((t (:height ,bzg-bigger-font-size :family "Roboto Mono")))))))

(global-set-key (kbd "C-x <C-backspace>") 'bzg-find-bzg)
(global-set-key (kbd "<home>") 'beginning-of-buffer)
(global-set-key (kbd "<end>") 'end-of-buffer)
(global-set-key (kbd "C-²") 'follow-delete-other-windows-and-split)
(global-set-key (kbd "C-<dead-circumflex>") (lambda () (interactive) (load-theme 'doom-nord)))
(global-set-key (kbd "<f5>") (lambda () (interactive) (org-agenda nil "nn")))
(global-set-key (kbd "<f6>") (lambda () (interactive) (org-agenda nil "rr")))
(global-set-key (kbd "<f7>") (lambda () (interactive) (org-agenda nil "ww")))


@@ 167,7 179,7 @@
(global-set-key (kbd "C-ç") 'calc)
(global-set-key (kbd "C-+") 'text-scale-increase)
(global-set-key (kbd "C--") 'text-scale-decrease)
(global-set-key (kbd "C-=") 'text-scale-adjust)
(global-set-key (kbd "C-=") 'bzg-toggle-default-font-size)
(global-set-key (kbd "C-x C-<left>") 'tab-previous)
(global-set-key (kbd "C-x C-<right>") 'tab-next)
;; (global-set-key (kbd "C-M-]") 'origami-toggle-all-nodes)


@@ 268,8 280,8 @@
	(and (looking-at org-outline-regexp-bol)
	     (not (org-in-src-block-p t)))))
(setq org-todo-keyword-faces
      '(("STRT" . (:inverse-video t))
	("NEXT" . (:weight bold))
      '(("STRT" . (:inverse-video t :foreground (face-foreground 'default)))
	("NEXT" . (:weight bold :foreground (face-foreground 'default)))
	("WAIT" . (:inverse-video t))
	("CANCELED" . (:inverse-video t))))
(setq org-footnote-section "Notes")

M emacs.org => emacs.org +18 -6
@@ 59,9 59,6 @@ Comments and suggestions are welcome! =bzg AT gnu DOT org=
(let ((default-directory "~/Documents/elisp/"))
  (normal-top-level-add-subdirs-to-load-path))

;; Load my favorite theme
;; (load-theme 'doom-nord)

;; Start server to use emacsclient
(server-start)



@@ 94,6 91,9 @@ Comments and suggestions are welcome! =bzg AT gnu DOT org=
;; The default is to wait 1 second, which I find a bit long
(setq echo-keystrokes 0.1)

;; ;; Let search for "e" match e.g. "é":
(setq search-default-mode 'char-fold-to-regexp)

;; Stop polluting the directory with auto-saved files and backup
(setq auto-save-default nil)
(setq make-backup-files nil)


@@ 166,10 166,22 @@ Comments and suggestions are welcome! =bzg AT gnu DOT org=
* Keybindings

#+begin_src emacs-lisp
(setq bzg-default-font-size 143)
(setq bzg-bigger-font-size 188)

(defun bzg-toggle-default-font-size ()
  (interactive)
  (if (= (face-attribute 'default :height) bzg-bigger-font-size)
      (custom-set-faces
       `(default ((t (:height ,bzg-default-font-size :family "Roboto Mono")))))
    (custom-set-faces
     `(default ((t (:height ,bzg-bigger-font-size :family "Roboto Mono")))))))

(global-set-key (kbd "C-x <C-backspace>") 'bzg-find-bzg)
(global-set-key (kbd "<home>") 'beginning-of-buffer)
(global-set-key (kbd "<end>") 'end-of-buffer)
(global-set-key (kbd "C-²") 'follow-delete-other-windows-and-split)
(global-set-key (kbd "C-<dead-circumflex>") (lambda () (interactive) (load-theme 'doom-nord)))
(global-set-key (kbd "<f5>") (lambda () (interactive) (org-agenda nil "nn")))
(global-set-key (kbd "<f6>") (lambda () (interactive) (org-agenda nil "rr")))
(global-set-key (kbd "<f7>") (lambda () (interactive) (org-agenda nil "ww")))


@@ 196,7 208,7 @@ Comments and suggestions are welcome! =bzg AT gnu DOT org=
(global-set-key (kbd "C-ç") 'calc)
(global-set-key (kbd "C-+") 'text-scale-increase)
(global-set-key (kbd "C--") 'text-scale-decrease)
(global-set-key (kbd "C-=") 'text-scale-adjust)
(global-set-key (kbd "C-=") 'bzg-toggle-default-font-size)
(global-set-key (kbd "C-x C-<left>") 'tab-previous)
(global-set-key (kbd "C-x C-<right>") 'tab-next)
;; (global-set-key (kbd "C-M-]") 'origami-toggle-all-nodes)


@@ 303,8 315,8 @@ Comments and suggestions are welcome! =bzg AT gnu DOT org=
	(and (looking-at org-outline-regexp-bol)
	     (not (org-in-src-block-p t)))))
(setq org-todo-keyword-faces
      '(("STRT" . (:inverse-video t))
	("NEXT" . (:weight bold))
      '(("STRT" . (:inverse-video t :foreground (face-foreground 'default)))
	("NEXT" . (:weight bold :foreground (face-foreground 'default)))
	("WAIT" . (:inverse-video t))
	("CANCELED" . (:inverse-video t))))
(setq org-footnote-section "Notes")