Skip to content

Instantly share code, notes, and snippets.

Avatar

Sam Kleinman tychoish

View GitHub Profile
View bakhtin.lisp
(defcommand dump-desktop-office ()()
(dump-desktop-to-filename (format nil "~a/layout/~a-office" *conf-dir* (machine-instance)))
(dump-window-placement-rules "office"))
(defcommand restore-desktop-office ()()
(restore-from-filename (format nil "~a/layout/~a-office" *conf-dir* (machine-instance))))
(defcommand dump-desktop-laptop ()()
(dump-desktop-to-filename (format nil "~a/layout/~a-laptop" *conf-dir* (machine-instance)))
(dump-window-placement-rules "laptop"))
View bakhtin.lisp
(define-key *top-map* (kbd "XF86AudioLowerVolume") "volume-quiet")
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "volume-loud")
(define-key *top-map* (kbd "XF86AudioMute") "volume-toggle")
(define-key *top-map* (kbd "F2") "lock")
(define-key *root-map* (kbd "TAB") "fselect")
(define-key *root-map* (kbd "C-TAB") "fother")
(define-key *root-map* (kbd "F6") "brightness-inc")
(define-key *root-map* (kbd "F5") "brightness-dec")
View bakhtin.lisp
(set-prefix-key (kbd "C-q"))
;; Insertions into top level binding.
(define-key *top-map* (kbd "XF86AudioLowerVolume") "volume-quiet")
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "volume-loud")
(define-key *top-map* (kbd "XF86AudioMute") "volume-toggle")
(define-key *top-map* (kbd "F2") "lock")
View local-functions.el
(defun tychoish-setup-user-local-config ()
"Ensure that all config files in the '~/.emacs.d/user' are loaded."
(let ((dirname (concat (expand-file-name user-emacs-directory) "user")))
(when (and (file-accessible-directory-p dirname)
(not (member dirname load-path)))
(add-to-list 'load-path dirname))
(mapc (lambda (fn)
(when (string-match-p "\\.el$" fn)
(require (intern (string-remove-suffix ".el" fn)))))
View stump-error.txt
NAME-ERROR in current request Code 92.0 [LookupColor]
[Condition of type XLIB:NAME-ERROR]
Restarts:
0: [QUIT-STUMPWM] Quit Stumpwm
Backtrace:
0: (STUMPWM::ERROR-HANDLER #<XLIB:DISPLAY :0 (The X.Org Foundation R12008000)> XLIB:NAME-ERROR :ASYNCHRONOUS NIL :CURRENT-SEQUENCE 143 :MAJOR 92 :MINOR 0 :SEQUENCE 143)
Locals:
ASYNCHRONOUS = NIL
View *temp*.txt
TODO(all): Schedule/scope/plan competitive analysis project/work
TODO(sam): Normalize outage handling and develop operations playbook
TODO(cris): notes on how to improve messaging skills (M15)
TODO(cris): ideas on distributing work effectively across teams (M18)
TODO(both): julian and kim box (we should do more to detail milestones/goals)
TODO(cris): details for communication (I27)
TODO(both): review emotional intelligence box (M30)
View for-annie.diff
diff --git a/command/registry.go b/command/registry.go
index f3e0011b7..db81cc626 100644
--- a/command/registry.go
+++ b/command/registry.go
@@ -178,7 +178,12 @@ func (r *commandRegistry) renderCommands(commandInfo model.PluginCommandConf,
}
cmd := factory()
- if err = cmd.ParseParams(c.Params); err != nil {
+ params, err := c.Params.Resolve()
View even.js
// all values optional,
// counters and timers are cumulative,
// gauges are discrete,
{
"ts": <bson timesampt>,
"id": <long, thread id, optional>,
"counters": {
"n": <inc long>,
"ops": <operations long>,
"size": <bytes>,
View *temp*-710687.txt
func NewClientTLSFromFile(certFile, serverNameOverride string) (TransportCredentials, error) {
b, err := ioutil.ReadFile(certFile)
if err != nil {
return nil, err
}
cp := x509.NewCertPool()
if !cp.AppendCertsFromPEM(b) {
return nil, fmt.Errorf("credentials: failed to append certificates")
}
return NewTLS(&tls.Config{ServerName: serverNameOverride, RootCAs: cp}), nil
You can’t perform that action at this time.