shegeley

(use-modules
 (ice-9 match)
 (srfi srfi-1)
 (scheme base))

;; Indentation helper: 2 spaces per nesting level
(define (indent level)
  (make-string (* 2 level) #\space))

;; Very minimal scalar serialization.

shegeley

(use-modules
 (srfi srfi-1)
 (guix gexp)
 (gnu services)
 (gnu services shepherd)

 ((gnu packages ssh) #:select (openssh))
 ((gnu packages backup) #:select (borgmatic)))

(define (borgmatic-backup-cmd config-file)

shegeley

(define-module (x-files services llama-cpp)

  #:use-module (gnu)
  #:use-module (gnu packages)
  #:use-module (gnu services)
  #:use-module ((gnu packages admin) #:select (shadow))
  #:use-module ((gnu packages machine-learning) #:select (llama-cpp))
  #:use-module ((gnu system accounts) #:select (user-account
                                                user-group
                                                subid-range))

shegeley

;;; dashboard-hacks.el --- Emacs Dashboard Hacks -*- lexical-binding: t; -*-

(require 'project)

(defun project-forget-remote-projects ()
 "Forget all remote projects. emacs-dashboard lags massively when trying to display remote projects via project.el"
 (interactive)
 (dolist (proj (project-known-project-roots))
  (when (file-remote-p proj)
   (project-forget-project proj))))

shegeley

(use-modules
  (gnu services)
  (gnu services shepherd)
  (gnu packages finance)
  (srfi srfi-1)
  (srfi srfi-125)

  (ice-9 match)

  (guix gexp)

shegeley

;; emacs-flycheck-deno is on-hold in guix https://patches.guix-patches.cbaines.net/project/guix-patches/patch/20250227031841.22844-1-shegeley@gmail.com/
;; 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)