From bd780479249e83bf8c986340f48940dc6870fbfa Mon Sep 17 00:00:00 2001 From: Paul Walker Date: Thu, 25 Jun 2020 10:37:54 +0100 Subject: [PATCH] emacs: import some stuff --- .gitignore | 4 ++ emacs.d/bookmarks | 10 ++++ emacs.d/custom.el | 13 +++++ emacs.d/history | 11 ++++ emacs.d/init.el | 68 ++++++++++++++++++++++++ emacs.d/org.el | 128 ++++++++++++++++++++++++++++++++++++++++++++++ emacs.d/recentf | 22 ++++++++ emacs.d/themes.el | 19 +++++++ 8 files changed, 275 insertions(+) create mode 100644 emacs.d/bookmarks create mode 100644 emacs.d/custom.el create mode 100644 emacs.d/history create mode 100644 emacs.d/init.el create mode 100644 emacs.d/org.el create mode 100644 emacs.d/recentf create mode 100644 emacs.d/themes.el diff --git a/.gitignore b/.gitignore index e5f7a48..b730b9f 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,5 @@ bak +*~ +*.elc +emacs.d/elpa/ +emacs.d/auto-save-list diff --git a/emacs.d/bookmarks b/emacs.d/bookmarks new file mode 100644 index 0000000..7e5665c --- /dev/null +++ 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)) +) \ No newline at end of file diff --git a/emacs.d/custom.el b/emacs.d/custom.el new file mode 100644 index 0000000..d6ee617 --- /dev/null +++ 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. + ) diff --git a/emacs.d/history b/emacs.d/history new file mode 100644 index 0000000..01190aa --- /dev/null +++ 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/" "~/")) diff --git a/emacs.d/init.el b/emacs.d/init.el new file mode 100644 index 0000000..4cd156a --- /dev/null +++ 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) diff --git a/emacs.d/org.el b/emacs.d/org.el new file mode 100644 index 0000000..e28b65c --- /dev/null +++ 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 "") 'org-agenda) +;; (global-set-key (kbd "C-c c") 'org-capture) diff --git a/emacs.d/recentf b/emacs.d/recentf new file mode 100644 index 0000000..f198618 --- /dev/null +++ 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: diff --git a/emacs.d/themes.el b/emacs.d/themes.el new file mode 100644 index 0000000..815b19b --- /dev/null +++ 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)