shapr

(defun screenshot-svg ()
  "Save a screenshot of the current frame as an SVG image.
Saves to a temp file and puts the filename in the kill ring."
  (interactive)
  (let* ((filename (make-temp-file "Emacs" nil ".svg"))
	 (data (x-export-frames nil 'svg)))
    (with-temp-file filename
      (insert data))
    (kill-new filename)
    (message filename)))

shapr

;; run-with-timer is meant to be used when delay is specified in seconds
;; this gonna be a list of pairs of
;; (cons (time-convert nil 'integer) (current-idle-time))
;; that is, (now-in-unix-time, emacs-idle-time-in-seconds)
(defvar fl/activity-intervals nil)
;; looks like timers are
;; 1. a timer variable
(defvar fl/write-interval-timer-var nil)

(defun fl/write-interval ()

shapr

(defconst shapr-idle-duration 60)

(defvar shapr-busy-timer nil)

(defun shapr-busy ()
  (when shapr-busy-timer
    (cancel-timer shapr-busy-timer))
  ;; Do some http stuff here
  (setq shapr-busy-timer
          (run-with-idle-timer

shapr

(use-package haskell-mode
  :ensure t
  :delight " hsk"
  :bind (:map haskell-mode-map ([(meta .)] . lsp-find-definition))
  :init
  (progn
    (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
    (add-hook 'haskell-mode-hook #'lsp-deferred)
    (add-hook 'haskell-literate-mode-hook #'lsp)
    (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)

shapr

/* expand.c */
/* Copyright 1994 by Philip Gage */

#include <stdio.h>

/* Decompress data from input to output */
void expand (FILE *input, FILE *output)
{
  unsigned char left[256], right[256], stack[30];
  short int c, count, i, size;

shapr

/* compress.c */
/* Copyright 1994 by Philip Gage */

#include <stdio.h>

#define BLOCKSIZE 5000   /* Maximum block size */
#define HASHSIZE  4096   /* Size of hash table */
#define MAXCHARS   200   /* Char set per block */
#define THRESHOLD    3   /* Minimum pair count */

shapr

diff --git a/src/Core.hs b/src/Core.hs
index 08b40dd..2741c26 100644
--- a/src/Core.hs
+++ b/src/Core.hs
@@ -80,7 +80,7 @@ main = do
             exitFailure
         print ("main loop starts" :: String)
 
-        SDL.initialize [SDL.InitVideo]
+        SDL.initializeAll

shapr

❯ nixos-rebuild switch -I nixos-config=./surtr.nix --target-host [email protected]
building Nix...
building the system configuration...
trace: No index state specified for haskell-project, using the latest index state that we know about (2023-01-28T00:00:00Z)!
copying 0 paths...
updating GRUB 2 menu...
installing the GRUB 2 boot loader on /dev/vda...
Installing for i386-pc platform.
/nix/store/4ifsgb6ljch39yrshhcr5m8z3q5jzb8g-grub-2.12-rc1/sbin/grub-install: error: cannot find a GRUB drive for /dev/vda.  Check your device.map.
/nix/store/dy6wk1rf6cyn2w9d5jmm9z2bwlp0vjbm-install-grub.pl: installation of GRUB on /dev/vda failed: Inappropriate ioctl for device

shapr

\set howmany 1
SELECT
  genre.name AS genre,
  CASE WHEN length(scrubby.name) > 15 THEN
    substring(scrubby.name FROM 1 FOR 15) || '⋯'
  ELSE
    scrubby.name
  END AS track,
  artist.name AS artist

shapr

module Main where

import System.Environment
import System.IO

main :: IO ()
main = do
    withFile
        "/tmp/stdin.txt"
        AppendMode