maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

chore(glittershark): Remove everything Urbint related

Browse source 
bye urbint!

Change-Id: I87ded275e6e5298e4e29c38775bae47a8fc07bac
Reviewed-on: https://cl.tvl.fyi/c/depot/+/2149
Reviewed-by: glittershark <grfn@gws.fyi>
Tested-by: BuildkiteCI
This commit is contained in:
Griffin Smith 2020-11-25 20:44:31 -05:00 • committed by glittershark
parent 3cbef06629
commit 8eb7c6a515
9 changed files with 7 additions and 197 deletions
Download patch file Download diff file Expand all files Collapse all files

89
users/glittershark/emacs.d/config.el
View file

@ -284,34 +284,6 @@
(setq doom-modeline-height 12)
(load "/home/grfn/code/org-clubhouse/org-clubhouse.el")
(use-package! org-clubhouse
:config
(setq org-clubhouse-state-alist
'(("PROPOSED" . "Proposed")
("BACKLOG" . "Backlog")
("TODO" . "Scheduled")
("ACTIVE" . "In Progress")
("PR" . "Peer Review")
("TESTING" . "Stakeholder Review")
("DONE" . "Completed"))
org-clubhouse-username "griffin"
org-clubhouse-claim-story-on-status-update
'("ACTIVE" "PR" "TESTING" "DONE")
org-clubhouse-create-stories-with-labels 'existing
org-clubhouse-workflow-name "Urbint")
(defun grfn/sprint-tasks ()
(interactive)
(find-file "/home/griffin/notes/work.org")
(goto-char 1)
(search-forward "* Sprint Tasks")
(goto-eol) (insert-char ?\n)
(org-clubhouse-headlines-from-query
2
"owner:griffin state:Scheduled")))
;; Should really figure out which of these is correct, eventually
@ -521,34 +493,6 @@
; )
(defun urbint/format-haskell-source ()
(interactive)
(let ((output-buffer (generate-new-buffer "brittany-out"))
(config-file-path
(concat (string-trim
(shell-command-to-string "stack path --project-root"))
"/brittany.yaml")))
(when (= 0 (call-process-region
(point-min) (point-max)
"stack"
nil output-buffer nil
"exec" "--" "brittany" "--config-file" config-file-path))
(let ((pt (point))
(wst (window-start))
(formatted-source (with-current-buffer output-buffer
(buffer-string))))
(erase-buffer)
(insert formatted-source)
(goto-char pt)
(set-window-start nil wst)))))
(add-hook
'before-save-hook
(lambda ()
(when (and (eq major-mode 'haskell-mode)
(bound-and-true-p brittany-haskell-mode))
(urbint/format-haskell-source))))
(require 'alert)
(setq alert-default-style 'libnotify)
@ -1129,39 +1073,6 @@
)
)
;; (use-package! mu4e
;; :config
;; (setq mu4e-contexts
;; `(,(make-mu4e-context
;; :name "work"
;; :match-func
;; (lambda (msg)
;; (when msg
;; (string-match-p "^/work"
;; (mu4e-message-field msg :maildir))))
;; :vars
;; '((user-mail-address . "griffin@urbint.com")))
;; ,(make-mu4e-context
;; :name "personal"
;; :match-func
;; (lambda (msg)
;; (when msg
;; (string-match-p "^/personal"
;; (mu4e-message-field msg :maildir))))
;; :vars
;; '((user-mail-address . "root@gws.fyi"))))
;; mu4e-maildir (expand-file-name "mail" "~")
;; sendmail-program "msmtp"
;; send-mail-function #'smtpmail-send-it
;; message-sendmail-f-is-evil t
;; message-sendmail-extra-arguments '("--read-envelope-from")
;; message-send-mail-function #'message-send-mail-with-sendmail)
;; (set-email-account!
;; "work"
;; '((user-mail-address . "griffin@urbint.com")
;; (smtmpmail-smtp-user . "griffin@urbint.com"))))
(solaire-global-mode -1)
(use-package! wsd-mode)