ainame

module MyApp
  module AWS

    class SNS
      def self.stub_configuration
        AWS::Core::Configuration.new(
          access_key_id: 'ACCESS_KEY_ID',
          secret_access_key: 'SECRET_ACCESS_KEY',
          stub_requests: true,
        )

ainame

user = {
  id: 1,
  name: 'ainame',
}

if flag
  user[:gender] = 'male',   # ← 末尾にカンマが入ってしまっていたけどシンタックスエラーにはならない
  user[:age] = 100
end

ainame

gem 'arproxy'
gem 'explain_parser'

ainame

#import <XCTest/XCTest.h>
#import <TKRGuard.h>
#import <OHHTTPStubs.h>

@interface AMEHTTPRequestTestCase : XCTestCase

@property (nonatomic, strong) NSURLRequest *lastRequest;

- (void)stubAllRequestWithResponseFileName:(NSString *)responseFileName statuCode:(NSInteger)statusCode;

ainame

use strict;
use warnigns;

use Test::More;
use Test::More::Hooks;

package Foo {
  sub new{ bless { counter => $_[1] }, $_[0]; }
  sub count_up { shift->{counter} += shift; }
};

ainame

(defun func1 (func)
  (funcall func))

(defun func2 (func)
  (func1
   (lambda ()
     (funcall func))))

(func2
 (lambda ()

ainame

(defun func1 (func)
  (funcall func))

(defun func2 (func)
  (func1
   (lambda ()
     (funcall func))))

(func2
 (lambda ()

ainame

(require 'cl-lib)

(defvar newline-or-open-line/open-line-count 0)
(make-variable-buffer-local 'newline-or-open-line/open-line-count)

(defun newline-or-open-line/increment-open-line ()
  (setq newline-or-open-line/open-line-count (+ newline-or-open-line/open-line-count 1)))

(defun newline-or-open-line/clear-open-line-count ()
  (setq newline-or-open-line/open-line-count 0))

ainame

(require 'cl-lib)

(defvar newline-or-open-line/open-line-count nil)
(make-variable-buffer-local 'newline-or-open-line/open-line-count)

(defun newline-or-open-line/increment-open-line ()
  (push 'open-line newline-or-open-line/open-line-count))

(defun newline-or-open-line/clear-open-line-count ()
  (progn

ainame

(defun newline-or-open-line ()
  "newline-or-openline is a new command for merging C-m and C-o"
  (interactive)
  (let ((string-exists-before-cursor (string-match "[^\\\s\\\n\\\t]" (buffer-substring (point-at-bol) (point))))
        (string-exists-after-cursor (string-match "[^\\\s\\\n\\\t]" (buffer-substring (point) (point-at-eol)))))
    (cond ((or (eolp)
               (not string-exists-after-cursor)
               (and string-exists-before-cursor string-exists-after-cursor))
	   (progn (newline) (indent-according-to-mode)))
          (t (progn (open-line 1) (indent-according-to-mode))))))