Jaime Fournier ober
ober
/ ql-tools.lisp
Created
April 26, 2016 15:08
— forked from bhyde/ql-tools.lisp
A few things for playing with quicklisp metadata. Note that this reveals assorted things that make life interesting; so use 'em in a clean discardable session. Probably ccl only.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (in-package #:cl-user) | |
| (eval-when (:compile-toplevel :load-toplevel :execute) | |
| (ql:quickload "cl-ppcre") | |
| (ql:quickload "optima") | |
| (ql:quickload "optima.ppcre") | |
| (use-package '#:optima) | |
| (use-package '#:optima.ppcre)) | |
| (defun ensure-all-system-are-downloaded () |
ober
/ gather_installed.py
Last active
August 29, 2015 14:25
— forked from halberom/01_gather_installed.py
ansible - example of custom module to gather info on installed packages
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env python | |
| # -*- coding: utf-8 -*- | |
| # only works on RedHat family | |
| import rpm | |
| def _check_installed(module): | |
| ts = rpm.TransactionSet() | |
| mi = ts.dbMatch() |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (let ((pattern "/one/:one/:two") | |
| (path "/one/x/y")) | |
| (let* ((lst (split-string pattern "/" t)) | |
| (patlst | |
| (let ((i 0)) | |
| (loop for part in lst | |
| if (string-match-p "^:.*" part) | |
| collect (cons i (intern (substring part 1))) | |
| do (setq i (+ 1 i))))) |