Skip to content

Instantly share code, notes, and snippets.

View jmercouris's full-sized avatar
🌴

John Mercouris jmercouris

🌴
143 followers · 0 following
View GitHub Profile
@jmercouris
jmercouris / macro.lisp
Last active February 26, 2019 18:33
(create-or-update
'reviews ;; class
(find-dao 'reviews :user user) ;; predicate
((slot-name . value) ;; values
(slot-name . value)))
(let ((object (find-dao 'reviews :user user)))
(if object
(progn
@jmercouris
jmercouris / error.lisp
Created February 21, 2019 12:28
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ASD File in Question
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(asdf:defsystem "app"
:version "0.1.0"
:author "Atlas Engineer LLC"
:depends-on ("clack"
"lack"
"caveman2"
"envy"
@jmercouris
jmercouris / error.lisp
Created February 21, 2019 12:13
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ASD File in Question
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(asdf:defsystem "app"
:version "0.1.0"
:author "Atlas Engineer LLC"
:depends-on ("clack"
"lack"
"caveman2"
"envy"
@jmercouris
jmercouris / error.lisp
Created February 18, 2019 20:46
(deftable users ()
((email :col-type (or (:varchar 512) :null)
:initarg :email
:accessor email)
(password :col-type (or (:varchar 512) :null)
:initarg :password
:deflate #'hash-password
:accessor password)
(name :col-type (or (:varchar 512) :null)
:initarg :name
@jmercouris
jmercouris / error
Last active February 12, 2019 16:39
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Error
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Invalid initialization argument:
:PRODUCT
in call for class #<DAO-TABLE-CLASS SOCIALFLIGHT.WEB::SOCIAL-ACCOUNTS>.
[Condition of type SB-PCL::INITARG-ERROR]
See also:
Common Lisp Hyperspec, 7.1.2 [:section]
@jmercouris
jmercouris / error
Created February 11, 2019 17:58
System "dbd-postgresql" not found
[Condition of type QUICKLISP-CLIENT:SYSTEM-NOT-FOUND]
Restarts:
0: [CONTINUE] Try again
1: [ABORT] Give up on "dbd-postgresql"
2: [RETRY] Retry SLIME REPL evaluation request.
3: [*ABORT] Return to SLIME's top level.
4: [REMOVE-FD-HANDLER] Remove #<SB-IMPL::HANDLER INPUT on descriptor 6: #<CLOSURE (LABELS SWANK/SBCL::RUN :IN SWANK/BACKEND:ADD-FD-HANDLER) {1004A4496B}>>
5: [ABORT] Exit debugger, returning to top level.
@jmercouris
jmercouris / nginx.conf
Created January 28, 2019 11:41
########################################################################
# CURRENT CONFIGURATION
########################################################################
server {
listen 80;
server_name www.example.com example.com;
return 301 https://$host$request_uri;
location /static/ {
alias /root/directory/static/;
@jmercouris
jmercouris / sql
Created January 23, 2019 11:56
Table 1:
id, email, password
Table 2:
id, table_1_id
How can I get all rows from table 1, where a row with a corresponding
table_1_id does not exist.
@jmercouris
jmercouris / gist:e40b288a03dc8b6bc96fc0e548d60743
Created January 18, 2019 13:46
Enabled minor modes: Async-Bytecomp-Package Auto-Composition
Auto-Compression Auto-Encryption Auto-Revert Beacon Column-Number
Company Delete-Selection Diff-Auto-Refine Disable-Mouse-Global Eldoc
Electric-Indent File-Name-Shadow Font-Lock Global-Eldoc
Global-Font-Lock Global-Git-Commit Global-Hl-Line Global-Magit-File
Highlight-Indentation Highlight-Parentheses Ivy Line-Number
Magit-Auto-Revert Magit-File Mouse-Wheel Override-Global Paredit
Popwin Projectile Shell-Dirtrack Slime Slime-Autodoc
Slime-Trace-Dialog Smartparens Tracking Transient-Mark Which-Key Yas
Yas-Global
@jmercouris
jmercouris / repl.lisp
Created January 18, 2019 13:17
DB> (sxql:insert-into :Administrator (set= :Password "lol"))
#<SXQL-STATEMENT: INSERT INTO administrator (password) VALUES ('lol')>
;; Desired Result
DB> (sxql:insert-into :Administrator (set= :Password "lol"))
#<SXQL-STATEMENT: INSERT INTO Administrator (Password) VALUES ('lol')>