Skip to content

Instantly share code, notes, and snippets.

@railwaycat
railwaycat / mac-switch-meta.el
Created August 28, 2012 13:43
meta key switch
;; Keybonds
(global-set-key [(hyper a)] 'mark-whole-buffer)
(global-set-key [(hyper v)] 'yank)
(global-set-key [(hyper c)] 'kill-ring-save)
(global-set-key [(hyper s)] 'save-buffer)
(global-set-key [(hyper l)] 'goto-line)
(global-set-key [(hyper w)]
(lambda () (interactive) (delete-window)))
(global-set-key [(hyper z)] 'undo)
@railwaycat
railwaycat / Emacs_starter.pl
Last active March 12, 2023 01:26
Start Emacs.app from CLI
#!/usr/bin/perl
# Emacs starter for Emacs mac port
# Thanks to Aquamacs Project and David Reitter
my $args = "";
my $tmpfiles = "";
for my $f (@ARGV) {
@railwaycat
railwaycat / build-emacs.app.sh
Last active May 30, 2018 15:54
build emacs mac port bundle
#!/bin/sh
# usage: ./build-emacs.app.sh <emacs-mac-port-source-directory>
installprefix=`pwd`/emacs-mac-out
app_dir=$installprefix/Emacs.app/Contents/Resources
version=26.1 # update the version nunber
compver=x86_64-apple-darwin`uname -r`
# if you install texinfo by homebrew and key-only
# todo: grap topic changes
use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '0.0.3';
%IRSSI = (
authors => 'Thorsten Leemhuis',
contact => 'fedora@leemhuis.info',
set-option -g prefix C-o
set-option -g prefix2 F1
unbind-key C-b
bind-key C-o send-prefix
unbind c
bind-key c neww -c "#{pane_current_path}"
set -g mouse on
set -g history-limit 655350
--- mituharu-emacs-mac-7fdbfba85d54/src/macappkit.m 2018-09-08 21:02:50.000000000 -0400
+++ mituharu-emacs-mac/src/macappkit.m 2018-09-11 13:56:12.000000000 -0400
@@ -2074,6 +2074,18 @@
@implementation EmacsWindow
++ (NSButton *)standardWindowButton:(NSWindowButton)b forStyleMask:(NSWindowStyleMask)styleMask
+{
+
+ NSUserDefaults *userDefaults = [NSUserDefaults standardUserDefaults];
diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 4df6781243..5afd89a473 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -558,6 +558,7 @@ minibuffer-prompt-properties--setter
(mac-pass-command-to-system mac boolean "22.1")
(mac-pass-control-to-system mac boolean "22.1")
(mac-drawing-use-gcd mac boolean "24.4")
+ (mac-use-title-bar mac boolean "25.2")
(mac-frame-tabbing mac (choice (const automatic) (const inverted)
@railwaycat
railwaycat / emacs-mac-infoplist.patch
Last active March 17, 2018 08:36
patch for document.icns
diff --git mac/templates/Info.plist.in mac/templates/Info.plist.in
index d4b033c659..fe46ab29d8 100644
--- mac/templates/Info.plist.in
+++ mac/templates/Info.plist.in
@@ -21,12 +21,475 @@ along with GNU Emacs Mac port. If not, see <http://www.gnu.org/licenses/>.
-->
<!DOCTYPE plist SYSTEM "file://localhost/System/Library/DTDs/PropertyList.dtd">
-<plist version="0.9">
+<plist version="1.0">
diff -ruN mituharu-emacs-mac-9ea45639e1ab/lisp/cus-start.el mituharu-emacs-mac-9ea45639e1ab-mod/lisp/cus-start.el
--- mituharu-emacs-mac-9ea45639e1ab/lisp/cus-start.el 2018-04-15 02:15:54.000000000 -0400
+++ mituharu-emacs-mac-9ea45639e1ab-mod/lisp/cus-start.el 2018-05-02 19:32:22.000000000 -0400
@@ -580,6 +580,7 @@
(mac-pass-command-to-system mac boolean "22.1")
(mac-pass-control-to-system mac boolean "22.1")
(mac-drawing-use-gcd mac boolean "24.4")
+ (mac-use-title-bar mac boolean "25.2")
(mac-frame-tabbing mac (choice (const automatic) (const inverted)
(const nil) (const t)) "24.5")
@railwaycat
railwaycat / emacs-26.2-rc1-mac-7.5-no-title-bar.patch
Last active April 26, 2020 03:28
emacs-26.2-rc1-mac-7.5-no-title-bar.patch
diff -ruN mituharu-emacs-mac-85a43e7fcf73/lisp/cus-start.el mituharu-emacs-mac-patched/lisp/cus-start.el
--- mituharu-emacs-mac-85a43e7fcf73/lisp/cus-start.el 2019-03-22 01:05:44.000000000 -0400
+++ mituharu-emacs-mac-patched/lisp/cus-start.el 2019-04-04 15:08:10.000000000 -0400
@@ -580,6 +580,7 @@
(mac-pass-command-to-system mac boolean "22.1")
(mac-pass-control-to-system mac boolean "22.1")
(mac-drawing-use-gcd mac boolean "24.4")
+ (mac-use-title-bar mac boolean "25.2")
(mac-frame-tabbing mac (choice (const automatic) (const inverted)
(const nil) (const t)) "24.5")