From cb86965939a5bd18e2488bd5c6908b793d4f7692 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Thu, 10 May 2018 10:16:06 -0500 Subject: [PATCH] Stuff --- agenda-files.el | 2 +- config.org | 75 ++++++++++++++++++++++++++++++++----------------- custom.el | 10 +++++-- 3 files changed, 57 insertions(+), 30 deletions(-) diff --git a/agenda-files.el b/agenda-files.el index 3eb4150..12d7b19 100644 --- a/agenda-files.el +++ b/agenda-files.el @@ -1,2 +1,2 @@ -(quote ("~/MEGA/org/agenda/people.org" "/home/benson/MEGA/org/agenda/work.org" "/home/benson/MEGA/org/agenda/refile.org" "/home/benson/MEGA/org/agenda/school.org" "~/MEGA/org/agenda/tech.org" "/home/benson/MEGA/org/agenda/personal.org")) +(quote ("~/MEGA/org/agenda/work.org" "~/MEGA/org/agenda/tech.org" "~/MEGA/org/agenda/school.org" "~/MEGA/org/agenda/refile.org" "~/MEGA/org/agenda/personal.org" "~/MEGA/org/agenda/people.org")) diff --git a/config.org b/config.org index 8e6adbc..00da691 100644 --- a/config.org +++ b/config.org @@ -231,7 +231,7 @@ #+BEGIN_SRC emacs-lisp (require 'exwm-randr) ;No dash when using intel driver -(setq exwm-randr-workspace-output-plist '(1 "HDMI1" 3 "HDMI1")) +(setq exwm-randr-workspace-output-plist '(2 "HDMI1" 3 "HDMI1")) (exwm-randr-enable) #+END_SRC ** Startup @@ -754,6 +754,7 @@ #+BEGIN_SRC emacs-lisp (use-package evil) (global-set-key (kbd "C-z") 'evil-local-mode) + (setq evil-insert-state-modes nil) (setq evil-default-state 'emacs) (evil-set-initial-state 'term-mode 'emacs) (evil-set-initial-state 'help-mode 'emacs) @@ -851,6 +852,7 @@ ;; "Gohu Gohufont" ))) (add-to-list 'default-frame-alist `(font . ,font))) + ;;(set-frame-font "RobotoMono-11") #+END_SRC * Tools ** Encryption @@ -872,6 +874,7 @@ (global-set-key (kbd "") 'org-capture) (global-set-key (kbd "C-x C-o") 'org-switchb) (define-key org-mode-map (kbd "C-c SPC") nil) +(define-key org-agenda-mode-map (kbd "a") 'org-agenda) #+END_SRC *** Should always use visual-line-mode #+BEGIN_SRC emacs-lisp @@ -946,9 +949,9 @@ (setq org-default-notes-file "~/MEGA/org-old/notes.org") (setq org-capture-templates '(("t" "Todo" entry (file "~/MEGA/org/agenda/refile.org") - "* TODO %?\n%U\n%a\n") + "* STUFF %?\n :PROPERTIES:\n :CREATED: %U\n :VIEWING: %a\n :END:") ("s" "Stuff" entry (file "~/MEGA/org/agenda/refile.org") - "* TODO %?\n%U") + "* STUFF %?\n :PROPERTIES:\n :CREATED: %U\n :VIEWING: %a\n :END:") ("f" "Reference" entry (file "~/MEGA/org/agenda/reference.org") "* %?\n%i%U") ("a" "Appointment" entry (file "~/MEGA/org/agenda/refile.org") @@ -1022,11 +1025,13 @@ (setq org-agenda-window-setup 'other-window) (setq org-agenda-restore-windows-after-quit t) (setq org-todo-keywords - '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)") + '((sequence "STUFF(s)" "|") + (sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)") (sequence "WAIT(w@/!)" "HOLD(h)" "|" "CANCELLED(c@/!)"))) (setq org-todo-keyword-faces - '(("NEXT" :foreground "cyan" :weight bold) + '(("STUFF" :foreground "goldenrod" :weight bold) + ("NEXT" :foreground "cyan" :weight bold) ("WAIT" :foreground "yellow" :weight bold) ("HOLD" :foreground "red" :weight bold) ("CANCELLED" :foreground "dark gray" :weight bold))) @@ -1046,7 +1051,8 @@ '(("~/MEGA/org/agenda/someday.org" :maxlevel . 9) ("~/MEGA/org/agenda/tickler.org" :maxlevel . 9) ("~/MEGA/org/agenda/reference.org" :maxlevel . 9) - ("~/MEGA/org/agenda/reads.org" :maxlevel . 9))) + ("~/MEGA/org/agenda/reads.org" :maxlevel . 9) + ("~/MEGA/org/entries/important.gpg" :maxlevel . 9))) ; Targets include this file and any file contributing to the agenda - up to 9 levels deep (setq org-refile-targets `((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9) @@ -1056,9 +1062,6 @@ (lambda () (not (member "ARCHIVE" (org-get-tags-at (point) nil))))) - ; Use full outline paths for refile targets - we file directly with IDO - (setq org-refile-use-outline-path 'file) - ; Targets complete directly with IDO (setq org-outline-path-complete-in-steps nil) @@ -1652,6 +1655,7 @@ #+END_SRC **** sync with google calendar #+BEGIN_SRC emacs-lisp + (require 'url-http) (use-package org-caldav) (use-package oauth2) (setq epa-pinentry-mode 'loopback) @@ -1663,7 +1667,8 @@ (set-buffer (find-file-noselect filename)) (let ((var (eval (read (buffer-string))))) (setq org-caldav-oauth2-client-id (car var) - org-caldav-oauth2-client-secret (cadr var)))))) + org-caldav-oauth2-client-secret (cadr var))) + (kill-buffer)))) (setq org-caldav-url 'google org-caldav-calendar-id "jqeua8pamjrclakq3bg8mpnlis@group.calendar.google.com" @@ -1751,11 +1756,11 @@ (setq-default elfeed-search-filter "@6-months-ago +unread -youtube") (define-key elfeed-search-mode-map "U" 'elfeed-search-fetch-visible) (define-key elfeed-search-mode-map "Y" (lambda () - (interactive) - (elfeed-search-set-filter "+youtube +unread"))) + (interactive) + (elfeed-search-set-filter "+youtube +unread"))) (define-key elfeed-search-mode-map "h" (lambda () - (interactive) - (elfeed-search-set-filter nil))) + (interactive) + (elfeed-search-set-filter nil))) (defun elfeed-show-youtube-dl () "Download the current entry with youtube-dl." @@ -1804,6 +1809,8 @@ (format "%s %s" cmd list-switch) cmd) (mapconcat #'expand-file-name file-list "\" \""))))) + + (define-key dired-mode-map "r" 'dired-start-process) (defun watch-youtube () (interactive) @@ -1893,6 +1900,15 @@ (lambda () (setq indent-tabs-mode nil))) #+END_SRC +*** Geiser + #+BEGIN_SRC emacs-lisp + (use-package geiser) + (setq geiser-default-implementation 'chez) + #+END_SRC +*** Paredit + #+BEGIN_SRC emacs-lisp + (use-package paredit) + #+END_SRC ** Freekeys #+BEGIN_SRC emacs-lisp (use-package free-keys) @@ -1901,9 +1917,9 @@ ** Eww #+BEGIN_SRC emacs-lisp (global-set-key (kbd "C-c g") - (lambda () - (interactive) - (w3m-goto-url "https://google.com"))) + (lambda () + (interactive) + (w3m-goto-url "https://google.com"))) #+END_SRC * New ** Swiper or counsel-grep @@ -1928,6 +1944,13 @@ (add-to-list 'auto-mode-alist '("\\.frag\\'" . glsl-mode)) (add-to-list 'auto-mode-alist '("\\.geom\\'" . glsl-mode)) #+END_SRC +** pdf-tools use isearch + #+BEGIN_SRC emacs-lisp + (require 'pdf-tools) + (define-key pdf-view-mode-map (kbd "C-s") 'isearch-forward) + (define-key pdf-view-mode-map (kbd "d") (lambda () (interactive) (pdf-view-next-line-or-next-page 8))) + (define-key pdf-view-mode-map (kbd "u") (lambda () (interactive) (pdf-view-previous-line-or-previous-page 8))) + #+END_SRC * Broken ** mu4e *** General config @@ -2083,15 +2106,15 @@ #+BEGIN_SRC emacs-lisp# (use-package multi-term) (define-minor-mode ctd-mode - "This is the mode for the CoderTillDeath" - :init-value t - :lighter " ctd" - :keymap (let ((map (make-sparse-keymap))) - (define-key map (kbd "M-e") 'launch-program) - (define-key map (kbd "C-x p") 'launch-program) - (define-key map (kbd "M-`") 'multi-term) - (define-key map (kbd "M-1") 'windresize) - map)) + "This is the mode for the CoderTillDeath" + :init-value t + :lighter " ctd" + :keymap (let ((map (make-sparse-keymap))) + (define-key map (kbd "M-e") 'launch-program) + (define-key map (kbd "C-x p") 'launch-program) + (define-key map (kbd "M-`") 'multi-term) + (define-key map (kbd "M-1") 'windresize) + map)) (ctd-mode 1) #+END_SRC *** Precedence diff --git a/custom.el b/custom.el index be66163..46a33cd 100644 --- a/custom.el +++ b/custom.el @@ -5,16 +5,20 @@ ;; If there is more than one, they won't work right. '(custom-safe-themes (quote - ("b9e9ba5aeedcc5ba8be99f1cc9301f6679912910ff92fdf7980929c2fc83ab4d" "c74e83f8aa4c78a121b52146eadb792c9facc5b1f02c917e3dbb454fca931223" "84d2f9eeb3f82d619ca4bfffe5f157282f4779732f48a5ac1484d94d5ff5b279" "1a094b79734450a146b0c43afb6c669045d7a8a5c28bc0210aba28d36f85d86f" "7997e0765add4bfcdecb5ac3ee7f64bbb03018fb1ac5597c64ccca8c88b1262f" "a27c00821ccfd5a78b01e4f35dc056706dd9ede09a8b90c6955ae6a390eb1c1e" "3c83b3676d796422704082049fc38b6966bcad960f896669dfc21a7a37a748fa" "003a9aa9e4acb50001a006cfde61a6c3012d373c4763b48ceb9d523ceba66829" "c616e584f7268aa3b63d08045a912b50863a34e7ea83e35fcab8537b75741956" "b59d7adea7873d58160d368d42828e7ac670340f11f36f67fa8071dbf957236a" default))) + ("05d009b7979e3887c917ef6796978d1c3bbe617e6aa791db38f05be713da0ba0" "2d5c40e709543f156d3dee750cd9ac580a20a371f1b1e1e3ecbef2b895cf0cd2" "63aff36a40f41b28b0265ac506faa098fd552fac0a1813b745ba7c27efa5a943" "158013ec40a6e2844dbda340dbabda6e179a53e0aea04a4d383d69c329fba6e6" "b181ea0cc32303da7f9227361bb051bbb6c3105bb4f386ca22a06db319b08882" "251348dcb797a6ea63bbfe3be4951728e085ac08eee83def071e4d2e3211acc3" "b9e9ba5aeedcc5ba8be99f1cc9301f6679912910ff92fdf7980929c2fc83ab4d" "c74e83f8aa4c78a121b52146eadb792c9facc5b1f02c917e3dbb454fca931223" "84d2f9eeb3f82d619ca4bfffe5f157282f4779732f48a5ac1484d94d5ff5b279" "1a094b79734450a146b0c43afb6c669045d7a8a5c28bc0210aba28d36f85d86f" "7997e0765add4bfcdecb5ac3ee7f64bbb03018fb1ac5597c64ccca8c88b1262f" "a27c00821ccfd5a78b01e4f35dc056706dd9ede09a8b90c6955ae6a390eb1c1e" "3c83b3676d796422704082049fc38b6966bcad960f896669dfc21a7a37a748fa" "003a9aa9e4acb50001a006cfde61a6c3012d373c4763b48ceb9d523ceba66829" "c616e584f7268aa3b63d08045a912b50863a34e7ea83e35fcab8537b75741956" "b59d7adea7873d58160d368d42828e7ac670340f11f36f67fa8071dbf957236a" default))) '(debug-on-error nil) '(global-company-mode t) '(iswitchb-mode t) '(line-number-mode nil) - '(org-agenda-files nil) + '(org-agenda-files + (quote + ("~/MEGA/org/agenda/learn.org" "~/MEGA/org/agenda/work.org" "~/MEGA/org/agenda/tech.org" "~/MEGA/org/agenda/school.org" "~/MEGA/org/agenda/refile.org" "~/MEGA/org/agenda/personal.org" "~/MEGA/org/agenda/people.org"))) '(org-export-backends (quote (ascii beamer html icalendar latex))) + '(org-trello-current-prefix-keybinding "C-c o") '(package-selected-packages (quote - (treemacs-projectile treemacs org-wunderlist youtube-dl irony dired-aux elfeed-org elfeed calfw-ical mu4e org-protocol ox-reveal ob-clojure ob-core org-caldav calfw-org org-habit epa-file switch-window ibuf-ext evil company helm-config exwm-randr exwm-config exwm-systemtray which-key use-package glsl-mode oauth2 ng2-mode transpose-frame org clj-refactor clojure-snippets common-lisp-snippets company-auctex go-snippets haskell-snippets java-snippets ensime yasnippet-bundle yasnippet helm-exwm csharp-mode smex dashboard matlab-mode beacon company-flx dired-du diredful free-keys elfeed-goodies exwm-surf el-autoyas flycheck-clojure flycheck-haskell flycheck-irony flycheck-pycheckers company-erlang company-ghc company-ghci company-go company-lua company-arduino company-c-headers company-cmake company-distel company-lsp company-irony ac-c-headers ac-html ac-html-angular ac-slime ac-cider ace-window exwm angular-mode neotree smart-mode-line-powerline-theme smart-mode-line airline-themes counsel-projectile helm-projectile projectile ace-jump-mode ace-jump-buffer ace-jump-helm-line resize-window volume babel babel-repl lua-mode pocket-reader el-pocket magit-svn magit dirtree mu4e-alert habitica scala-mode auto-complete w3m wanderlust calfw calfw-gcal org-gcal nlinum nlinum-relative color-theme-modern linum-relative helm i3wm org-bullets auctex windresize slime powerline-evil persistent-soft pdf-tools multi-term ergoemacs-mode epresent engine-mode cyberpunk-theme cider))) + (dired+ quelpa-use-package geiser treemacs-projectile treemacs org-wunderlist youtube-dl irony dired-aux elfeed-org elfeed calfw-ical mu4e org-protocol ox-reveal ob-clojure ob-core org-caldav calfw-org org-habit epa-file switch-window ibuf-ext evil helm-config exwm-randr exwm-config exwm-systemtray use-package glsl-mode oauth2 ng2-mode transpose-frame org clojure-snippets common-lisp-snippets go-snippets haskell-snippets java-snippets ensime yasnippet-bundle yasnippet helm-exwm smex matlab-mode beacon company-flx dired-du diredful free-keys elfeed-goodies exwm-surf el-autoyas flycheck-clojure flycheck-haskell flycheck-irony flycheck-pycheckers company-erlang company-ghc company-ghci company-go company-lua company-arduino company-c-headers company-cmake company-distel company-irony ac-c-headers ac-html ac-html-angular ac-slime ac-cider ace-window exwm angular-mode neotree smart-mode-line-powerline-theme smart-mode-line helm-projectile projectile ace-jump-mode ace-jump-buffer ace-jump-helm-line resize-window volume babel babel-repl lua-mode pocket-reader el-pocket magit-svn magit dirtree mu4e-alert habitica scala-mode auto-complete w3m calfw calfw-gcal org-gcal nlinum nlinum-relative color-theme-modern linum-relative helm i3wm org-bullets windresize slime powerline-evil persistent-soft pdf-tools multi-term ergoemacs-mode epresent engine-mode))) + '(safe-local-variable-values (quote ((org-log-done)))) '(send-mail-function (quote mailclient-send-it)) '(show-paren-mode t) '(sml/mode-width