Konfekt

#!/usr/bin/env -S uv run --script

# /// script
# requires-python = ">=3.10"
# dependencies = [
#   "cryptography>=42",
# ]
# [tool.uv]
# exclude-newer = "2025-12-26 00:00"
# ///

Konfekt

" Check Python code snippets on the fly with pyrefly.
" Put into ~/.vim/plugins` and use the mapping `g4` on a visual selection or a text object.

if exists('g:loaded_pyrefly_operator') | finish | endif
let g:loaded_pyrefly_operator = 1

if !executable('pyrefly') | finish | endif

let s:pyrefly_efm = join([
      \ '%E%\s%#ERROR %m',

Konfekt

" Generate compile_commands.json for clangd.
" Prefer CMake export, else Ninja compdb, else Bear + Make with optional append:
" First check is whether need for (re)generation be at all, then where relative
" to the open file, then calling CMake, Ninja, or finally Bear if applicable (as
" background jobs). To make those builders work more predictably, additional
" flags are passed to ensure all files are indexed as, say, `bear -- make` falls
" short in presence of build artifacts.

if exists('b:did_c_compdb_ftplugin') | finish | endif
let b:did_c_compdb_ftplugin = 1

Konfekt

#!/bin/sh

# Automatically add a mutt alias for the sender of each email you open.
# To use it, add to your muttrc (assuming the script is in your $PATH):
#
#   set alias_file=~/.mutt/aliases
#   set display_filter = 'auto-add_alias.sh ~/.mutt/aliases'
#
# Originally from https://web.archive.org/web/20130307065724/http://wcm1.web.rice.edu/mutt-tips.html and
# refined at https://github.com/teddywing/mutt-alias-auto-add

Konfekt

#!/usr/bin/env python3
"""
CLI transcription tool using OpenAI Audio Transcriptions REST API.
Requires environment variable OPENAI_API_KEY to be set.

- Accepts multiple inputs: files, directories, or glob patterns.
- Writes outputs next to inputs with .txt extension by default.
- If -o/--output is supplied:
  * For multiple inputs: treated as an output directory.
  * For a single input: treated as a file path if it has a suffix; otherwise as a directory.

Konfekt

#!/usr/bin/env perl
use strict;
use warnings;

my ($pattern, $grabnext);
for (@ARGV) {
    if ($grabnext or not /^-/) {
        $pattern = $_;
        last;
    } elsif (/^--$/) {

Konfekt

" Set &grepprg to git-grep inside repo, fall back rg, ugrep or grep otherwise.
" Assumes a global ignore file `$XDG_CONFIG_HOME/grep/ignore`; create it by,
" say `touch ~/.config/grep/ignore` to ensure its existence.

augroup vimrcFindGrep
  autocmd!
augroup END

if has('unix') && executable('chrt') && executable('ionice')
  let s:scheduler = 'chrt --idle 0 ionice -c2 -n7 '

Konfekt

let s:nul = ' 2> ' .. (has('win32') ? 'nul' : '/dev/null')

function! s:outside_repo() abort
  if exists('*FugitiveGitDir')
    return empty(FugitiveGitDir())
  else
    " let outside_repo = empty(finddir('.git', getcwd().';')) && empty(findfile('.git', getcwd().';'))
    silent let repo = system('git rev-parse --is-inside-work-tree' .. s:nul .. ' 1>&2')
    return v:shell_error != 0
  endif

Konfekt

" Fix last spelling mistake by Ctrl-Q;
" press repeatedly to cycle through suggestions;
" proceed to penultimate mistake after a one-second timeout.
nnoremap <silent><expr> <plug>(CQ) &l:spell ? ":<c-u>call            FixLastSpellingErrorTimed()<cr>" : "<c-q>"
nmap     <silent>       <c-q>      <plug>(CQ)
inoremap <silent><expr> <c-q>      &l:spell ? "<c-g>u<c-o>:<c-u>call FixLastSpellingErrorTimed()<cr><c-g>u"      : "<c-q>"

function! s:FixLastSpellingError(count) abort
  let l:pos = getpos('.')[1:3]
  let l:len0 = len(getline('.'))

Konfekt

" :tjump opens a menu if multiple tags match whereas :tag does not
nnoremap <c-]> g<C-]>
xnoremap <c-]> g<C-]>
" open tag in preview window
nnoremap g] <c-w>g}<c-w>Pzv<c-w>p
xnoremap g] <c-w>g}<c-w>Pzv<c-w>p

" (forcefully) close preview window and jump back
nnoremap <silent><expr> g[ ':<c-u>silent! pclose<cr>:silent! '..v:count1..'pop<cr>'