garlic0x1

(defpackage :hooks
  (:use :cl)
  (:import-from :alexandria :if-let)
  (:export :register-hook :run-hook))
(in-package :hooks)

(defvar *hooks* (make-hash-table)
  "Global hook table.
Use `register-hook` and `clear-hook` to modify this.")

garlic0x1

(set-macro-character
 #\$
 (lambda (stream char)
   (declare (ignore char))
   (let ((*readtable* (copy-readtable nil)))
     (setf (readtable-case *readtable*) :preserve)
     (read stream))))

$:CaseSensitiveKeyword
;; => :|CaseSensitiveKeyword|

garlic0x1

#!/bin/bash

set -x

### Packages
dnf update -y
dnf install -y sbcl git make gcc ncurses-devel redhat-rpm-config curl rlwrap

### Config
curl https://raw.githubusercontent.com/garlic0x1/dotfiles/master/.bashrc > ~/.bashrc

garlic0x1

(cffi:defcfun ("fnmatch" fnmatch) :int
  (pattern :string)
  (string :string)
  (flags :int))

(defun glob-match (pattern string &optional (flags 4))
  (= 0 (fnmatch pattern string flags)))

garlic0x1

(set-macro-character
 #\~
 (lambda (stream char)
   (declare (ignore char))
   `(list ,@(read stream t))))

;; USAGE:
(macroexpand (quote ~(1 2 3))) 
;; => (LIST 1 2 3)

garlic0x1

#include <stdio.h>
#include <glib.h>

int main(int argc, char *argv[])
{
	/* Linked List demo */
	GList *list = NULL;

	list = g_list_append(list, "Hello world!");
	list = g_list_append(list, "Bye world!");

garlic0x1

;;; gpt.el -*- lexical-binding: t; -*-

(defgroup ollama nil
  "Ollama client for Emacs."
  :group 'ollama)

(defcustom ollama:endpoint "http://192.168.68.108:11434/api/generate"
  "Ollama http service endpoint."
  :group 'ollama
  :type 'string)

garlic0x1

Hello Rpm

hello.spec:

Name:     hello
Version:  2.10
Release:  %autorelease
Summary:  Produces a familiar, friendly greeting
License:  GPL-3.0-or-later
URL:      https://www.gnu.org/software/hello/

garlic0x1

;; help load config files (convenience function for my Doom setup, change for other distros)
(defun config-path (path)
  (concat doom-user-dir path))

;; runs clang-format with a specified config file
(defun clang-format-with-spec (spec)
  (shell-command
   (concat "clang-format"
           " --style=file:" spec
           " -i " buffer-file-name)))

garlic0x1

##
# Project Title
#
# @file
# @version 0.1

CC=gcc
CFLAGS=-g -Wall

PROGNAME=CHANGEME