rachel/emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Some more org fancies

Browse Source
This commit is contained in:
Rachel Lambda Samuelsson 2022-11-22 23:49:42 +01:00
parent 1cee7bccc1
commit 3f3880ab9e
4 changed files with 47 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
binds.el
View File

@ -34,32 +34,33 @@
;; Windowing ;; Windowing
(define-prefix-command 'create-windows) (define-prefix-command 'create-windows)
(global-set-key (kbd "C-a") 'create-windows) (global-set-key (kbd "C-a") 'create-windows)
(define-key create-windows (kbd "h") '(lambda () (interactive) (define-key create-windows (kbd "h") #'(lambda () (interactive)
(split-window-right) (split-window-right)
(evil-window-left 1))) (evil-window-left 1)))
(define-key create-windows (kbd "j") '(lambda () (interactive) (define-key create-windows (kbd "j") #'(lambda () (interactive)
(split-window-below) (split-window-below)
(evil-window-down 1))) (evil-window-down 1)))
(define-key create-windows (kbd "k") '(lambda () (interactive) (define-key create-windows (kbd "k") #'(lambda () (interactive)
(split-window-below) (split-window-below)
(evil-window-up 1))) (evil-window-up 1)))
(define-key create-windows (kbd "l") '(lambda () (interactive) (define-key create-windows (kbd "l") #'(lambda () (interactive)
(split-window-right) (split-window-right)
(evil-window-right 1))) (evil-window-right 1)))
(global-set-key (kbd "C-h") '(lambda () (interactive) (evil-window-left 1))) (global-set-key (kbd "C-h") #'(lambda () (interactive) (evil-window-left 1)))
(global-set-key (kbd "C-j") '(lambda () (interactive) (evil-window-down 1))) (global-set-key (kbd "C-j") #'(lambda () (interactive) (evil-window-down 1)))
(global-set-key (kbd "C-k") '(lambda () (interactive) (evil-window-up 1))) (global-set-key (kbd "C-k") #'(lambda () (interactive) (evil-window-up 1)))
(global-set-key (kbd "C-l") '(lambda () (interactive) (evil-window-right 1))) (global-set-key (kbd "C-l") #'(lambda () (interactive) (evil-window-right 1)))
(global-set-key (kbd "M-h") '(lambda () (interactive) (evil-window-decrease-width 1))) (global-set-key (kbd "M-h") #'(lambda () (interactive) (evil-window-decrease-width 1)))
(global-set-key (kbd "M-j") '(lambda () (interactive) (evil-window-decrease-height 1))) (global-set-key (kbd "M-j") #'(lambda () (interactive) (evil-window-decrease-height 1)))
(global-set-key (kbd "M-k") '(lambda () (interactive) (evil-window-increase-height 1))) (global-set-key (kbd "M-k") #'(lambda () (interactive) (evil-window-increase-height 1)))
(global-set-key (kbd "M-l") '(lambda () (interactive) (evil-window-increase-width 1))) (global-set-key (kbd "M-l") #'(lambda () (interactive) (evil-window-increase-width 1)))
(global-set-key (kbd "C-<return>") 'vterm)
(evil-define-key '(normal insert visual replace operator motion emacs) 'global (kbd "C-t") nil) (evil-define-key '(normal insert visual replace operator motion emacs) 'global (kbd "C-t") nil)
(evil-define-key '(normal insert visual replace operator motion emacs) 'global (kbd "C-d") nil) (evil-define-key '(normal insert visual replace operator motion emacs) 'global (kbd "C-d") nil)
(evil-define-key '(normal insert visual replace operator motion emacs) 'global (kbd "C-<return>") nil)
(global-set-key (kbd "C-<return>") 'vterm)
(global-set-key (kbd "C-t") 'treemacs) (global-set-key (kbd "C-t") 'treemacs)
(global-set-key (kbd "C-d") 'evil-quit) (global-set-key (kbd "C-d") 'evil-quit)
@ -72,6 +73,7 @@
(define-key vterm-mode-map (kbd "C-d") nil) (define-key vterm-mode-map (kbd "C-d") nil)
(require 'org) (require 'org)
(define-key org-mode-map (kbd "C-<return>") nil)
(define-key org-mode-map (kbd "C-a") nil) (define-key org-mode-map (kbd "C-a") nil)
(define-key org-mode-map (kbd "C-h") nil) (define-key org-mode-map (kbd "C-h") nil)
(define-key org-mode-map (kbd "C-j") nil) (define-key org-mode-map (kbd "C-j") nil)

10
bookmarks Normal file
View File

@ -0,0 +1,10 @@
;;;; Emacs Bookmark Format Version 1;;;; -*- coding: utf-8-emacs; mode: lisp-data -*-
;;; This format is meant to be slightly human-readable;
;;; nevertheless, you probably don't want to edit it.
;;; -*- End Of Bookmark File Format Version Stamp -*-
(("Category Theory Notebook"
(filename . "~/doc/org/notes/Category/Category.org")
(front-context-string . "This is my perso")
(rear-context-string . "TARTUP: indent\n\n")
(position . 80))
)

5
init.el
View File

@ -30,9 +30,9 @@
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(evil-undo-system 'undo-tree) '(evil-undo-system 'undo-tree)
'(org-agenda-files '("~/doc/org/todo.org")) '(org-agenda-files '("/home/deppy/doc/org/todo.org"))
'(package-selected-packages '(package-selected-packages
'(org-pretty-tags visual-fill writeroom-mode haskell-emacs org-bullets treemacs-evil treemacs solarized-theme doom-modeline all-the-icons-dired page-break-lines all-the-icons dashboard org-evil zotero vterm magit undo-fu latex-math-preview multi-term evil-terminal-cursor-changer fira-code-mode use-package haskell-mode evil-surround undo-tree evil-org evil)) '(org-krita org-superstar org-fragtog org-pretty-tags visual-fill writeroom-mode haskell-emacs treemacs-evil treemacs solarized-theme doom-modeline all-the-icons-dired page-break-lines all-the-icons dashboard org-evil zotero vterm magit undo-fu latex-math-preview multi-term evil-terminal-cursor-changer fira-code-mode use-package haskell-mode evil-surround undo-tree evil-org evil))
'(warning-suppress-log-types '((comp))) '(warning-suppress-log-types '((comp)))
'(warning-suppress-types '((comp))) '(warning-suppress-types '((comp)))
'(writeroom-mode-line t) '(writeroom-mode-line t)
@ -48,5 +48,6 @@
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(bookmark-face ((t (:foreground "#fdf6e3"))))
'(mode-line ((t (:underline nil :overline nil)))) '(mode-line ((t (:underline nil :overline nil))))
'(mode-line-inactive ((t (:underline nil :overline nil))))) '(mode-line-inactive ((t (:underline nil :overline nil)))))

15
style.el
View File

@ -42,7 +42,10 @@
(setq dashboard-startup-banner (path "style/evil_logo.png")) (setq dashboard-startup-banner (path "style/evil_logo.png"))
(setq dashboard-banner-logo-title "Welcome to EVIL") (setq dashboard-banner-logo-title "Welcome to EVIL")
(setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t)
(setq dashboard-show-shortcuts nil) (setq dashboard-show-shortcuts nil)
(setq dashboard-filter-agenda-entry 'dashboard-no-filter-agenda)
(setq dashboard-footer-messages (setq dashboard-footer-messages
'("The one true editor!" '("The one true editor!"
"Who the hell uses VIM anyway? Go EVIL!" "Who the hell uses VIM anyway? Go EVIL!"
@ -67,8 +70,12 @@
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode) (add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
;; Org ;; Org
(require 'org-bullets) (require 'org-superstar)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1) (visual-line-mode) (writeroom-mode))) (add-hook 'org-mode-hook (lambda ()
(org-superstar-mode 1)
(org-fragtog-mode 1)
(org-indent-mode 1)
(visual-line-mode)
(writeroom-mode)))
(setq org-format-latex-options '(:scale 1.5)) (setq org-format-latex-options '(:scale 1.5))
(setq org-agenda-start-on-weekday 1)
;; Writeroom