Skip to content

Instantly share code, notes, and snippets.


Sébastien Feugère smonff

View GitHub Profile
smonff /
Last active Jul 23, 2022
Natural language example
my $is_easy_to_read = $self->evaluate_readability( $pattern );
$self->explain_meaning unless $is_easy_to_read;
smonff /
Last active Jul 21, 2021
/proc/mounts to JSON with perlcore only
use strict;
use warnings;
use diagnostics;
use JSON::PP;
my @only = qw(ext4);
my @mounts = ();

Keybase proof

I hereby claim:

  • I am smonff on github.
  • I am smonff ( on keybase.
  • I have a public key ASCQT5EfYHLpLVAS9P_jYpAIuCVpdfyBrMfAoUKsk5s1Xgo

To claim this, I am signing this object:

# This script configures WordPress file permissions based on recommendations
# from
# Author: Michael Conigliaro <mike [at] conigliaro [dot] org>
WP_OWNER=www-data # <-- wordpress owner
WP_GROUP=www-data # <-- wordpress group
WP_ROOT=$1 # <-- wordpress root directory
smonff /
Last active Apr 1, 2016 — forked from dougireton/
I've started responding to recruiters with this list of requirements

Company Requirements

I'm definitely not looking for work. However to provide some helpful guidance for hiring like-minded engineers, I would only consider working for a company if it met these requirements:

  1. Concrete, measurable plan to increase the number of women and minorities in engineering roles.
  2. I would only be willing to interview if there were women/minorities in the interview pool for this position.
  3. Commitment to using and contributing to open source.
  4. Collaborative, friendly atmosphere where pair programming is encouraged.
  5. Meaningful work with clear linkage between work and company goals.
  6. Demonstrated commitment to ethical business practices, e.g. B corp certification.
View gist:1b85681105d49ad5e310
<span class="separator">&nbsp;</span>
smonff / .emacs
Created Sep 7, 2014
Gain sudo privileges in Emacs without launch it as sudo
View .emacs
;; Makes possible to sudo-edit files
;; From Damien Cassou
(defun sudo ()
(let ((fname (or buffer-file-name
(when fname
(if (string-match "^/sudo:root@localhost:" fname)
(setq fname (replace-regexp-in-strin
View gist:9851736
; mmm-mode config for Mojolicious::Lite perl file.
; Forked from
; mmm-mode lib is from here:
; font locks of [c]perl-mode and mmm-mode conflict each other.
(require 'mmm-auto)
(require 'mmm-compat)
(require 'mmm-vars)
smonff /
Created Jan 17, 2014
An excerpt from chromatic's Modern Perl book about clean regexes
# The /x modifier allows you to embed additional whitespace and comments within patterns.
# With this modifier in effect, the regex engine ignores whitespace and comments.
# The results are often much more readable.
# This regex isn't simple, but comments and whitespace improve its readability.
# Even if you compose regexes together from compiled fragments, the /x modifier
# can still improve your code.
my $attr_re = qr{
\A # start of line
smonff / cold_art.poetry
Created Nov 24, 2013
another thought about art
View cold_art.poetry
this is not a haiku
this is not code
you won't need to have feelings
it's much more conceptual
it' not about love