emacs: import some stuff

This commit is contained in:
2020-06-25 10:37:54 +01:00
parent d92f9b37de
commit bd78047924
8 changed files with 275 additions and 0 deletions

4
.gitignore vendored
View File

@@ -1 +1,5 @@
bak bak
*~
*.elc
emacs.d/elpa/
emacs.d/auto-save-list

10
emacs.d/bookmarks Normal file
View File

@@ -0,0 +1,10 @@
;;;; Emacs Bookmark Format Version 1 ;;;; -*- coding: utf-8-emacs -*-
;;; 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 -*-
(("org-capture-last-stored"
(filename . "~/data/org/notes.org")
(front-context-string . "** Hello, I'm a ")
(rear-context-string)
(position . 10))
)

13
emacs.d/custom.el Normal file
View File

@@ -0,0 +1,13 @@
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-agenda-files (quote ("~/data/org/notes.org" "~/data/org/work.org")))
'(package-selected-packages (quote (dracula-theme use-package))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)

11
emacs.d/history Normal file
View File

@@ -0,0 +1,11 @@
;; -*- mode: emacs-lisp; coding: utf-8-unix -*-
;; Minibuffer history file, automatically generated by savehist.
(setq savehist-minibuffer-history-variables '(org-capture--prompt-history org-tags-history command-history minibuffer-history extended-command-history buffer-name-history file-name-history))
(setq org-capture--prompt-history '("Linky linky"))
(setq org-tags-history '(":note:"))
(setq command-history '((switch-to-buffer "notes.org" nil 'force-same-window) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buf") (switch-to-buffer "org.el" nil 'force-same-window) (switch-to-buffer "notes.org" nil 'force-same-window) (comment-region (region-beginning) (region-end) nil) (execute-extended-command nil "comment-region" "comment-region") (switch-to-buffer "org.el" nil 'force-same-window) (switch-to-buffer "notes.org" nil 'force-same-window) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval") (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-bu") (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buffer") (eval-buffer) (execute-extended-command nil "eval-buffer" "ev-b") (switch-to-buffer "org.el" nil 'force-same-window) (eval-buffer) (execute-extended-command nil "eval-buffer" "ev-b-last-sexp") (switch-to-buffer "org.el" nil 'force-same-window) (eval-buffer) (execute-extended-command nil "eval-buffer" "ev-b") (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buffer") (comment-region (region-beginning) (region-end) nil) (execute-extended-command nil "comment-region" "comment-region") (switch-to-buffer "themes.el" nil 'force-same-window) (switch-to-buffer "init.el" nil 'force-same-window) (find-file "~/.emacs.d/themes.el" t) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buffer") (switch-to-buffer "init.el" nil 'force-same-window) (package-install 'dracula-theme nil) (execute-extended-command nil "package-install" "package-install") (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buffer") (kill-buffer "*Group*") (gnus nil) (execute-extended-command nil "gnus" "gnus") (apropos-command '("window") nil) (apropos-command '("switch") nil) (switch-to-buffer "org.el" nil 'force-same-window) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buf") (find-file "~/.emacs.d/org.el" t) (find-file "~/.emacs.d/init.el" t) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buf") (find-file "~/.emacs.d/init.el" t) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-bu") (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-b") (local-set-key [26] 'undo) (execute-extended-command nil "local-set-key" "local-set-key") (eval-buffer) (execute-extended-command nil "eval-buffer" nil) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buffer") (switch-to-buffer "init.el" nil 'force-same-window) (switch-to-buffer "init.el" nil 'force-same-window) (switch-to-buffer "org.el" nil 'force-same-window) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-bu") (describe-function 'bind-key) (describe-key "" 1 nil) (find-file "~/.emacs.d/init.el" t) (describe-key "" 1 nil) (switch-to-buffer "work.org" nil 'force-same-window) (describe-bindings) (execute-extended-command nil "describe-bindings" "describe-bin") (kill-buffer "*Org Agenda*") (find-file "~/data/org/work.org" t) (find-file "~/data/org/notes.org" t) (execute-extended-command nil "" "org-fi") (eval-buffer) (execute-extended-command nil "eval-buffer" nil) (eval-buffer) (execute-extended-command nil "eval-buffer" nil) (eval-buffer) (execute-extended-command nil "eval-buffer" "eval-buf") (find-file "~/.emacs.d/org.el" t)))
(setq minibuffer-history '("dracula-theme" "window" "switch" "undo" "bind-key"))
(setq extended-command-history '("eval-buffer" "comment-region" "eval-buffer" "comment-region" "eval-buffer" "package-install" "eval-buffer" "gnus" "eval-buffer" "local-set-key" "eval-buffer" "describe-bindings" "eval-buffer"))
(setq buffer-name-history '("notes.org" "org.el" "notes.org" "org.el" "notes.org" "org.el" "themes.el" "init.el" "*Group*" "org.el" "init.el" "org.el" "work.org" "*Org Agenda*" "org.el" "*Help*" "org"))
(setq file-name-history '("~/.emacs.d/themes.el" "~/.emacs.d/org.el" "~/.emacs.d/init.el" "~/data/org/work.org" "~/data/org/notes.org" "~/.emacs.d/org.el" "~/data/org" "~/data/" "~/.emacs.d/org.el" "~/.emacs.d/org" "~/.emacs.d/init.el" "~/src/dotfiles/" "~/"))

68
emacs.d/init.el Normal file
View File

@@ -0,0 +1,68 @@
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa") t)
(package-initialize)
(unless (package-installed-p 'org)
(package-refresh-contents)
(package-install 'org))
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
(eval-when-compile
(require 'use-package))
(require 'bind-key)
(setq user-full-name "Paul Walker")
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(when (file-exists-p custom-file)
(load custom-file))
(when window-system
(tool-bar-mode 0)
(tooltip-mode 0))
;; initial window
(setq initial-frame-alist
'((width . 102) ; characters in a line
(height . 44))) ; number of lines
;; sebsequent frame
(setq default-frame-alist
'((width . 100) ; characters in a line
(height . 42))) ; number of lines
;; No welcome screen - opens directly in scratch buffer
(setq inhibit-startup-message t
initial-scratch-message ""
initial-major-mode 'fundamental-mode
inhibit-splash-screen t)
(setq visible-bell nil)
(setq ring-bell-function 'ignore)
(fset 'yes-or-no-p 'y-or-n-p)
(setq save-abbrevs 'silently)
(setq-default abbrev-mode t)
(setq gdb-many-windows t
gdb-show-main t)
(setq tramp-default-method "ssh"
tramp-backup-directory-alist backup-directory-alist
tramp-ssh-controlmaster-options "ssh")
(setq sentence-end-double-space nil)
(savehist-mode)
;; Recentf mode changes
(setq recentf-max-saved-items 1000
recentf-exclude '("/tmp/" "/ssh:"))
(recentf-mode)
(global-set-key [C-Z] 'undo)

128
emacs.d/org.el Normal file
View File

@@ -0,0 +1,128 @@
(setq org-directory "~/data/org")
(setq org-catch-invisible-edits t)
;; (setq org-hide-emphasis-markers t)
;; (setq org-src-fontify-natively t
;; org-src-tab-acts-natively t)
;; (setq org-startup-indented t
;; org-hide-leading-stars t)
;; (setq org-export-with-smart-quotes t
;; org-export-backends '(beamer html md))
;; (setq org-tag-alist (quote (("article" . ?a) ;; temporary
;; ("books" . ?b)
;; ("work" . ?w)
;; ("noexport" . ?x)
;; ("cash" . ?$))))
;; (setq org-todo-keywords
;; '((sequence "TODO(t)" "IN-PROGRESS(i)" "|" "DONE(d!)")
;; (sequence "WAITING(w@/!)" "|" "CANCELED(c@)")))
;; (setq org-todo-keyword-faces
;; (quote (("TODO" :foreground "red" :weight bold)
;; ("NEXT" :foreground "blue" :weight bold)
;; ("DONE" :foreground "forest green" :weight bold)
;; ("WAITING" :foreground "orange" :weight bold)
;; ("HOLD" :foreground "magenta" :weight bold)
;; ("CANCELLED" :foreground "forest green" :weight bold)
;; ("MEETING" :foreground "forest green" :weight bold)
;; ("PHONE" :foreground "forest green" :weight bold))))
;; (setq org-use-fast-todo-selection t)
;; (setq org-treat-S-cursor-todo-selection-as-state-change nil)
;; (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\)$" . org-mode))
;; (setq org-agenda-files (list
;; "~/data/org/notes.org"
;; "~/data/org/work.org"))
;; (setq org-directory "~/data/org/")
;; (setq org-default-notes-file "~/data/org/refile.org")
;; (setq org-deadline-warning-days 7
;; org-agenda-span 'fortnight
;; org-agenda-skip-scheduled-if-deadline-is-shown t)
;; (setq org-deadline-warning-days 7
;; org-agenda-span 'fortnight)
;; (setq org-capture-templates
;; '(
;; ("n"
;; "Note"
;; entry
;; (file+headline "~/data/org/notes.org" "Notes")
;; "* %? %(org-set-tags) :note:\n:PROPERTIES:\n:Created: %U\n:Linked: %A\n:END:\n%i" ; template
;; :prepend t ; properties
;; :empty-lines 1 ; properties
;; :created t ; properties
;; :kill-buffer t ; properties
;; ;; For notes or something regarding more work
;; )
;; (
;; "w" ; key
;; "Work" ; name
;; entry ; type
;; (file+headline "~/data/org/work.org" "Work") ; target
;; "* TODO %^{Todo} %(org-set-tags) :work:\n:PROPERTIES:\n:Created: %U\n:END:\n%i\n%?" ; template
;; :prepend t ; properties
;; :empty-lines 1 ; properties
;; :created t ; properties
;; :kill-buffer t ; properties
;; )
;; )
;; )
;; (setq org-refile-targets '((nil :maxlevel . 9)
;; (org-agenda-files :maxlevel . 9)))
;; (setq org-refile-use-outline-path t
;; org-outline-path-complete-in-steps nil)
;; (use-package org
;; :ensure org
;; :bind* (("M-m o a" . org-agenda)
;; ("M-m o c" . org-capture)
;; ("M-m o i" . org-insert-link)
;; ("M-m o s" . org-store-link)
;; ("M-m o S" . org-list-make-subtree)
;; ("M-m o A" . org-archive-subtree)
;; ("M-m o g" . org-goto)
;; ("M-m o l" . org-toggle-latex-fragment)
;; ("M-m o L" . org-toggle-link-display)
;; ("M-m o I" . org-toggle-inline-images)
;; ("M-m o k" . org-cut-subtree)
;; ("M-m o V" . org-reveal)
;; ("M-m o R" . org-refile)
;; ("M-m o y" . org-copy-subtree)
;; ("M-m o h" . org-toggle-heading)
;; ("M-m o H" . org-insert-heading-respect-content)
;; ("M-m o e" . org-export-dispatch)
;; ("M-m o u" . org-update-dblock)
;; ("M-m o U" . org-update-all-dblocks)
;; ("M-m o O" . org-footnote)
;; ("M-m o ]" . org-narrow-to-subtree)
;; ("M-m o [" . widen)
;; ("M-m o N" . org-add-note)
;; ("M-m o E" . org-set-effort)
;; ("M-m o B" . org-table-blank-field)
;; ("M-m o <" . org-date-from-calendar)
;; ("M-m o >" . org-goto-calendar)
;; ("M-m o d" . org-todo)
;; ("M-m o t" . org-set-tags-command)
;; ("M-m o w" . org-edit-special)
;; ("M-m o q" . org-edit-src-exit)
;; ("M-m o z" . clone-indirect-buffer-other-window)
;; ("M-m a s" . org-mark-subtree)
;; ("M-m o RET" . org-open-at-point))
;; :config
;; ;; More of those nice template expansion
;; (add-to-list 'org-structure-template-alist '("A" "#+DATE: ?")))
;; ;; (which-key-add-key-based-replacements
;; ;; "M-m o" "org mode prefix")
;; (global-set-key (kbd "<f12>") 'org-agenda)
;; (global-set-key (kbd "C-c c") 'org-capture)

22
emacs.d/recentf Normal file
View File

@@ -0,0 +1,22 @@
;;; Automatically generated by recentf on Wed Jun 24 15:54:30 2020.
(setq recentf-list
'(
"/home/pw921828/data/org/work.org"
"/home/pw921828/.emacs.d/org.el"
"/home/pw921828/data/org/notes.org"
"/home/pw921828/.emacs.d/themes.el"
"/home/pw921828/.emacs.d/init.el"
"/home/pw921828/.newsrc-dribble"
"/home/pw921828/.emacs.d/elpa/dracula-theme-20200527.1834/dracula-theme-autoloads.el"
"/home/pw921828/src/dotfiles/tmux.conf"
"/home/pw921828/src/dotfiles/tfrc"
"/home/pw921828/.tfrc"
))
(setq recentf-filter-changer-current 'nil)
;; Local Variables:
;; coding: utf-8-emacs
;; End:

19
emacs.d/themes.el Normal file
View File

@@ -0,0 +1,19 @@
(load-theme 'dracula t)
;; Don't change the font size for some headings and titles (default t)
;; (setq dracula-enlarge-headings nil)
;; ;; Adjust font size of titles level 1 (default 1.3)
;; (setq dracula-height-title-1 1.25)
;; ;; Adjust font size of titles level 2 (default 1.1)
;; (setq dracula-height-title-1 1.15)
;; ;; Adjust font size of titles level 3 (default 1.0)
;; (setq dracula-height-title-1 1.05)
;; ;; Adjust font size of document titles (default 1.44)
;; (setq dracula-height-doc-title 1.4)
;; ;; Use less pink and bold on the mode-line and minibuffer (default nil)
;; (setq dracula-alternate-mode-line-and-minibuffer t)