| @@ -6,33 +6,6 @@ | |||||
| #+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no | #+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no | ||||
| * Cray specific overrides | * Cray specific overrides | ||||
| ** ~/.emacs.d/local.el | |||||
| #+BEGIN_SRC emacs-lisp :tangle (tangle/file ".emacs.d/local.el" (bound-and-true-p cray-p)) | |||||
| (defun cray/get-bugs () | |||||
| (with-current-buffer (current-buffer) | |||||
| (setq input (save-restriction (widen) | |||||
| (buffer-substring-no-properties | |||||
| (point-min) (point-max)))) | |||||
| (setq bugline "Bugs Affected[:] .*") | |||||
| (if (s-match bugline input) | |||||
| (mapcar 'car (s-match-strings-all | |||||
| "[7-9][[:digit:]]\\{5\\}" (car (mapcar 'car (s-match-strings-all bugline input))))) | |||||
| '("NO BUGS?") | |||||
| ) | |||||
| ) | |||||
| ) | |||||
| (defun cray/get-bugzilla-cmds () | |||||
| (loop for bug in (cray/get-bugs) | |||||
| collect (concat | |||||
| "env PYTHONWARNINGS='ignore:Unverified HTTPS request' bugzilla --nosslverify --bugzilla=https://bugzilla.us.cray.com/xmlrpc.cgi query --outputformat='%{summary}' --bug_id " bug) | |||||
| ) | |||||
| ) | |||||
| (defun cray/get-descriptions () | |||||
| (loop for out in (cray/get-bugzilla-cmds) | |||||
| collect (shell-command-to-string out)) | |||||
| ) | |||||
| #+END_SRC | |||||
| ** ~/.gnus | ** ~/.gnus | ||||
| Use gnus in emacs for email. Outside of normal emacs since its easier. | Use gnus in emacs for email. Outside of normal emacs since its easier. | ||||