garlic0x1

;;--------------;;
;; Setup elpaca ;;
;;--------------;;

(defvar elpaca-installer-version 0.7)
(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
			      :ref nil :depth 1

garlic0x1

  services.xserver.displayManager.sessionCommands = ''
    ${pkgs.xorg.xmodmap}/bin/xmodmap -e "remove Lock = Caps_Lock"
    ${pkgs.xorg.xmodmap}/bin/xmodmap -e "keysym Caps_Lock = Control_L"
    ${pkgs.xorg.xmodmap}/bin/xmodmap -e "add Control = Control_L"
    ${pkgs.xorg.xmodmap}/bin/xmodmap -e "remove Shift = Shift_R"
    ${pkgs.xorg.xmodmap}/bin/xmodmap -e "keysym Shift_R = Caps_Lock"
    ${pkgs.xorg.xmodmap}/bin/xmodmap -e "add Lock = Caps_Lock"
  '';

garlic0x1

(defpackage :config/fonts
  (:use :cl :lem :alexandria-2))
(in-package :config/fonts)

(defparameter *font-directory* #p"/usr/share/fonts/TTF/")

(defun font-files (font)
  (values (merge-pathnames (uiop:strcat font "-Regular.ttf") *font-directory*)
          (merge-pathnames (uiop:strcat font "-Bold.ttf") *font-directory*)))

garlic0x1

(defpackage #:config/os
  (:use :cl :lem :alexandria-2))
(in-package :config/os)

(defun complete-cmd (s)
  "Completion function for shell commands (incomplete)."
  (line-up-first
   (format nil "compgen -c ~a" s)
   (uiop:run-program :output :string)
   (str:lines)))

garlic0x1

@define-color bg-main #ffffff;
@define-color bg-dim #f0f0f0;
@define-color fg-main #000000;
@define-color fg-dim #595959;
@define-color fg-alt #193668;
@define-color bg-active #c4c4c4;
@define-color bg-inactive #e0e0e0;
@define-color border #9f9f9f;
@define-color red #a60000;
@define-color red-warmer #972500;

garlic0x1

NEWLINE=$'\n'
autoload -Uz vcs_info
precmd() { vcs_info }
zstyle ':vcs_info:git:*' formats '%b '
setopt PROMPT_SUBST
PROMPT='${NEWLINE}%F{green}%*%f %F{blue}%~%f %F{red}${vcs_info_msg_0_}%f${NEWLINE}λ '

garlic0x1

#use "topfind"
#require "sexplib"

module StringMap = Map.Make(String)
module Sexp = Sexplib.Sexp

type atom =
  | AstSymbol of string
  | AstInteger of int
  | AstString of string

garlic0x1

(module
  (import "console" "write_bytes_utf8" (func $write_bytes_utf8 (param i32 i32)))
  (import "console" "write_object" (func $write_object (param i32)))
  (import "console" "write_newline" (func $write_newline))
  (import "console" "write_space" (func $write_space))

  (import "js" "mem" (memory 1))

  (data (i32.const 0)  "Fizz")
  (data (i32.const 10) "Buzz")