Automate Yo' Self -- SeaGL 2016

A talk about personal automation, as delivered at SeaGL on 12 Nov 2016

1. Automate Yo' Self! SeaGL 2016 Seattle, yo John SJ Anderson @genehack
2. Hi, I'm John.
3. @genehack
4. Sammy
5. @sammygenehack
6. Two kids
7. A Wife
8. long-suffering conference widow A Wife
9. photobomber is not impressed. A Wife long-suffering conference widow
10. Job
11. Hobbies
12. Hobbies
13. Lots of Hobbies
14. I've got a lot of balls in the air
15. AUTOMATE YO' SELF
16. Basic Principles
17. Don't Make Me Think
18. This is my "you made me think" face.
19. Consistency is Good.
20. Idempotence is better!
21. App::MiseEnPlace
22. App::MiseEnPlace "everything in its place"
23. % cat ~/.mise --- manage: - doc - etc - private - proj/* - src/* create: directories: - bin - proj - proj/go/src/github.com/genehack - src - var links: - Desktop: var/tmp - Desktop: tmp
24. % cat proj/emacs/.mise --- create: links: - DIR: ~/.emacs.d - bin/build-most-recent-emacs: BIN - bin/e: BIN - bin/ec: BIN - bin/git-blame-from-line-num: BIN - bin/map-test-lib: BIN
25. % mise [LINK] created ~/proj/emacs -> ~/.emacs.d [LINK] created ~/proj/emacs/bin/build-most-recent-emacs -> ~/bin/build-most-recent-emacs [LINK] created ~/proj/emacs/bin/e -> ~/bin/e [LINK] created ~/proj/emacs/bin/ec -> ~/bin/ec [LINK] created ~/proj/emacs/bin/git-blame-from-line-num -> ~/bin/git-blame-from-line-num [LINK] created ~/proj/emacs/bin/map-test-lib -> ~/bin/map-test-lib % mise % rm ~/bin/e % mise [LINK] created ~/proj/emacs/bin/e -> ~/bin/e
26. App::MiseEnPlace get it from your favorite CPAN mirror
27. smartcd
28. smartcd Automatically run code when entering or leaving directories or sub-directories
29. % smartcd show enter /Users/genehack/.smartcd/scripts/Users/genehack/fake-node-proj/bash_enter exists ------------------------------------------------------------------------- ######################################################################## # smartcd enter - /Users/genehack/fake-node-proj # # This is a smartcd script. Commands you type will be run when you # enter this directory. The string __PATH__ will be replaced with # the current path. Some examples are editing your $PATH or creating # a temporary alias: # # autostash PATH=__PATH__/bin:$PATH # autostash alias restart="service stop; sleep 1; service start" # # See http://smartcd.org for more ideas about what can be put here ######################################################################## autostash NODE=4.2.3 autostash PATH=$PATH:__PATH__/node_modules/.bin/ nvm use $NODE -------------------------------------------------------------------------
30. % smartcd show enter /Users/genehack/.smartcd/scripts/Users/genehack/fake-node-proj/bash_enter exists ------------------------------------------------------------------------- ######################################################################## # smartcd enter - /Users/genehack/fake-node-proj # # This is a smartcd script. Commands you type will be run when you # enter this directory. The string __PATH__ will be replaced with # the current path. Some examples are editing your $PATH or creating # a temporary alias: # # autostash PATH=__PATH__/bin:$PATH # autostash alias restart="service stop; sleep 1; service start" # # See http://smartcd.org for more ideas about what can be put here ######################################################################## autostash NODE=4.2.3 autostash PATH=$PATH:__PATH__/node_modules/.bin/ nvm use $NODE -------------------------------------------------------------------------
31. % smartcd show enter /Users/genehack/.smartcd/scripts/Users/genehack/fake-node-proj/bash_enter exists ------------------------------------------------------------------------- ######################################################################## # smartcd enter - /Users/genehack/fake-node-proj # # This is a smartcd script. Commands you type will be run when you # enter this directory. The string __PATH__ will be replaced with # the current path. Some examples are editing your $PATH or creating # a temporary alias: # # autostash PATH=__PATH__/bin:$PATH # autostash alias restart="service stop; sleep 1; service start" # # See http://smartcd.org for more ideas about what can be put here ######################################################################## autostash NODE=4.2.3 autostash PATH=$PATH:__PATH__/node_modules/.bin/ nvm use $NODE -------------------------------------------------------------------------
32. % cd ~/fake-node-proc Now using node v4.2.3 (npm v2.14.7) % echo xx$NODE xx4.2.3 % cd .. % echo xx$NODE xx
33. smartcd https://github.com/cxreg/smartcd
34. another option: direnv http://direnv.net/ https://github.com/direnv/direnv
35. $ cd ~/my_project $ echo ${FOO-nope} nope $ echo export FOO=foo > .envrc .envrc is not allowed $ direnv allow . direnv: reloading direnv: loading .envrc direnv export: +FOO $ echo ${FOO-nope} foo $ cd .. direnv: unloading direnv export: ~FOO $ echo ${FOO-nope} nope
36. $ cd ~/my_project $ echo ${FOO-nope} nope $ echo export FOO=foo > .envrc .envrc is not allowed $ direnv allow . direnv: reloading direnv: loading .envrc direnv export: +FOO $ echo ${FOO-nope} foo $ cd .. direnv: unloading direnv export: ~FOo $ echo ${FOO-nope} nope
37. $ cd ~/my_project $ echo ${FOO-nope} nope $ echo export FOO=foo > .envrc .envrc is not allowed $ direnv allow . direnv: reloading direnv: loading .envrc direnv export: +FOO $ echo ${FOO-nope} foo $ cd .. direnv: unloading direnv export: ~FOO $ echo ${FOO-nope} nope
38. direnv may be better for collaborative projects.
39. direnv may be better for collaborative projects?
40. get you one that can do both?
41. App/Env Builders are your friends
42. perlbrew plenv rubyenv nvm App::GitGitr build-most- recent-emacs
43. Consistency Corollary: Don't trust system binaries
44. Automate building your critical tools.
45. The Silver Searcher
46. grep?
47. powerful, speedy, indiscriminate
48. ack?
49. powerful, selective, slow
50. ag!
51. powerful, selective, FAST
52. The Silver Searcher https://github.com/ggreer/the_silver_searcher
53. retraining your forearms for fun & profit
54. My biggest productivity/automation tip
55. revision control $HOME
56. Why bother?
57. say automation again
58. Ingy döt Net
59. Things I wanted to steal
60. Things I wanted to add
61. App::AYCABTU?!?!‽
62. GitGot
63. Whirlwind Tour
64. got add
65. % got add Name: foo URL: Path: /Users/genehack/foo Tags: bar
66. got add -D
67. got clone <REPO URL>
68. % got clone git@github.com:genehack/app-gitgot.git Name: [app-gitgot]: Path: [/Users/genehack/app-gitgot]: Tags: Cloning into '/Users/genehack/app-gitgot'...
69. got clone -D <REPO URL>
70. got fork <GITHUB URL>
71. ~/.gitgot
72. - name: App-Amylase path: /Users/genehack/proj/App-Amylase repo: git@github.com:genehack/App-Amylase.git type: git - name: Git-Wrapper path: /Users/genehack/proj/Git-Wrapper repo: git@github.com:genehack/Git-Wrapper.git tags: git type: git - name: HiD path: /Users/genehack/proj/HiD repo: git@github.com:genehack/HiD.git type: git - name: Perl-Build path: /opt/plenv/plugins/perl-build repo: git://github.com/tokuhirom/Perl-Build.git type: git
73. But now what?
74. got list
75. got ls
76. 1) App-Amylase git git@github.com:genehack/App-Amylase.git 2) Git-Wrapper git git@github.com:genehack/Git-Wrapper.git 3) HiD git git@github.com:genehack/HiD.git 4) Perl-Build git git://github.com/tokuhirom/Perl-Build.git 5) Perl-Critic git git@github.com:genehack/Perl-Critic.git 6) STAMPS git git@github.com:genehack/STAMPS.git 7) advanced-moose-class git ssh://git@git.iinteractive.com/train/advanced-moose-class.git 8) app-gitgitr git git@github.com:genehack/app-gitgitr.git 9) app-gitgot git git@github.com:genehack/app-gitgot.git
77. got ls -q
78. 1) App-Amylase 2) Git-Wrapper 3) HiD 4) Perl-Build 5) Perl-Critic 6) STAMPS 7) advanced-moose-class 8) app-gitgitr 9) app-gitgot
79. got ls [repos]
80. got ls 5
81. 5) Perl-Critic
82. got ls 5-8
83. 5) Perl-Critic 6) STAMPS 7) advanced-moose-class 8) app-gitgitr
84. got ls HiD
85. 3) HiD
86. got ls -t git
87. 2) Git-Wrapper 8) app-gitgitr 9) app-gitgot
88. got ls 5-8 HiD 21 -t git
89. 2) Git-Wrapper 3) HiD 5) Perl-Critic 6) STAMPS 7) advanced-moose-class 8) app-gitgitr 9) app-gitgot 21) etc
90. What else you got? That's cool.
91. (no pun intended.)
92. got status
93. got st
94. 1) App-Amylase : OK 2) Git-Wrapper : OK 3) HiD : OK 4) Perl-Build : OK 5) Perl-Critic : OK 6) STAMPS : OK 7) advanced-moose-class : OK 8) app-gitgitr : OK 9) app-gitgot : OK
95. 1) App-Amylase : OK 2) Git-Wrapper : OK 3) HiD : Dirty 4) Perl-Build : OK 5) Perl-Critic : OK 6) STAMPS : OK 7) advanced-moose-class : OK 8) app-gitgitr : OK 9) app-gitgot : OK Dirty
96. 1) App-Amylase : OK 2) Git-Wrapper : OK 3) HiD : OK 4) Perl-Build : OK 5) Perl-Critic : OK 6) STAMPS : OK Ahead by 1 7) advanced-moose-class : OK 8) app-gitgitr : OK 9) app-gitgot : OK 1) App-Amylase : OK 2) Git-Wrapper : OK 3) HiD : OK 4) Perl-Build : Dirty 5) Perl-Critic : OK 6) STAMPS : OK 7) advanced-moose-class : OK 8) app-gitgitr : OK 9) app-gitgot : OK Dirty 1) App-Amylase : OK 2) Git-Wrapper : OK 3) HiD : OK 4) Perl-Build : OK 5) Perl-Critic : OK 6) STAMPS : OK Ahead by 1 7) advanced-moose-class : OK 8) app-gitgitr : OK 9) app-gitgot : OK Ahead by 1
97. got st -q
98. got st -q 3) HiD : Dirty 6) STAMPS : OK Ahead by 1 Dirty Ahead by 1
99. got update
100. got up
101. 1) App-Amylase : Up to date 2) Git-Wrapper : Up to date 3) HiD : Up to date 4) Perl-Build : Updated Updating 7f25f89..72587c8 Fast-forward lib/Perl/Build.pm | 14 +++++++++++++- script/perl-build | 14 +++++++++++++- 2 files changed, 26 insertions(+), 2 deletions(-) 5) Perl-Critic : Up to date Updated
102. got update_status
103. got upst
104. got upst -q
105. How much would you pay?
106. Wait, don't answer yet
107. got fetch
108. got push
109. got gc
110. got this
111. % cd proj/HiD % got this 4) HiD
112. got that <DIRECTORY>
113. % got that ~/etc 37) etc
114. got chdir
115. got cd
116. got tmux
117. got tmux -s
118. How much would you pay now
119. Good news! It's free!
120. Works on any perl from the last 5 years
121. cpan App::GitGot
122. cpanm App::GitGot
123. Find me at SeaGL and I'll help you install!
124. Easy to extend
125. package App::GitGot::Command::chdir; # ABSTRACT: open a subshell in a selected project use 5.014; use App::GitGot -command; use Moo; extends 'App::GitGot::Command'; use namespace::autoclean; sub command_names { qw/ chdir cd / } sub _execute { my( $self, $opt, $args ) = @_; unless ( $self->active_repos and $self->active_repos == 1 ) { say STDERR 'ERROR: You need to select a single repo'; exit(1); } my( $repo ) = $self->active_repos; chdir $repo->path or say STDERR "ERROR: Failed to chdir to repo ($!)" and exit(1); exec $ENV{SHELL}; } 1;
126. package App::GitGot::Command::chdir; # ABSTRACT: open a subshell in a selected project use Moo; extends 'App::GitGot::Command';
127. sub command_names { qw/ chdir cd / }
128. sub _execute { my( $self, $opt, $args ) = @_; unless ( $self->active_repos and $self->active_repos == 1 ) { say STDERR 'ERROR: You need to select a single repo'; exit(1); } my( $repo ) = $self->active_repos; chdir $repo->path or say STDERR "ERROR: Failed to chdir to repo ($!)" and exit(1); exec $ENV{SHELL}; }
129. package App::GitGot::Command::chdir; # ABSTRACT: open a subshell in a selected project use 5.014; use App::GitGot -command; use Moo; extends 'App::GitGot::Command'; use namespace::autoclean; sub command_names { qw/ chdir cd / } sub _execute { my( $self, $opt, $args ) = @_; unless ( $self->active_repos and $self->active_repos == 1 ) { say STDERR 'ERROR: You need to select a single repo'; exit(1); } my( $repo ) = $self->active_repos; chdir $repo->path or say STDERR "ERROR: Failed to chdir to repo ($!)" and exit(1); exec $ENV{SHELL}; } 1;
130. Suggestions welcome!
131. In conclusion…
132. notice the speedbumps in your life
133. …but it is a great way to learn a new language You don't have to write a code…
134. can also just be about making the wrong way harder
135. Thanks SeaGL organizers Ingy döt Net Yanick Champoux Michael Greb Rolando Pereira Chris Prather
137. Questions?