Skip to content

Instantly share code, notes, and snippets.

@sebastiencs
sebastiencs / neon.rs
Created August 31, 2018 23:46
neon.rs
use std::sync::RwLock;
use std::sync::Arc;
use neon::prelude::*;
struct Obj<'data> {
a: u16,
b: PhantomData<&'data u8>
}
pub struct User<'data> {
@sebastiencs
sebastiencs / streched-spaces.patch
Created April 8, 2018 22:43
streched spaces in emacs
diff --git a/src/xdisp.c b/src/xdisp.c
index 50fd685778..1ec3b0c376 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -27626,6 +27626,15 @@ produce_stretch_glyph (struct it *it)
width = max (0, (int)tem + align_to - it->current_x);
zero_width_ok_p = true;
}
+ else if ((prop = Fplist_get (plist, QCre_align), !NILP (prop)))
+ {
(require 'package)
(setq package-archives '(("marmalade" . "https://marmalade-repo.org/packages/")
("melpa" . "https://melpa.org/packages/")
("gnu" . "http://elpa.gnu.org/packages/")))
(package-initialize)
@sebastiencs
sebastiencs / volume.sh
Last active February 13, 2024 11:19
Script to get volume notification with dunst http://imgur.com/a/qWgAw
#!/bin/bash
# You can call this script like this:
# $./volume.sh up
# $./volume.sh down
# $./volume.sh mute
function get_volume {
amixer get Master | grep '%' | head -n 1 | cut -d '[' -f 2 | cut -d '%' -f 1
}
(require 'dash)
(require 's)
(require 'loop)
(require 'icons-in-terminal)
(defun my-char-at-point (&optional p)
"P."
(let ((point (or p (point))))
(if (< point (point-max)) (buffer-substring-no-properties point (1+ point))
"")))
@sebastiencs
sebastiencs / bug_add-face-text-property.el
Created June 20, 2017 21:34
bug with add-face-text-property (emacs)
(defconst my-icons-in-terminal-alist
'(
( oct_flame . "\xe092" )
))
(defun my-icons-in-terminal (name &rest attributes)
"."
(let* ((list-attributes '(:family "icons-in-terminal"))
;;; (let* ((list-attributes (list :family "icons-in-terminal"))
@sebastiencs
sebastiencs / company-yasnippet.el
Created June 15, 2017 23:45
company with yasnippet
;; With this code, yasnippet will expand the snippet if company didn't complete the word
;; replace company-complete-common with company-complete if you're using it
(advice-add 'company-complete-common :before (lambda () (setq my-company-point (point))))
(advice-add 'company-complete-common :after (lambda ()
(when (equal my-company-point (point))
(yas-expand))))
starting traces for chapui_s
pickup trace:
Repo: /chapui_s/PSU_2014_myftp
City: PAR
Status: Success
Logs: . Ok
Date: Sun, 22 Mar 2015 23:52:46
Remote Branches:
origin/master