enforce emacs config #1
iofq
commented
Owner
```
;; Set up package.el to work with MELPA
(require 'package)
(add-to-list 'package-archives
'("melpa" . "https://melpa.org/packages/"))
(package-initialize)
;; Download Packages
(unless (package-installed-p 'evil)
(package-install 'evil))
(unless (package-installed-p 'key-chord)
(package-install 'key-chord))
;; Emacs shit
(load-theme 'wheatgrass t)
(setq make-backup-files nil)
;; Evil shit
(require 'evil)
(evil-mode 1)
(global-display-line-numbers-mode 1)
(define-key evil-normal-state-map (kbd "C-h") 'evil-window-left)
(define-key evil-normal-state-map (kbd "C-j") 'evil-window-down)
(define-key evil-normal-state-map (kbd "C-k") 'evil-window-up)
(define-key evil-normal-state-map (kbd "C-l") 'evil-window-right)
( setq evil-default-cursor '("gray" box) evil-insert-state-cursor '("white" bar))
(use-package key-chord
:config
(key-chord-mode 1)
(key-chord-define evil-insert-state-map "wq"
(lambda ()
(interactive)
(evil-normal-state)
(evil-forward-char))))
(evil-set-undo-system 'undo-redo)
;; Org shit
(setq org-directory "~/orgfiles")
(setq org-agenda-files '("~/orgfiles"))
(global-set-key (kbd "C-c a") 'org-agenda)
(global-set-key (kbd "C-c c") 'org-capture)
(global-set-key (kbd "C-c w") (lambda() (interactive) (find-file "~/orgfiles/inbox.org")))
;; C-c C-s for SCHEDULED
;; C-c C-t for TODO
;; C-c C-q for tags
;; M-left for promote
;; M-RET
(with-eval-after-load 'org
(define-key org-mode-map (kbd "C-c r") 'org-refile))
(setq org-todo-keywords
'((sequence "TODO(t)" "IN PROGRESS(i)" "SCHEDULED(s)" "BLOCKED(b)" "BACKLOG(k)" "|" "DONE(d)" "NOT DOING(n)")))
(setq org-log-done 'time)
(add-hook 'auto-save-hook 'org-save-all-org-buffers)
(setq org-refile-targets '((org-agenda-files :maxlevel . 3)))
(setq org-outline-path-complete-in-steps nil)
(setq org-refile-use-outline-path 'file)
(setq org-capture-templates
'(("t" "Todo" entry
(file+headline "~/orgfiles/inbox.org" "Tasks")
"* TODO %?\n")))
```
iofq
commented
Author
Owner
```
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
(load-theme 'wheatgrass t)
(setq make-backup-files nil)
(global-display-line-numbers-mode 1)
;; --- evil ---
(setq evil-want-keybinding nil)
(use-package evil
:ensure t
:init
(setq evil-default-cursor '("gray" box)
evil-insert-state-cursor '("white" bar)
evil-undo-system 'undo-redo)
:config
(evil-mode 1)
(define-key evil-normal-state-map (kbd "C-h") 'evil-window-left)
(define-key evil-normal-state-map (kbd "C-j") 'evil-window-down)
(define-key evil-normal-state-map (kbd "C-k") 'evil-window-up)
(define-key evil-normal-state-map (kbd "C-l") 'evil-window-right))
(use-package evil-collection
:ensure t
:after evil
:config
(evil-collection-init))
(use-package key-chord
:ensure t
:after evil
:config
(key-chord-mode 1)
(key-chord-define evil-insert-state-map "wq"
(lambda ()
(interactive)
(evil-normal-state)
(evil-forward-char))))
;; --- org ---
(use-package org
:bind (("C-c a" . org-agenda)
("C-c c" . org-capture))
:hook (auto-save . org-save-all-org-buffers)
:config
(setq org-directory "~/orgfiles"
org-agenda-files '("~/orgfiles")
org-log-done 'time
org-refile-targets '((org-agenda-files :maxlevel . 3))
org-outline-path-complete-in-steps nil
org-refile-use-outline-path 'file)
(setq org-todo-keywords
'((sequence "TODO(t)" "IN-PROGRESS(i)" "WAITING(w)" "BACKLOG(b)" "|" "DONE(d)" "NOT DOING(n)")))
(setq org-todo-keyword-faces
'(("IN-PROGRESS" . (:foreground "orange" :weight bold))
("WAITING" . (:foreground "magenta" :weight bold))
("BACKLOG" . (:foreground "gray" :weight bold))
("NOT DOING" . (:foreground "red" :slant italic))))
(setq org-capture-templates
'(("t" "Todo" entry
(file+headline "~/orgfiles/inbox.org" "Tasks")
"* TODO %?\n :PROPERTIES:\n :CREATED: %U\n :END:\n")
("m" "Meeting" entry
(file+datetree "~/orgfiles/meetings.org")
"* %? :meeting:\n %U\n Attendees: \n\n** Notes\n\n** Actions\n")))
(define-key org-mode-map (kbd "C-c r") 'org-refile))
(use-package org-modern
:ensure t
:after org
:config
(global-org-modern-mode))
;; --- evil-org ---
(use-package evil-org
:ensure t
:after (evil org)
:hook (org-mode . evil-org-mode)
:config
(evil-org-set-key-theme '(navigation insert textobjects additional calendar)))
(use-package org-agenda
:after (org evil)
:config
(require 'evil-org-agenda)
(evil-org-agenda-set-keys)
(add-hook 'org-agenda-mode-hook 'evil-normal-state))
```
iofq
closed this issue
Loading…
Add table
Add a link
Reference in a new issue
No description provided.
Delete branch "%!s()"
Deleting a branch is permanent. Although the deleted branch may continue to exist for a short time before it actually gets removed, it CANNOT be undone in most cases. Continue?