rksm

# see https://mypy.readthedocs.io/en/stable/config_file.html#the-mypy-configuration-file
# this makes things more strict and enforces checking non-annotated code

[mypy]
# to keep things clean
warn_redundant_casts = True
warn_unused_ignores = True

# Workaround for bug in MyPy
disallow_subclassing_any = False

rksm

(defun rk/open-compilation-buffer (&optional buffer-or-name shackle-alist shackle-plist)
  "Helper for selecting window for opening *compilation* buffers."
  ;; find existing compilation window left of the current window or left-most window
  (let ((win (or (loop for win = (if win (window-left win) (get-buffer-window))
                       when (or (not (window-left win))
                                (string-prefix-p "*compilation" (buffer-name (window-buffer win))))
                       return win)
                 (get-buffer-window))))
    ;; if the window is dedicated to a non-compilation buffer, use the current one instead
    (when (window-dedicated-p win)

rksm

*** 2020-02-28 mac os

*** http://xahlee.info/kbd/kinesis_keyboard_howto.html
*** power user mode: progm + shift + esc
*** mount disk: progm + f1

*** normal keys
[q]>[q]
[w]>[w]
[e]>[l]

rksm

import { Color, Line, Point, pt, rect, Rectangle, Transform } from "lively.graphics";
import { string, fun, promise, tree, Path as PropertyPath } from "lively.lang";
import { signal } from "lively.bindings";
import { copy, deserializeSpec, ExpressionSerializer } from "lively.serializer2";

export class Morph {
  static get properties() {
    return {
      name: { group: "core" },

rksm

(defvar my/org-pomodoro-analyzer-tag "POMODORO"
  "Tag to add to an org entry when org-pomodoro clocks in.")

(defun my/org-pomodoro-analyzer-advice (_)
  "If a pomodoro is running we ensure that it has a tag
`my/org-pomodoro-analyzer-tag'."
  (when (org-clock-is-active)
    (save-window-excursion
      (with-current-buffer (org-clock-is-active)

rksm

(ns pptx-to-cljs.example-pptx)

(def $Content_Types$$xml "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>
<Types xmlns=\"http://schemas.openxmlformats.org/package/2006/content-types\">
  <Default Extension=\"jpeg\" ContentType=\"image/jpeg\"/>
  <Default Extension=\"rels\" ContentType=\"application/vnd.openxmlformats-package.relationships+xml\"/>
  <Default Extension=\"xml\" ContentType=\"application/xml\"/>
  <Override PartName=\"/ppt/presentation.xml\" ContentType=\"application/vnd.openxmlformats-officedocument.presentationml.presentation.main+xml\"/>
  <Override PartName=\"/ppt/slideMasters/slideMaster1.xml\" ContentType=\"application/vnd.openxmlformats-officedocument.presentationml.slideMaster+xml\"/>
  <Override PartName=\"/ppt/slides/slide1.xml\" ContentType=\"application/vnd.openxmlformats-officedocument.presentationml.slide+xml\"/>

rksm

(def dragged (atom nil))

(cljs.core/add-watch dragged :drag-watcher (fn [key ref old-state new-state] (println "dragged changed")))

(defn on-drag [evt]
  (println "on-drag"))
(defn on-drag-start [evt]
  (println "on-drag-start")
  (reset! dragged (.-target evt))
  (set! (.. evt -target -style -opacity) .5))

rksm

;; clj -R:figwheel -Sdeps '{:deps {org.clojure/tools.trace {:mvn/version "0.7.10"}}}' -i trace_cljs_repl_start.clj -m figwheel.main -b dev -r

(ns user)

(require '[clojure.tools.trace :as t])
(require 'cljs.main)
(require 'cljs.repl)
(require 'figwheel.main)
(require 'figwheel.repl)
(require 'figwheel.core)

rksm

(use-package god-mode
  :after which-key multiple-cursors
  :ensure
  :config
  (define-key god-local-mode-map (kbd ".") 'repeat)
  (global-set-key (kbd "<escape>") 'god-mode-all)
  (define-key mc/keymap (kbd "<escape>") 'god-mode-all)
  (which-key-enable-god-mode-support)

rksm

;; -*- no-byte-compile: t; -*-
;;
;; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
"
setup

export GOPATH=$HOME/goprojects

go get -u github.com/nsf/gocode
go get golang.org/x/tools/cmd/guru