dvliman

{:aliases {:dev {:extra-paths ["/Users/dliman/.clojure"]}}}

dvliman

(use-package! smartparens
  :init
  (map! :map smartparens-mode-map
        ...
        "s-5" #'user-reset-log-store
        "s-6" #'user-tags
        "s-7" #'user-logs))

;; or

dvliman

(defun user-reset-log-store ()
  (interactive)
  (cider-interactive-eval "(reset! user/log-store {})"))
  
(defun user-tags ()
  (interactive)
  (cider--pprint-eval-form "(user/tags)"))
  
(defun user-logs (&optional index-or-name)
  (interactive)

dvliman

/* Generated on: Fri Feb 03 2023 01:39:15 GMT+0000 (Coordinated Universal Time) */
/* ==========================================================================
   normalize.css v3.0.3 | MIT License | github.com/necolas/normalize.css 
   ========================================================================== */
/*! normalize.css v3.0.3 | MIT License | github.com/necolas/normalize.css */html{font-family:sans-serif;-ms-text-size-adjust:100%;-webkit-text-size-adjust:100%}body{margin:0}article,aside,details,figcaption,figure,footer,header,hgroup,main,menu,nav,section,summary{display:block}audio,canvas,progress,video{display:inline-block;vertical-align:baseline}audio:not([controls]){display:none;height:0}[hidden],template{display:none}a{background-color:transparent}a:active,a:hover{outline:0}abbr[title]{border-bottom:1px dotted}b,strong{font-weight:bold}dfn{font-style:italic}h1{font-size:2em;margin:.67em 0}mark{background:#ff0;color:#000}small{font-size:80%}sub,sup{font-size:75%;line-height:0;position:relative;

dvliman

// build.gradle

dependencies {
  implementation 'com.github.davidmoten:rxjava2-jdbc:0.2.2'
  implementation 'org.postgresql:postgresql:42.2.5'
}

dvliman

Netty started on port(s): 8080  
Started ApplicationKt in 7.113 seconds (JVM running for 9.353)

dvliman

(defn start-stream []
  (record :encoder :connect-to-camera (make-event-details ...))
  (manager/register :connect-to-camera
    (sh/proc "ffmpeg" "-hide_banner" "-re" "-rtsp_transport" "tcp" "-i"
      config/encoder-rtsp-endpoint
      "-c:a" "aac" "-ar" "48000" "-b:a" "128k"
      "-c:v" "h264" "-profile:v" "high"
      "-g" "48" "-keyint_min" "48" "-sc_threshold" "0" "-b:v" "3072k"
      "-maxrate" "3500k" "-vcodec" "libx264" "-bufsize" "3072k"
      "-hls_time" "6"

dvliman

;; encoder.clj

(defstate encoder
  :start (try
           (start-stream)
           (catch Exception e))
             ;; error-handling here
  :stop (stop-stream))

dvliman

;; core.clj

(defn run-encoder []
  (mount/start #'state/s3
               #'state/db
               #'encoder/encoder))

(defn -main [& args]
  (run-encoder))

dvliman

;; vm.clj

(aws/invoke state/ec2
  {:op       :RunInstances
   :request {:InstanceType      "c5d.2xlarge"
   :MaxCount          1
   :MinCount          1
   :SubnetId          "subnet-id"
   :ImageId           "ami-id"
   :SecurityGroupIds  ["sg-id"]