mrioqueiroz

set lazyredraw
set hidden
set number relativenumber
set autoindent expandtab tabstop=2 shiftwidth=2 softtabstop=2
set novisualbell noerrorbells belloff=all
set mouse=a
set ignorecase smartcase incsearch
set nowrap
set wildmode=full

mrioqueiroz

nnoremap <space> <nop>
vnoremap <space> <nop>
sunmap <space>
let mapleader=" "
set timeoutlen=800

set number relativenumber
set scrolloff=15
set ignorecase smartcase incsearch hlsearch
set showmode showcmd

mrioqueiroz

{
  services = {
    xserver = {
      enable = true;
      xkbOptions = "caps:ctrl_modifier";
    };
  };
  environment = {
    shellInit = ''
      xcape -e "Caps_Lock=Escape"

mrioqueiroz

[
    { "key": "f6", "command": "workbench.action.terminal.focus"},
    {
        "key": "f6",
        "command": "workbench.action.focusActiveEditorGroup",
        "when": "terminalFocus"
    },
    {
        "key": "ctrl+alt+b",
        "command": "markdown.extension.editing.toggleBold",

mrioqueiroz

# Usage: $ curl -L <link_to_this_gist>/raw > /mnt

{ config, pkgs, ... }:

{
  imports =
    [
      ./hardware-configuration.nix
    ];

mrioqueiroz

from collections import Counter
from pprint import pprint
from string import ascii_letters, digits

from PIL import Image, ImageOps
from pytesseract import image_to_string


def obter_caracteres(imagem):
    caracteres = [list() for _ in range(7)]

mrioqueiroz

Sub MainCreateStandardReport()
    Application.ScreenUpdating = False

    Dim originalDataSheetName As String
    Dim originalFileName As String
    Dim originalFilePath As String
    Dim filePath As String
    Dim pathSep As String
    Dim fileToSave As String

mrioqueiroz

Sub AddDateAndTimeMultipleTimes()
    Dim userInput As Variant
    userInput = Application.InputBox("How many times?")
    If Not userInput = "" Then
        For i = 1 To userInput
            Call AddDateAndTimeOnce
        Next i
    ElseIf userInput = "" Then
        Call AddDateAndTimeOnce
    End If

mrioqueiroz

Sub RemoverFormatoECopiar()
    Dim textoOriginal As String
    Dim novoTexto As String
    Dim contador As Integer
    Dim areaDeTransferencia As New MSForms.DataObject
    
    textoOriginal = ActiveCell.Value
    
    For contador = 1 To Len(textoOriginal)
        Dim caractere As String

mrioqueiroz

import os
import sys
import cv2


def check_differences():
    im1 = cv2.imread(sys.argv[1])
    im2 = cv2.imread(sys.argv[2])

    diff = cv2.subtract(im1, im2)