creichert

Validate JSON Schema documents with Org mode

• Validate JSON literals

  #+NAME: org-src-json-schema-literals
  #+BEGIN_SRC shell :results pp
  curl -s https://assertible.com/json -d '{
    "schema": {},
    "json": {}
    }' | jq .
  

creichert

# Gmail checker for Xmobar
#
# Install the ruby-gmail and mime gem to system
# Put the script under ~/path/to/gmail_checker.rb
# Make sure it is executable

require 'gmail'

gmail = Gmail.new('example@gmail.com', 'password')
mail_count = gmail.inbox.count(:unread)

creichert

Note: everything here is pretty specific to my usage/accounts and not written for public use... You'll probably have to tweak a bunch of stuff.

$ bean-extract config.py ~/Downloads # the csvs should be in here

creichert

WM_STATE(WM_STATE):
		window state: Normal
		icon window: 0x0
_NET_WM_USER_TIME(CARDINAL) = 86660406
WM_NORMAL_HINTS(WM_SIZE_HINTS):
		program specified location: 1, 19
		program specified minimum size: 1 by 1
WM_NAME(UTF8_STRING) = "Page not found · GitHub"
_NET_WM_NAME(UTF8_STRING) = "Page not found · GitHub"
XdndAware(ATOM) = BITMAP

creichert

;; see my config for the other parts:
;;
;; https://github.com/creichert/dotfiles/blob/master/emacs/.gnus
;;
;; I typically put the below settings into a file called `gnus-private.el`,
;; and require that into my gnus to populate these settings.
;;
;; https://github.com/creichert/dotfiles/blob/master/emacs/.gnus#L61

creichert

(defmacro template (text)
  "Expand text like \"Hello <<name>>\" to (format \"Hello %s\" name)."
  (let ((pattern "<<\\(.*?\\)>>"))
    ;; The regexp matches anything between delimiters, non-greedily
    (with-temp-buffer
      (save-excursion (insert text))
      (let ((matches '()))
        (while (re-search-forward pattern nil t)
          (push (match-string 1) matches)
          (replace-match "%s" t t))

creichert

;;; evil-bbdb-rebellion.el --- Key-bindings for evil bbdb3 rebels

;; Copyright © 2013–2014  Albert Krewinkel
;;
;; Author: Albert Krewinkel <albert+evil@zeitkraut.de>
;; Keywords: evil bbdb rebellion
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or

creichert

;; Toggle the haskell-mode haskell-process-type variable between
;; cabal and stack
;;
;; https://stackoverflow.com/a/27385914/3066608

(defvar haskell-process-use-ghci nil)

(defun haskell-process-toggle ()
  "Toggle GHCi process between cabal and ghci"

creichert

conf_layout:
  lconfig_altChooser:
    tag: AltChooserBoundedSearch
    contents: 3
  lconfig_importColumn: 50
  lconfig_hangingTypeSignature: true
  lconfig_alignmentLimit: 30
  lconfig_indentListSpecial: true
  lconfig_indentAmount: 4
  lconfig_alignmentBreakOnMultiline: true

creichert

(defvar compilation-buffer-visible nil)

(defun toggle-compilation-visible ()
  (interactive)
  (setq compilation-buffer-visible (not compilation-buffer-visible))
  (message "Compilation buffer %s"
           (if compilation-buffer-visible "visible" "not visible")))

(defun notify-compilation-result(buffer msg)