shegeley

;; emacs-flycheck-deno is on-hold in guix https://patches.guix-patches.cbaines.net/project/guix-patches/patch/[email protected]/
;; emacs-deno-mode: https://github.com/shegeley/x-files/commit/2e941ccb3ebd280767d4b0410eb0cce0ecc68bd8
;; deno: https://github.com/shegeley/x-files/commit/eaf140b29127c849ef529ed4cac5dad68f94c166

(define-module (g-files features java&type-script)
 #:use-module (guix gexp)
 #:use-module (guix packages)
 #:use-module (guix download)

 #:use-module (x-files packages deno)

shegeley

(with-eval-after-load 'daemons
   (require 'ansi-color)
   (defun display-ansi-sequences ()
    (let ((inhibit-read-only t))
     (ansi-color-apply-on-region (point-min) (point-max))))
   (setq daemons--shell-command-to-string-fun
    (lambda (command) (ansi-color-filter-apply (shell-command-to-string command))))
   (add-hook 'daemons-output-mode-hook 'display-ansi-sequences))

shegeley

(ns backend.core
  (:require ["sequelize" :refer (Sequelize DataTypes)]
            [cljs.core.async :refer [go]]
            [cljs.core.async.interop :refer-macros [<p!]]
            ["express" :as express]))

(def port 1337)

(defn env [x & [default]]
  (or (aget (.. js/process -env) x) default))

shegeley

(defun treemacs-toggle-maybe ()
         (require 'treemacs)
         (if (eq last-command 'treemacs)
          (set-frame-parameter (selected-frame) 'treemacs-forced-p
           (not (frame-parameter (selected-frame) 'treemacs-forced-p)))
          (unless (frame-parameter (selected-frame) 'treemacs-forced-p)
           (if (seq-find
                (lambda (x)
                 (with-current-buffer (window-buffer x)
                  (derived-mode-p 'text-mode 'prog-mode)))

shegeley

(use-modules
 (guix gexp)
 (guix download)
 ((guix licenses) #:prefix license:)
 (guix packages)
 (guix git-download)
 (guix download)
 (guix utils)
 (guix build-system guile)
 (gnu packages guile)

shegeley

(use-modules (srfi srfi-69))

#|
(hash (list 1 2)) => 1690321764596975924
(hash (list 2 1)) => 1690321764596975924
(hash (vector 1 2)) => 2121270931541232526 
(hash (vector 2 1)) => 1271456826911243416
|#

(define (hash-table-deep-hash table)

shegeley

(use-modules (ice-9 pretty-print))

;; Helper methods for maintaining comments and whitespace.
(define (copy-line-comment)
  (let ((char (read-char)))
    (if (not (eof-object? char))
      (if (eq? char #\newline)
        (newline)
        (begin (write-char char) (copy-line-comment))))))
(define (maintain-empty-lines)

shegeley

;; convenience-lambda.scm
;;
;; This syntax was inspired by arc and Clojure's anonymous procedure
;; syntax.  
;;
;; #.\ (+ %1 %2) -> (lambda (%1 %2) (+ %1 %2))
;; #.\ (+ % %%)  -> (lambda (% %%)  (+ % %%))
;;
;; The .\ is supposed to approximate the lowercase lambda character in
;; ascii.

shegeley

(ns cryptogroups.groups
  (:require [clojure.set :as set]))

(defn pow
  [x n]
  (Math/pow x n))

(defrecord Z [N])

(defrecord Z* [N])

shegeley

;; Paredit's bindings set to be called with SPC + l as prefix

(map!
 :map paredit-mode-map
 :leader (:prefix ("l" . "Lisps")
         :nvie "f" #'paredit-forward
         :nvie "b" #'paredit-backward
         :nie "k" #'paredit-kill-region
         :nie "s" #'paredit-splice-sexp
         :nie "(" #'paredit-wrap-round