foxiepaws

sub newsingle {
    my ($image, $style);
    for ($config->{select}) {
        do {
            # select a specific image from the list of walls based on
            # the toplevel config var "select". (0 indexed)
            my @walls = @{$config->{walls}};
            $image = $walls[$_];
        } when $_ > -1;
        default {

foxiepaws

#!/usr/bin/env bash

files="$(ls -a  | perl -ne 'print unless /^\.{1,2}$|\.org#?$|^\.git$|setup\.../')"

for p in $files; do
    if [[ "${p#/}" == ".config" ]]; then
        mkdir -p "${HOME}/.config"
        mfiles="$(ls -a .config | perl -ne 'print unless /^\.{1,2}$/')"
        for f in $mfiles ; do 
            echo "ln -s '${f}' \"$HOME/.config/${f%.config/}\""

foxiepaws

(defun perlcritic ()
  ""
  (interactive)
  (let ((buffer-mode (symbol-name (buffer-local-value 'major-mode (current-buffer)))))
    (if
      (or (string= "perl-mode" buffer-mode) (string= "cperl-mode" buffer-mode))
      (compile (concat "perlc --critic " (buffer-file-name)))
    (error "not a perl file. (or an unrecognised perl mode)")
)))

foxiepaws

(defun perlcritic ()
  ""
  (interactive)
  (if
      (string-match "Perl|CPerl" (symbol-name (buffer-local-value 'major-mode (current-buffer))))
      (compile (concat "perlc --critic " (buffer-file-name)))
    (error "not a perl file. (or an unrecognised perl mode)")
    )
)

foxiepaws

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ansi-color-names-vector
   ["#212526" "#ff4b4b" "#b4fa70" "#fce94f" "#729fcf" "#e090d7" "#8cc4ff" "#eeeeec"])
 '(custom-safe-themes
   (quote
    ("08851585c86abcf44bb1232bced2ae13bc9f6323aeda71adfa3791d6e7fea2b6" "51277c9add74612c7624a276e1ee3c7d89b2f38b1609eed6759965f9d4254369" default)))

foxiepaws

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ansi-color-names-vector
   ["#212526" "#ff4b4b" "#b4fa70" "#fce94f" "#729fcf" "#e090d7" "#8cc4ff" "#eeeeec"])
 '(custom-safe-themes
   (quote
    ("08851585c86abcf44bb1232bced2ae13bc9f6323aeda71adfa3791d6e7fea2b6" "51277c9add74612c7624a276e1ee3c7d89b2f38b1609eed6759965f9d4254369" default)))

foxiepaws

package DemonReach::Core;
use strict;
use warnings;
use utf8;
use v5.18; # limit to 5.18+

use Getopt::Long;
use Carp;
use DemonReach::Base;

foxiepaws

use strict;
use warnings;
use utf8;
use v5.18; # limit to 5.18+

use YAML;
use Getopt::Long;
use Carp;

foxiepaws

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ansi-color-names-vector
   ["#212526" "#ff4b4b" "#b4fa70" "#fce94f" "#729fcf" "#e090d7" "#8cc4ff" "#eeeeec"])
 '(custom-safe-themes
   (quote
    ("08851585c86abcf44bb1232bced2ae13bc9f6323aeda71adfa3791d6e7fea2b6" "51277c9add74612c7624a276e1ee3c7d89b2f38b1609eed6759965f9d4254369" default)))

foxiepaws

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ansi-color-names-vector
   ["#212526" "#ff4b4b" "#b4fa70" "#fce94f" "#729fcf" "#e090d7" "#8cc4ff" "#eeeeec"])
 '(custom-safe-themes
   (quote
    ("08851585c86abcf44bb1232bced2ae13bc9f6323aeda71adfa3791d6e7fea2b6" "51277c9add74612c7624a276e1ee3c7d89b2f38b1609eed6759965f9d4254369" default)))