Bring things up to date with current checkout before I fix indentation... again

Makefile

@@ -49,11 +49,8 @@ tangle-next:
 	$(MAKE) generation
 	$(MAKE) next
 	$(MAKE) copy GEN=$(NEXT)
-	$(MAKE) set-last NEXT=$(NEXT)
-	@echo Tangled for hostname $(HOST)
-
-set-last:
 	@echo $(NEXT) > .last
+	@echo Tangled for hostname $(HOST)
 
 copy:
 	cd $(PWD)/generation/$(GEN) && find . -type f -exec rm -f $(DEST)/{} \;

dotprofile.org

@@ -194,7 +194,8 @@ General clone into ~/src/TLD/some/dir from a git uri function.
 Tries to strip out miscellany that we don't need from the uri. Also allows
 wrapper functions that simplify usage.
 
-Note the gh and bb wrappers which make it easy to get repos from github and bitbucket.
+Note the bb, gh, and mt wrappers which make it easy to get repos from bitbucket,
+github, and my own sites respectively.
 
 Usage is simply:
 
@@ -263,6 +264,11 @@ try_git git://example.tld/some/random/path.git checks out to
     fi
   }
 
+  mt()
+  {
+    try_git "ssh://gitea@git.functionalidiot.com:2222/${1}" "${2:-master}"
+  }
+
   gh()
   {
     try_git "https://github.com/${1}" "${2:-master}"
@@ -398,6 +404,16 @@ alias kille=emacsclient -e "(kill-emacs)"
 #+BEGIN_SRC sh :tangle (tangle/file ".profile" (bound-and-true-p macos-p))
 alias o='open -a'
 #+END_SRC
+
+Pock crap
+#+BEGIN_SRC sh :tangle (tangle/file ".profile" (bound-and-true-p macos-p))
+  fixpock()
+  {
+    close Pock
+    open -a Pock
+  }
+#+END_SRC
+
 ** git
 #+BEGIN_SRC sh :tangle (tangle/file ".profile" (bound-and-true-p git-p))
 alias g=git

emacs.org

@@ -414,27 +414,28 @@ Also have the scratch buffer be empty instead of have the derp message I never r
 List of fonts in order of preference. Set preferred font list when we're in a
 gui emacs session.
 
+FIXME
+
 #+BEGIN_SRC emacs-lisp :tangle no
-    (defvar my/gui-fonts
-      '(
-        "ComicCode"
-        "Comic Code"
-        "PragmataPro"
-        "Pragmata Pro" ;; Seems to register differently on osx than X
-        "Source Code Pro"
-        "Menlo"
-        "Monaco"
-        )
+  (defvar my/gui-fonts
+    '(
+      "ComicCode"
+      "Comic Code"
+      "PragmataPro"
+      "Pragmata Pro" ;; Seems to register differently on osx than X
+      "Source Code Pro"
+      "Menlo"
+      "Monaco"
       )
-   (with-no-warnings
-     (when window-system
-       (if (find-font (font-spec :name (car my/gui-fonts)))
-           (progn (set-frame-font (car my/gui-fonts))
-                  (set-face-attribute 'default nil :height 180))
-         (when (eq system-type 'darwin)
-      (progn (set-gui-font (cdr my/gui-fonts))))
-       )
-     )
+    )
+  (with-no-warnings
+    (when window-system
+      (if (find-font (font-spec :name (car my/gui-fonts)))
+          (progn (set-frame-font (car my/gui-fonts))
+                 (set-face-attribute 'default nil :height 180))
+        (progn (set-gui-font (cdr my/gui-fonts))))
+      )
+    )
 #+END_SRC
 
 *** tty
@@ -659,7 +660,7 @@ Highlight matching ()'s []'s etc...
     )
 #+END_SRC
 
-*** org-mode and ob
+*** org-mode
 
 Org-mode keybindings and settings, pretty sparse really.
 
@@ -677,27 +678,40 @@ Org-mode keybindings and settings, pretty sparse really.
       '(org-hide-leading-stars t)
       '(org-hide-emphasis-markers t)
       '(org-confirm-babel-evaluate nil)
+      '(org-src-strip-leading-and-trailing-blank-lines t)
+      '(org-src-preserve-indentation t)
       '(org-capture-templates
-        '(("t" "Todo" entry (file+headline "~/src/bitbucket.org/mitchty/org/gtd.org" "Tasks")
+        '(("t" "Todo" entry (file+headline "~/src/org/gtd.org" "Tasks")
            "* TODO %?\n  %i\n  %a")
-          ("n" "Note" entry (file+datetree "~/src/bitbucket.org/mitchty/org/notes.org")
+          ("n" "Note" entry (file+datetree "~/src/org/notes.org")
            "* %?\nRandom Note entered on %U\n  %i\n  %a")
-          ("m" "Todo from email" entry (file+headline "~/src/bitbucket.org/mitchty/org/gtd.org" "INBOX")
+          ("m" "Todo from email" entry (file+headline "~/src/org/gtd.org" "INBOX")
            "* TODO %?, Link: %a")
-          ("u" "Url" entry (file+headline "~/src/bitbucket.org/mitchty/org/urls.org" "Urls")
+          ("u" "Url" entry (file+headline "~/src/org/urls.org" "Urls")
            "* %u\n\n %i" :prepend t)
-           )))
+           ))
+      )
 
      ;; typing stuff like the mode for a snippet is for chumps
      (add-to-list 'org-structure-template-alist '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC" ""))
      (add-to-list 'org-structure-template-alist '("hs" "#+BEGIN_SRC haskell\n?\n#+END_SRC" ""))
      (add-to-list 'org-structure-template-alist '("pl" "#+BEGIN_SRC perl\n?\n#+END_SRC" ""))
      (add-to-list 'org-structure-template-alist '("py" "#+BEGIN_SRC python\n?\n#+END_SRC" ""))
-     (add-to-list 'org-structure-template-alist '("rb" "#+BEGIN_SRC ruby\n?\n#+END_SRC" ""))
-     ;; LATER
-     ;; (add-to-list 'org-structure-template-alist '("rs" "#+BEGIN_SRC rust\n?\n#+END_SRC" ""))
      (add-to-list 'org-structure-template-alist '("sh" "#+BEGIN_SRC sh\n?\n#+END_SRC" ""))
 
+     (org-babel-do-load-languages 'org-babel-load-languages
+                                  (append org-babel-load-languages
+                                          '(
+                                            (C . t)
+                                            (ditaa . t)
+                                            (emacs-lisp . t)
+                                            (haskell . t)
+                                            (latex . t)
+                                            (perl . t)
+                                            (python . t)
+                                            (ruby  . t)
+                                            (shell . t)
+                                            )))
      (add-hook 'after-init-hook (lambda () (org-reload)))
     )
   )
@@ -731,51 +745,21 @@ Org-mode keybindings and settings, pretty sparse really.
                                  (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
       )
     )
-#+END_SRC
-
-Note ob is a builtin not really an external package.
-
-#+BEGIN_SRC emacs-lisp
-  (use-package ob
-    :custom (org-confirm-babel-evaluate nil)
-    :after org
-    :config
-    (use-package ob-async :defer 10) ;; For whatever reason not deferring causes issues.
-    (org-babel-do-load-languages 'org-babel-load-languages
-                                 (append org-babel-load-languages
-                                         '(
-                                           (C . t)
-                                           (calc . t)
-                                           (ditaa . t)
-                                           (emacs-lisp . t)
-                                           (haskell . t)
-                                           (latex . t)
-                                           (perl . t)
-                                           (python . t)
-                                           (ruby  . t)
-                                           ;; (rust . t)
-                                           (shell . t)
-                                           )))
-    :hook ((org-babel-after-execute . org-display-inline-images)))
-#+END_SRC
-
-
-#+BEGIN_SRC emacs-lisp :tangle no
-   (use-package org-roam
-         :after org
-         :defer 10
-         :hook
-         (after-init . org-roam-mode)
-         :init
-         (custom-set-variables '(org-roam-directory "~/.emacs.d"))
-         :bind (:map org-roam-mode-map
-                 (("C-c n l" . org-roam)
-                  ("C-c n f" . org-roam-find-file)
-                  ("C-c n j" . org-roam-jump-to-index)
-                  ("C-c n b" . org-roam-switch-to-buffer)
-                  ("C-c n g" . org-roam-graph))
-                 :map org-mode-map
-                 (("C-c n i" . org-roam-insert))))
+  (use-package org-roam
+        :after org
+        :hook
+        (after-init . org-roam-mode)
+        :custom
+        (org-roam-directory "~/.emacs.d")
+        :bind (:map org-roam-mode-map
+                (("C-c n l" . org-roam)
+                 ("C-c n f" . org-roam-find-file)
+                 ("C-c n j" . org-roam-jump-to-index)
+                 ("C-c n b" . org-roam-switch-to-buffer)
+                 ("C-c n g" . org-roam-graph))
+                :map org-mode-map
+                (("C-c n i" . org-roam-insert))))
+  (use-package ob-async :after org)
 #+END_SRC
 
 #+BEGIN_SRC emacs-lisp :tangle no

git.org

@@ -126,6 +126,14 @@ handy over the years.
     show-merge = !sh -c "merge=$(git find-merge $0 $1) && [ -n \"$merge\" ] && git show $merge"
 #+END_SRC
 
+#+BEGIN_SRC conf :tangle (tangle/file ".gitconfig" (bound-and-true-p git-p))
+  [alias]
+    # create a pull request branch based off a pull request, lets you git diff
+    # even if someone rebases a pull request.
+    p = !sh -c 'git branch ${1:-$(git defremote)}pr$0@$(iso8601 -s) $(git ls-remote -q ${1:-$(git defremote)} | grep refs/pull-requests/$0/from | cut -c1-8)'
+    rvers = !sh -c 'commitish=${0:-HEAD} && git describe --first-parent --tags --long --match="cray-*" $commitish | sed -e "s/^cray-//" -e "s/-/./" -e "s/-g.*//"'
+#+END_SRC
+
 #+BEGIN_SRC conf :tangle (tangle/file ".gitconfig" (bound-and-true-p git-p))
   [alias]
     rembranch = !sh -xc "remote=${1:-origin} && git ls-remote --symref -q $remote HEAD | head -n1 | awk '{print $2}' | sed -e 's|refs/heads/||'"
@@ -189,6 +197,18 @@ Forgot why this was here, some version git changed the default push behavior.
     default = simple
 #+END_SRC
 
+** lfs
+
+So much junk is using it, so... just make it a default bit of the gitconfig.
+
+#+BEGIN_SRC conf :tangle (tangle/file ".gitconfig" (bound-and-true-p git-p))
+  [filter "lfs"]
+    clean = git-lfs clean -- %f
+    smudge = git-lfs smudge -- %f
+    process = git-lfs filter-process
+    required = true
+#+END_SRC
+
 ** url rewrites
 
 Don't use git:// (ssh) to connect to github.
@@ -222,7 +242,6 @@ HUNK PADDING
 HUNK PADDING
 HUNK PADDING
 
-
 END HUNK PADDING
 END HUNK PADDING
 END HUNK PADDING

nix.org

@@ -15,8 +15,7 @@ Nix user config.nix setup.
   {
     packageOverrides = pkgs: with pkgs;
     let in rec {
-      # TODO: do I still care about this?
-      # custom-pinentry = pinentry.override { gtk2 = null; ncurses = null; };
+      custom-pinentry = pinentry.override { gtk2 = null; ncurses = null; };
       custom-youtube-dl = python27Packages.youtube-dl.override { pandoc = null; };
 
       default = buildEnv {
@@ -26,14 +25,13 @@ Nix user config.nix setup.
           aria
           aspell
           aspellDicts.en
-          # TODO: New installs have this conflict with another package, still neeeded?
-          # cacert
+          cacert
           clang
           cloc
           cscope
           ctags
           curl
-          # custom-pinentry
+          custom-pinentry
           custom-youtube-dl
           diffutils
           docbook5

options/streamer.el

@@ -0,0 +1,11 @@
+;;-*-mode: emacs-lisp; coding: utf-8;-*-
+;;(setq testing t)
+(setq macos-p t)
+(setq nix-p t)
+(setq tmux-p t)
+(setq git-p t)
+(setq emacs-p t)
+(setq zsh-p t)
+(setq mosh-p t)
+(setq haskell-p t)
+(setq perl-p t)