wilderjds
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Got tenure

Browse Source
master
Jacopo De Simoi 5 years ago
parent 23c56ce7eb
commit d2d0985d77
1 changed files with 113 additions and 100 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 213
      global.org

213
global.org
Unescape View File

@ -630,7 +630,7 @@
( mu4e-compose-signature . ( mu4e-compose-signature .
(concat (concat
"Jacopo De Simoi \n" "Jacopo De Simoi \n"
"Assistant Professor — U Toronto\n")))))) "Associate Professor — U Toronto\n"))))))
;; set `mu4e-context-policy` and `mu4e-compose-policy` to tweak when mu4e should ;; set `mu4e-context-policy` and `mu4e-compose-policy` to tweak when mu4e should
;; guess or ask the correct context, e.g. ;; guess or ask the correct context, e.g.
@ -999,76 +999,78 @@
(tags-todo "5m") (tags-todo "5m")
(tags-todo "20m"))))) (tags-todo "20m")))))
#+end_src #+end_src
Custom agenda view Custom agenda view
#+begin_src emacs-lisp - cleanup stuff (TODO, what is this doing, exactly? )
(defun org-agenda-prepare (&optional name) #+begin_src emacs-lisp
(let ((filter-alist (if org-agenda-persistent-filter (defun org-agenda-prepare (&optional name)
(with-current-buffer (let ((filter-alist (if org-agenda-persistent-filter
(get-buffer-create org-agenda-buffer-name) (with-current-buffer
(list `(tag . ,org-agenda-tag-filter) (get-buffer-create org-agenda-buffer-name)
`(re . ,org-agenda-regexp-filter) (list `(tag . ,org-agenda-tag-filter)
`(effort . ,org-agenda-effort-filter) `(re . ,org-agenda-regexp-filter)
`(cat . ,org-agenda-category-filter)))))) `(effort . ,org-agenda-effort-filter)
(if (org-agenda-use-sticky-p) `(cat . ,org-agenda-category-filter))))))
(progn (if (org-agenda-use-sticky-p)
(put 'org-agenda-tag-filter :preset-filter nil) (progn
(put 'org-agenda-category-filter :preset-filter nil) (put 'org-agenda-tag-filter :preset-filter nil)
(put 'org-agenda-regexp-filter :preset-filter nil) (put 'org-agenda-category-filter :preset-filter nil)
;; Popup existing buffer (put 'org-agenda-regexp-filter :preset-filter nil)
(org-agenda-prepare-window (get-buffer org-agenda-buffer-name) ;; Popup existing buffer
filter-alist) (org-agenda-prepare-window (get-buffer org-agenda-buffer-name)
(message "Sticky Agenda buffer, use `r' to refresh") filter-alist)
(or org-agenda-multi (org-agenda-fit-window-to-buffer)) (message "Sticky Agenda buffer, use `r' to refresh")
(throw 'exit "Sticky Agenda buffer, use `r' to refresh")) (or org-agenda-multi (org-agenda-fit-window-to-buffer))
(setq org-todo-keywords-for-agenda nil) (throw 'exit "Sticky Agenda buffer, use `r' to refresh"))
(put 'org-agenda-tag-filter :preset-filter (setq org-todo-keywords-for-agenda nil)
org-agenda-tag-filter-preset) (put 'org-agenda-tag-filter :preset-filter
(put 'org-agenda-category-filter :preset-filter org-agenda-tag-filter-preset)
org-agenda-category-filter-preset) (put 'org-agenda-category-filter :preset-filter
(put 'org-agenda-regexp-filter :preset-filter org-agenda-category-filter-preset)
org-agenda-regexp-filter-preset) (put 'org-agenda-regexp-filter :preset-filter
(put 'org-agenda-effort-filter :preset-filter org-agenda-regexp-filter-preset)
org-agenda-effort-filter-preset) (put 'org-agenda-effort-filter :preset-filter
(if org-agenda-multi org-agenda-effort-filter-preset)
(progn (if org-agenda-multi
(setq buffer-read-only nil) (progn
(goto-char (point-max)) (setq buffer-read-only nil)
(unless (or (bobp) org-agenda-compact-blocks (goto-char (point-max))
(not org-agenda-block-separator)) (unless (or (bobp) org-agenda-compact-blocks
(insert "\n" (not org-agenda-block-separator))
(if (stringp org-agenda-block-separator) (insert "\n"
org-agenda-block-separator (if (stringp org-agenda-block-separator)
(make-string (window-width) org-agenda-block-separator)) org-agenda-block-separator
"\n\n")) (make-string (window-width) org-agenda-block-separator))
(narrow-to-region (point) (point-max))) "\n\n"))
(setq org-done-keywords-for-agenda nil) (narrow-to-region (point) (point-max)))
;; Setting any org variables that are in org-agenda-local-vars (setq org-done-keywords-for-agenda nil)
;; list need to be done after the prepare call ;; Setting any org variables that are in org-agenda-local-vars
(org-agenda-prepare-window ;; list need to be done after the prepare call
(get-buffer-create org-agenda-buffer-name) filter-alist) (org-agenda-prepare-window
(setq buffer-read-only nil) (get-buffer-create org-agenda-buffer-name) filter-alist)
(org-agenda-reset-markers) (setq buffer-read-only nil)
(let ((inhibit-read-only t)) (erase-buffer)) (org-agenda-reset-markers)
(org-agenda-mode) (let ((inhibit-read-only t)) (erase-buffer))
(setq org-refile-targets '((org-agenda-files :level . 1))) (org-agenda-mode)
(setq org-refile-use-outline-path 'file) (setq org-refile-targets '((org-agenda-files :level . 1)))
(setq org-agenda-buffer (current-buffer)) (setq org-refile-use-outline-path 'file)
(setq org-agenda-contributing-files nil) (setq org-agenda-buffer (current-buffer))
(setq org-agenda-columns-active nil) (setq org-agenda-contributing-files nil)
(org-agenda-prepare-buffers (org-agenda-files nil 'ifmode)) (setq org-agenda-columns-active nil)
(setq org-todo-keywords-for-agenda (org-agenda-prepare-buffers (org-agenda-files nil 'ifmode))
(org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keywords-for-agenda
(setq org-done-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda))
(org-uniquify org-done-keywords-for-agenda)) (setq org-done-keywords-for-agenda
(setq org-agenda-last-prefix-arg current-prefix-arg) (org-uniquify org-done-keywords-for-agenda))
(setq org-agenda-this-buffer-name org-agenda-buffer-name) (setq org-agenda-last-prefix-arg current-prefix-arg)
(and name (not org-agenda-name) (setq org-agenda-this-buffer-name org-agenda-buffer-name)
(setq-local org-agenda-name name))) (and name (not org-agenda-name)
(setq buffer-read-only nil)))) (setq-local org-agenda-name name)))
(setq buffer-read-only nil))))
(add-hook 'org-agenda-mode-hook
(lambda () (setq truncate-lines t (add-hook 'org-agenda-mode-hook
show-trailing-whitespace nil))) (lambda () (setq truncate-lines t
show-trailing-whitespace nil)))
#+end_src #+end_src
*** Automate saving *** Automate saving
@ -1197,7 +1199,15 @@
(setq org-clock-clocktable-default-properties '(:maxlevel 2 :scope subtree)) (setq org-clock-clocktable-default-properties '(:maxlevel 2 :scope subtree))
(org-clock-persistence-insinuate) (org-clock-persistence-insinuate)
#+end_src #+end_src
*** Tangle to different files *** COMMENT Tangle to different files
This has been broken by commit 3ebee033103ccd3c3e8c354bad01c15332b9d901
and a2cb9b853d30fc301f4553d1556dba4ee6bc1ead.
Try some workarounds to pinpoint the issue:
#+begin_src emacs-lisp
(setq org-babel-tangle-use-relative-file-links nil)
#+end_src
----
This is some some super-clever stuff. See This is some some super-clever stuff. See
[https://emacs.stackexchange.com/questions/39032/tangle-the-same-src-block-to-different-files] [https://emacs.stackexchange.com/questions/39032/tangle-the-same-src-block-to-different-files]
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -1236,35 +1246,37 @@
"Can be used as :around advice for `org-babel-tangle-single-block'. "Can be used as :around advice for `org-babel-tangle-single-block'.
If the :tangle header arg is a list of files. Handle all files" If the :tangle header arg is a list of files. Handle all files"
(let* ((info (org-babel-get-src-block-info)) (let* ((info (org-babel-get-src-block-info))
(params (nth 2 info)) (params (nth 2 info))
(tfiles (cdr (assoc :tangle params)))) (tfiles (cdr (assoc :tangle params))))
(message nil) (message nil)
(if (null (and only-this-block (consp tfiles))) (if (null (and only-this-block (consp tfiles)))
(funcall oldfun block-counter only-this-block) (funcall oldfun block-counter only-this-block)
(cl-assert (listp tfiles) nil (cl-assert (listp tfiles) nil
":tangle only allows a tangle file name or a list of tangle file names") ":tangle only allows a tangle file name or a list of tangle file names")
(let ((ret (mapcar (let ((ret (mapcar
(lambda (tfile) (lambda (tfile)
(message tfile) (message tfile)
(sleep-for 1) (sleep-for 1)
(let (old-get-info) (let (old-get-info)
(cl-letf* (((symbol-function 'old-get-info) (symbol-function 'org-babel-get-src-block-info)) (cl-letf* (((symbol-function 'old-get-info) (symbol-function 'org-babel-get-src-block-info))
((symbol-function 'org-babel-get-src-block-info) ((symbol-function 'org-babel-get-src-block-info)
`(lambda (&rest get-info-args) `(lambda (&rest get-info-args)
(let* ((info (apply 'old-get-info get-info-args)) (let* ((info (apply 'old-get-info get-info-args))
(params (nth 2 info)) (params (nth 2 info))
(tfile-cons (assoc :tangle params))) (tfile-cons (assoc :tangle params)))
(setcdr tfile-cons ,tfile) (setcdr tfile-cons ,tfile)
info)))) info))))
(funcall oldfun block-counter only-this-block)))) (funcall oldfun block-counter only-this-block))))
tfiles))) tfiles)))
(if only-this-block (if only-this-block
(list (cons (cl-caaar ret) (mapcar #'cadar ret))) (list (cons (cl-caaar ret) (mapcar #'cadar ret)))
ret))))) ret)))))
(advice-add 'org-babel-tangle-collect-blocks :override #'org-babel-tangle-collect-blocks-handle-tangle-list) (advice-add 'org-babel-tangle-collect-blocks :override
(advice-add 'org-babel-tangle-single-block :around #'org-babel-tangle-single-block-handle-tangle-list) #'org-babel-tangle-collect-blocks-handle-tangle-list)
(advice-add 'org-babel-tangle-single-block :around
#'org-babel-tangle-single-block-handle-tangle-list)
#+end_src #+end_src
*** Append tangle *** Append tangle
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -2205,6 +2217,7 @@
(set-face-bold 'bold nil) (set-face-bold 'bold nil)
(wilder/fixup-faces) (wilder/fixup-faces)
(with-eval-after-load "info" (wilder/fixup-faces) nil) (with-eval-after-load "info" (wilder/fixup-faces) nil)
(with-eval-after-load "mu4e" (wilder/fixup-faces) nil)
(with-eval-after-load "vterm" (wilder/fixup-faces) nil) (with-eval-after-load "vterm" (wilder/fixup-faces) nil)
#+end_src #+end_src

Write Preview
Loading…
Cancel
Save