|
|
|
@@ -6,33 +6,6 @@ |
|
|
|
#+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no |
|
|
|
|
|
|
|
* 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 |
|
|
|
|
|
|
|
Use gnus in emacs for email. Outside of normal emacs since its easier. |
|
|
|
|