emacs: import some stuff

2020-06-25 10:37:54 +01:00
parent d92f9b37de
commit bd78047924
8 changed files with 275 additions and 0 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,5 @@
 bak
+*~
+*.elc
+emacs.d/elpa/
+emacs.d/auto-save-list
--- a/emacs.d/bookmarks
+++ b/emacs.d/bookmarks
@@ -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))
+)
--- a/emacs.d/custom.el
+++ b/emacs.d/custom.el
@@ -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.
+ )
--- a/emacs.d/history
+++ b/emacs.d/history
@@ -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/" "~/"))
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -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)
--- a/emacs.d/org.el
+++ b/emacs.d/org.el
@@ -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)
--- a/emacs.d/recentf
+++ b/emacs.d/recentf
@@ -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:
--- a/emacs.d/themes.el
+++ b/emacs.d/themes.el
@@ -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)